egghelp/eggheads community

Stop the flooding from different nicknames.

2005-05-11T15:46:45-04:00

A little typo, flood(kmsg) should be floodr(kmsg). (edited the code)

Statistics: Posted by Sir_Fz — Wed May 11, 2005 3:46 pm

Stop the flooding from different nicknames.

2005-05-11T12:12:51-04:00

Partyline: [12:08] Tcl error [lock:pubm]: can't read "floodr(kmsg)": no such element in array

Channel:

[19:09:03] * Eggdrop1 sets mode: +m
[19:09:13] * Eggdrop1 sets mode: -m

In the script i set the timer 10 seconds

Statistics: Posted by Nucleus — Wed May 11, 2005 12:12 pm

Stop the flooding from different nicknames.

2005-05-11T10:22:16-04:00

uploaded Now waiting for an attack

Statistics: Posted by Nucleus — Wed May 11, 2005 10:22 am

Stop the flooding from different nicknames.

2005-05-10T17:47:05-04:00

add

Code:

utimer  [list putserv "MODE $chan -mR"]

under

Code:

putquick "MODE $chan +mR" -next

Statistics: Posted by Sir_Fz — Tue May 10, 2005 5:47 pm

Stop the flooding from different nicknames.

2005-05-10T16:13:15-04:00

how can i add a timer to remove the lock?

Statistics: Posted by Nucleus — Tue May 10, 2005 4:13 pm

Stop the flooding from different nicknames.

2005-05-10T15:41:53-04:00

In the lock:notc proc, in the second line, global, declare $botnick variable as global, by adding botnick into the line.

Code:

global botnick

OR just replace $botnick by $::botnick everywhere in the script.

In this script as far as I can see the lock will remain on, untill it is manually removed by someone, since there is no utimer or timer to remove the lock in the script, just a code place it.

Statistics: Posted by awyeah — Tue May 10, 2005 3:41 pm

Stop the flooding from different nicknames.

2005-05-10T07:57:41-04:00

You mean that repeat script ? This is a rewrite so again we might pass through all those errors

Code:

#set number of messages in how many seconds to lock chan.set floodr(msgsec) 7:2#set length of messages that trigger the script.set floodr(len) 200#set kick msgset flood(kmsg) "Flooder detected."bind pubm - * lock:pubmbind notc - * lock:notcset floodr(msgs) [lindex [split $floodr(msgsec) :] 0]set floodr(secs) [lindex [split $floodr(msgsec) :] 1]proc lock:pubm {nick uhost hand chan arg} { global floodr floodpub pubnicks if {![info exists floodpub($chan)]} { set floodpub($chan) 0 } fnicklappend $floodr(secs) pubnicks($chan) $nick:*!*@[lindex [split $uhost @] 1] if {[tincrease $floodr(secs) floodpub($chan)] == $floodr(msgs)} {  putquick "MODE $chan +mR" -next  foreach floodnick $pubnicks($chan) {   putquick "KICK $chan [lindex [split $floodnick :] 0] :$floodr(kmsg)"   pushmode $chan +b [lindex [split $floodnick :] 1]  } }}proc lock:notc {nick uhost hand arg chan} { global floodr floodnotc notcnicks if {[lindex [split $chan "@"] 0] == $botnick || [string index $chan 0] == "@"} {return 0} if {![info exists floodnotc($chan)]} { set floodnotc($chan) 0 } fnicklappend $floodr(secs) notcnicks($chan) $nick:*!*@[lindex [split $uhost @] 1] if {[tincrease $floodr(secs) floodnotc($chan)] == $floodr(msgs)} {  putquick "MODE $chan +mR" -next  foreach floodnick $notcnicks($chan) {   putquick "KICK $chan [lindex [split $floodnick :] 0] :$floodr(kmsg)"   pushmode $chan +b [lindex [split $floodnick :] 1]  } }} proc tincrease {value varinc} { upvar $varinc varvalue incr varvalue utimer $value [list tdecrease $varinc] return $varvalue}proc tdecrease varinc { upvar $varinc varvalue if {$varvalue > 0} {  incr varvalue -1 } return}proc fnicklappend {value varnicks nickhost} { upvar $varnicks nicklist lappend nicklist  $nickhost utimer $value [list fnickreplace $varnicks $nickhost]}proc fnickreplace {varnicks nickhost} { upvar $varnicks nicklist set nicklist [lreplace $nicklist [lsearch -exact $nicklist $nickhost] [lsearch -exact $nicklist $nickhost]] return}

This will lock the channel and kickban the flooders when offence is reached.

Edit: added bankick flooders feature.

How many minutes will it keep the channel locked?
I also get this error in the partyline:

Code:

[08:23] Tcl error [lock:notc]: can't read "botnick": no such variable

Statistics: Posted by Nucleus — Tue May 10, 2005 7:57 am

Stop the flooding from different nicknames.

2005-05-03T15:23:18-04:00

Read my second last post in this thread:
http://forum.egghelp.org/viewtopic.php?t=9424

I didn't get time to test the script yet, but it works fine without errors I guess.

