Any sugestion for this tcl (Excess Flood Protection)

[shawn]

I'm try to create a simple Excess Flood Protection, but I need for someone to modified it.

proc qb_quit {nick uhost hand chan reason} {
set reason [string tolower $reason]
if {[string match "excess flood" $reason]} {
putserv "MODE $chan +b $nick"
}
return 0
}

* I hope someone to modified this command to make them detect xs flood and kick/ban them after 2/3 times excess flood. Also, we can set unban time.

Help me please !

[kain]

Take a look at this Excess flood (inviter suspect / spammer)

<font size=-1>[ This Message was edited by: kain on 2002-04-29 14:37 ]</font>