Simple Greeting Script

[kisser]

Code: Select all

#Scripted By KiSsEr 
#KiSsEr@k.St
#To use it .chanset #channel +greets


set greeting "Your Msg Here"
set blackl(punish) 3:2


#[ don't edit here if you don't know how!#

bind join - * bl:greet
setudef flag greets

set 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"