Protection against slap attack

[Zircon]

Hi all

I d like to request a script that can punish some1 that abuse of slaps like these :


[10:50] Action: FreeStiliste slaps Goldquizz around a bit with a large trout
[10:50] Action: FreeStiliste slaps Anti-Flood around a bit with a large trout

It s very annoying. Unfortunately i cant use text protection, coz i run a quizz channel and players usualy lags and i dont want the bot to punish them. So i d like a script that let me specify how many slaps in how many seconds that trigger the punishment.

Thanks in advance

[Sir_Fz]

Code: Select all

# kick after x slaps in y seconds
set slaplimit 3:10

bind ctcp - ACTION slap:prot

proc slap:prot {nick uhost hand chan kw arg} {
 if {![validchan $chan]||[matchattr $hand +fmo|+fmo $chan]} {return 0}
 foreach {o s} [split $::slaplimit :] {break}
 if {[string match -nocase "slaps *" $arg]&&[fld:slap $uhost:$chan $s $o]} {
  putserv "kick $chan $nick :Slap attack detected!"
  pushmode $chan +b *!*@[lindex [split $uhost @] 1]
 }
}

proc fld:slap {id s o} {
 global slappers
 if {![info exists slappers($id)]} {
  set slappers($id) 0
  utimer $s [list unset slappers($id)]
 }
 expr {[incr slappers($id)] >= $o}
}

Edit: Fixed typo
Edit2: Fixed kick bug and added +fmo exempt.

[r0t3n]

Sir_Fz there is a typo in your post

fld:slp -> fld:slap

[Zircon]

Thanks a lot Sir_Fz, ur script works fine, i just did a little of editing to replace kick $nick $chan by kick $chan $nick , so the Kick can be effetive, and also used putquick instead of putserv and pushmode, so it can react faster.

I have a request. Is it possible to make this script exempt users that have +f or +m or +o flags ?

Thanks in advance

[Sir_Fz]

Try the edited version.

[Zircon]

Hello Sir_Fz

Ur script is just working PERFECT. Thanks vey much

[Sydneybabe]

how about exempting Operator(@) on kickban sir Sir_Fz.. thanks in advance

[Zircon]

They are already exempted if they have the +o flag on the bot.

[Alchera]

It appears one makes an effort to search the Tcl Archive these days.

There are five anti trout slap scripts there.