join/part flood

# noflood.tcl

set jp(chan) "#strumica"
set jp(km) "\002NO\002 join-part flood allowed in here"
set jp(bt) "20160"

set jp(lm1) "m"
set jp(lt1) "20"

set jp(lm2) "r"
set jp(lt2) "30"

#### END #####

bind join - * s:jp

proc s:jp {nick uhost hand chan} {
global botnick jp
if {[matchattr $hand of|of $chan] || [isop $nick $chan] || [isvoice $nick $chan]} { return 0 }
if {(([lsearch -exact [string tolower $jp(chan)] [string tolower $chan]] != -1) || ($jp(chan) == "*")) &&
(![matchattr $hand b]) && ($nick != $botnick)} {
if {[validchan $chan] || && [botisop $chan]} {
if {[getchanjoin $nick $chan] >= [expr {[clock seconds]-3}]} {
putquick "MODE $chan +$jp(lm1)"
putquick "MODE $chan +$jp(lm2)"
set ban "*!*@[lindex [split $uhost @] 1]"
putquick "KICK $chan $nick :$jp(km)"
newchanban $chan $ban joinpart-flood $jp(km) $jp(bt)
putquick "PRIVMSG X :ban $jp(chan) $ban 336 100 $jp(km)" -next
utimer $jp(lt2) [list putquick "MODE $chan -$jp(lm2)"]
utimer $jp(lt1) [list putquick "MODE $chan -$jp(lm1)"]
return 0
}
}
}
}

putlog "TCL Loaded: noflood.tcl"