egghelp/eggheads community

flood pro on tcl code

2006-07-28T01:36:49-04:00

Code:

if {[isop $nick $chan] || [isvoice $nick $chan]} return

add this after the proc bla bla bla ... line.

Statistics: Posted by caesar — Fri Jul 28, 2006 1:36 am

flood pro on tcl code

2006-07-27T09:10:13-04:00

Code:

set textftrigger 5:2bind pubm - * textfbind ctcp - ACTION actionfproc textf {nick uhost hand chan arg} { global textftrigger textf if {![info exists textf([set f [string tolower $uhost:$chan]])]} {  set textf($f) 0 } utimer [lindex [split $textftrigger :] 1] [list incr textf($f) -1] if {[incr textf($f)] >= [lindex [split $textftrigger :] 0]} {  pushmode $chan +b *!*@[lindex [split $uhost @] 1]  putkick $chan $nick "Text flood detected."  unset textf($f) }}proc actionf {nick uhost hand chan kw arg} { if {[isbotnick [lindex [split $chan "@"] 0]] || [lindex [split $chan "@"] 1] != ""} {return 0} textf $nick $uhost $chan $chan $arg}

how to protect voice and op??

Statistics: Posted by alisetan — Thu Jul 27, 2006 9:10 am

flood pro on tcl code

2005-09-10T22:03:12-04:00

Remove

Code:

unset textf($f)

Statistics: Posted by Sir_Fz — Sat Sep 10, 2005 10:03 pm

flood pro on tcl code

2005-09-10T20:45:14-04:00

no comment demond
enx sir_fz.
i have this error sir

Code:

|03:41| › (abuse) [17:40] Tcl error in script for 'timer25902':|03:41| › (abuse) [17:40] can't read "textf(hellas2@213.149.185.51:#fun-club)": no such element in array

Statistics: Posted by suffering — Sat Sep 10, 2005 8:45 pm

flood pro on tcl code

2005-09-10T20:15:07-04:00

Code:

set textftrigger 5:2bind pubm - * textfbind ctcp - ACTION actionfproc textf {nick uhost hand chan arg} { global textftrigger textf if {![info exists textf([set f [string tolower $uhost:$chan]])]} {  set textf($f) 0 } utimer [lindex [split $textftrigger :] 1] [list incr textf($f) -1] if {[incr textf($f)] >= [lindex [split $textftrigger :] 0]} {  pushmode $chan +b *!*@[lindex [split $uhost @] 1]  putkick $chan $nick "Text flood detected."  unset textf($f) }}proc actionf {nick uhost hand chan kw arg} { if {[isbotnick [lindex [split $chan "@"] 0]] || [lindex [split $chan "@"] 1] != ""} {return 0} textf $nick $uhost $chan $chan $arg}

Statistics: Posted by Sir_Fz — Sat Sep 10, 2005 8:15 pm

flood pro on tcl code

2005-09-10T18:01:37-04:00

dude, I will always reply as I see fit, to anyone and to anything; and I will always try to help anyone to use eggdrop as it was meant to be used - including, but not limited to, letting ignorant people like yourself know they are using lame script(s) and they could do a way better - so it's not me who has a problem, it's you who has a problem, and if you were smart enough, you would swallow your mIRC pride and would listen what I have to say, 'cause I'm here you to help you, not to taunt you

Statistics: Posted by demond — Sat Sep 10, 2005 6:01 pm

flood pro on tcl code

2005-09-10T17:46:04-04:00

demond i just ask for a script if anyone can make it for me, i dont need u to tell me what my script will do. if you can help good if you cant or anything else good again but keep ur comments for 'lame' to u. i request a script and i answer to sir not to you. im using his tcl on dalnet and its very good there, on undernet its not what im trying to do thats why im requesting that flood pro. whats ur problem on this?

Statistics: Posted by suffering — Sat Sep 10, 2005 5:46 pm

flood pro on tcl code

2005-09-10T15:27:23-04:00

my friend, what you requested to be translated into Tcl is nothing but pretty lame and crude mIRC protection, far inferior even to eggdrop's built-in chan protection (because it tracks the flood source by nick, and if the flooder keeps changing nicks, they will beat your "protection" script as they wish)

Statistics: Posted by demond — Sat Sep 10, 2005 3:27 pm

flood pro on tcl code

2005-09-10T15:09:21-04:00

my friend, if i want to use ur script i will use it. i just want a part of it not all of them, i dont want to load a whole script for one protection.

Statistics: Posted by suffering — Sat Sep 10, 2005 3:09 pm

flood pro on tcl code

2005-09-10T09:31:04-04:00

Try allfloodprotection. It's not based on eggdrop's protections.

Statistics: Posted by Sir_Fz — Sat Sep 10, 2005 9:31 am

flood pro on tcl code

2005-09-10T08:21:35-04:00

i want a text/action flood protection not based on eggdrop.conf

Statistics: Posted by suffering — Sat Sep 10, 2005 8:21 am

flood pro on tcl code

2005-09-10T07:05:47-04:00

Not everybody knows mIRC, so tell us what you exactly want and we might do it or help you do it.

Statistics: Posted by Sir_Fz — Sat Sep 10, 2005 7:05 am

flood pro on tcl code

2005-09-10T03:53:14-04:00

i want to make it for me on the tcl code pls

Code:

on @*:TEXT:*:#: {  if ( $me isop $chan ) {     set -u3 %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1)    if (%fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= %limit.flood ) {      ban # $nick 2      kick # $nick 10Channel flood detected!!    }  }}

Statistics: Posted by suffering — Sat Sep 10, 2005 3:53 am