Statistics: Posted by awyeah — Tue May 03, 2005 3:23 pm

Stop the flooding from different nicknames.

2005-05-11T16:12:05-04:00

You mean that repeat script ? This is a rewrite so again we might pass through all those errors

Code:

#set number of messages in how many seconds to lock chan.set floodr(msgsec) 7:2#set length of messages that trigger the script.set floodr(len) 200#set kick msgset floodr(kmsg) "Flooder detected."#set lock time.set floodr(ltime) 10bind pubm - * lock:pubmbind notc - * lock:notcset floodr(msgs) [lindex [split $floodr(msgsec) :] 0]set floodr(secs) [lindex [split $floodr(msgsec) :] 1]proc lock:pubm {nick uhost hand chan arg} { global floodr floodpub pubnicks if {![info exists floodpub($chan)]} { set floodpub($chan) 0 } fnicklappend $floodr(secs) pubnicks($chan) $nick:*!*@[lindex [split $uhost @] 1] if {[tincrease $floodr(secs) floodpub($chan)] == $floodr(msgs)} {  putquick "MODE $chan +mR" -next  utimer $floodr(ltime) [list puthelp "MODE $chan -mR"]  foreach floodnick $pubnicks($chan) {   putquick "KICK $chan [lindex [split $floodnick :] 0] :$floodr(kmsg)"   pushmode $chan +b [lindex [split $floodnick :] 1]  } }}proc lock:notc {nick uhost hand arg chan} { global floodr floodnotc notcnicks botnick if {[lindex [split $chan "@"] 0] == $botnick || [string index $chan 0] == "@"} {return 0} if {![info exists floodnotc($chan)]} { set floodnotc($chan) 0 } fnicklappend $floodr(secs) notcnicks($chan) $nick:*!*@[lindex [split $uhost @] 1] if {[tincrease $floodr(secs) floodnotc($chan)] == $floodr(msgs)} {  putquick "MODE $chan +mR" -next  utimer $floodr(ltime) [list puthelp "MODE $chan -mR"]  foreach floodnick $notcnicks($chan) {   putquick "KICK $chan [lindex [split $floodnick :] 0] :$floodr(kmsg)"   pushmode $chan +b [lindex [split $floodnick :] 1]  } }} proc tincrease {value varinc} { upvar $varinc varvalue incr varvalue utimer $value [list tdecrease $varinc] return $varvalue}proc tdecrease varinc { upvar $varinc varvalue if {$varvalue > 0} {  incr varvalue -1 } return}proc fnicklappend {value varnicks nickhost} { upvar $varnicks nicklist lappend nicklist  $nickhost utimer $value [list fnickreplace $varnicks $nickhost]}proc fnickreplace {varnicks nickhost} { upvar $varnicks nicklist set nicklist [lreplace $nicklist [lsearch -exact $nicklist $nickhost] [lsearch -exact $nicklist $nickhost]] return}

This will lock the channel and kickban the flooders when offence is reached.

Edit: added bankick flooders feature.

Statistics: Posted by Sir_Fz — Tue May 03, 2005 8:22 am

Stop the flooding from different nicknames.

2005-05-03T05:46:09-04:00

Come to think of it, someone already wrote this kind of script on another post, but the post was deleted. Anyway, i'm not sure, any help would be appreciated.

I think it was Awyeah and another user that were working on that script. I am sure if you ask Awyeah nicely he can dig it out for you

Statistics: Posted by ^DooM^ — Tue May 03, 2005 5:46 am

Stop the flooding from different nicknames.

2005-05-03T04:07:55-04:00

there is a standalone repeat.tcl from the netbots package. it doesnt count by nicknames, but by uhost + channel.
but probably you didnt detail what you wanted, so probably the nicknames do not share same/similar uhosts (for similar you could simply use maskhost on the uhost).

Statistics: Posted by De Kus — Tue May 03, 2005 4:07 am

Stop the flooding from different nicknames.

2005-05-02T19:54:48-04:00

Come to think of it, someone already wrote this kind of script on another post, but the post was deleted. Anyway, i'm not sure, any help would be appreciated.

Statistics: Posted by Nucleus — Mon May 02, 2005 7:54 pm

Stop the flooding from different nicknames.

2005-05-02T19:50:40-04:00

Code:

Floodbot1: Flood Flood Flood Flood Flood Flood Flood Flood Flood Flood Floodbot2: Flood Flood Flood Flood Flood Flood Flood Flood Flood Flood Floodbot3: Flood Flood Flood Flood Flood Flood Flood Flood Flood Flood Floodbot4: Flood Flood Flood Flood Flood Flood Flood Flood Flood Flood

If all this was coming from the same nickname, the repeat script would simply ban/kick the user. The problem is that it's coming from different nicknames. I do not want to use sentinel.tcl. Simply too many -useless for me- options. I need a script that will detect if the same text is coming from different users in the channel and ban/kick the matching offenders (channel ban).

Thank you.

Statistics: Posted by Nucleus — Mon May 02, 2005 7:50 pm