Code:

#Scripted By KiSsEr #KiSsEr@k.St#To use it .chanset #channel +greetsset greeting "Your Msg Here"set blackl(punish) 3:2#[ don't edit here if you don't know how!#bind join - * bl:greetsetudef flag greetsset blackl(lim) [scan $blackl(punish) %\[^:\]]set blackl(secs) [scan $blackl(punish) %*\[^:\]:%s]proc bl:greet {nick uhost hand chan} { global BLNicks blackl blflood greeting botnick if {![channel get $chan greets]} {return 0} if {![info exists blflood([set chan [string tolower $chan]])]} { set blflood($chan) 0 } if {$nick == $botnick} { return } if {[blfollow $blackl(secs) blflood($chan)] < $blackl(lim)} {     putserv "notice $nick :$greeting"    } else {    return}}proc blfollow {secs blvar} { upvar $blvar fvar utimer $secs [list bldicr $blvar] incr fvar}proc bldicr blvar { upvar $blvar fvar if {$fvar > 0} {  incr fvar -1 }}putlog "Greeting Script KiSsEr"

Statistics: Posted by kisser — Sat Feb 20, 2010 3:35 am