egghelp/eggheads community

Protection against slap attack

2007-10-31T19:32:04-04:00

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

There are five anti trout slap scripts there.

Statistics: Posted by Alchera — Wed Oct 31, 2007 7:32 pm

Protection against slap attack

2007-10-31T11:39:06-04:00

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

Statistics: Posted by Zircon — Wed Oct 31, 2007 11:39 am

Protection against slap attack

2007-10-31T07:01:54-04:00

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

Statistics: Posted by Sydneybabe — Wed Oct 31, 2007 7:01 am

Protection against slap attack

2007-07-02T00:30:50-04:00

Hello Sir_Fz

Ur script is just working PERFECT. Thanks vey much

Statistics: Posted by Zircon — Mon Jul 02, 2007 12:30 am

Protection against slap attack

2007-06-30T19:21:06-04:00

Try the edited version.

Statistics: Posted by Sir_Fz — Sat Jun 30, 2007 7:21 pm

Protection against slap attack

2007-06-30T16:17:19-04:00

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

Statistics: Posted by Zircon — Sat Jun 30, 2007 4:17 pm

Protection against slap attack

2007-06-30T12:41:06-04:00

Sir_Fz there is a typo in your post

fld:slp -> fld:slap

Statistics: Posted by r0t3n — Sat Jun 30, 2007 12:41 pm

Protection against slap attack

2007-06-30T19:20:37-04:00

Code:

# kick after x slaps in y secondsset slaplimit 3:10bind ctcp - ACTION slap:protproc 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.

Statistics: Posted by Sir_Fz — Fri Jun 29, 2007 9:50 pm

Protection against slap attack

2007-06-29T20:29:04-04:00

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

Statistics: Posted by Zircon — Fri Jun 29, 2007 8:29 pm