| View previous topic :: View next topic |
| Author |
Message |
suffering
Voice
Joined: 27 May 2005
Posts: 27
|
 Posted: Sat Sep 10, 2005 3:53 am Post subject: flood pro on tcl code |
 |
|
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!!
}
}
}
|
|
|
| Back to top |
|
 |
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Sat Sep 10, 2005 7:05 am Post subject: |
|
|
Not everybody knows mIRC, so tell us what you exactly want and we might do it or help you do it.
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
suffering
Voice
Joined: 27 May 2005
Posts: 27
|
| Posted: Sat Sep 10, 2005 8:21 am Post subject: |
|
|
| i want a text/action flood protection not based on eggdrop.conf |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
|
| Back to top |
|
|
suffering
Voice
Joined: 27 May 2005
Posts: 27
|
| Posted: Sat Sep 10, 2005 3:09 pm Post subject: |
|
|
| 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. |
|
| Back to top |
|
|
demond
Revered One
Joined: 12 Jun 2004
Posts: 3073
Location: San Francisco, CA
|
| Posted: Sat Sep 10, 2005 3:27 pm Post subject: |
|
|
| 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) |
|
| Back to top |
|
|
suffering
Voice
Joined: 27 May 2005
Posts: 27
|
| Posted: Sat Sep 10, 2005 5:46 pm Post subject: |
|
|
| 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? |
|
| Back to top |
|
|
demond
Revered One
Joined: 12 Jun 2004
Posts: 3073
Location: San Francisco, CA
|
| Posted: Sat Sep 10, 2005 6:01 pm Post subject: |
|
|
| 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 |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Sat Sep 10, 2005 8:15 pm Post subject: |
|
|
| Code: | 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
} |
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
suffering
Voice
Joined: 27 May 2005
Posts: 27
|
| Posted: Sat Sep 10, 2005 8:45 pm Post subject: |
|
|
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
|
|
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
|
| Back to top |
|
|
alisetan
Voice
Joined: 21 May 2006
Posts: 36
|
| Posted: Thu Jul 27, 2006 9:10 am Post subject: |
|
|
| Sir_Fz wrote: | | Code: | 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?? |
|
| Back to top |
|
|
caesar
Mint Rubber
Joined: 14 Oct 2001
Posts: 3741
Location: Mint Factory
|
| Posted: Fri Jul 28, 2006 1:36 am Post subject: |
|
|
| Code: |
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. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
