Old 1.1.5 code

[X-File]

this was in a eggdrop1.1.5 tcl to ban people instead of just kicking. could someone pleaes update it so i can use it in 1.6.15. thank you very much.

#################
#Kick/Ban Script#
#################

bind flud - * do_floods
proc do_floods {nick userhost handle type channel} {
putserv "MODE $channel +b $userhost"
if {$type == "join"} {
putserv "KICK $channel $nick :Boot! Now you can cycle my nuts"
}
return 1;
}

[strikelight]

Nothing there is 1.1.5 specific, as such, it should work fine on 1.6.x as well.