This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

flood pro on tcl code

Requests for complete scripts or modifications/fixes for scripts you didn't write. Response not guaranteed, and no thread bumping!
Post Reply
s
suffering
Voice
Posts: 27
Joined: Fri May 27, 2005 4:34 am

flood pro on tcl code

Post by suffering »

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

Code: Select all

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!!
    }
  }
}
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

Not everybody knows mIRC, so tell us what you exactly want and we might do it or help you do it.
s
suffering
Voice
Posts: 27
Joined: Fri May 27, 2005 4:34 am

Post by suffering »

i want a text/action flood protection not based on eggdrop.conf
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

Try allfloodprotection. It's not based on eggdrop's protections.
s
suffering
Voice
Posts: 27
Joined: Fri May 27, 2005 4:34 am

Post by suffering »

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.
User avatar
demond
Revered One
Posts: 3073
Joined: Sat Jun 12, 2004 9:58 am
Location: San Francisco, CA
Contact:

Post by demond »

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)
s
suffering
Voice
Posts: 27
Joined: Fri May 27, 2005 4:34 am

Post by suffering »

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?
User avatar
demond
Revered One
Posts: 3073
Joined: Sat Jun 12, 2004 9:58 am
Location: San Francisco, CA
Contact:

Post by demond »

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
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

Code: Select all

set textftrigger 5:2

bind pubm - * textf
bind ctcp - ACTION actionf

proc 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
}
s
suffering
Voice
Posts: 27
Joined: Fri May 27, 2005 4:34 am

Post by suffering »

no comment demond
enx sir_fz.
i have this error sir

Code: Select all

|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
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

Remove

Code: Select all

unset textf($f)
a
alisetan
Voice
Posts: 36
Joined: Sun May 21, 2006 3:05 pm

Post by alisetan »

Sir_Fz wrote:

Code: Select all

set textftrigger 5:2

bind pubm - * textf
bind ctcp - ACTION actionf

proc 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??
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

Code: Select all

if {[isop $nick $chan] || [isvoice $nick $chan]} return
add this after the proc bla bla bla ... line.
Once the game is over, the king and the pawn go back in the same box.
Post Reply