egghelp.org community :: View topic

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

Flooder.tcl

egghelp.org community Forum Index -> Scripting Help

View previous topic :: View next topic

Author

Message

bader1973
Voice

Joined: 28 Apr 2006
Posts: 3
Location: Eng

Posted: Sat Apr 29, 2006 8:03 am Post subject: Flooder.tcl

hello
i need help to fix this commands, every time when flooder join my chann +MR repeating many time.
any fix it for me please Smile

Code:

bind flud - ctcp bfldr
bind flud - join bfldr

proc bfldr {nick uhost hand type chan} {
global banmask botnick
if {$chan == "*"} {return 0}
if {[matchattr $hand m] || [isop $nick $chan] || [matchattr $hand f]} {
return 0
}
set banmask "*!*[string range $uhost [string first "@" $uhost] end]"
putquick "mode $chan +MRb $banmask"
putquick "kick $chan $nick :banned: Stop Flooding"
newchanban $chan $banmask $botnick "Stop Flooding" 5
utimer 15 "unmode1 $chan"
return 0
}

proc unmode1 {chan} {
putserv "MODE $chan -MR"
}

putlog "Flooder Scripts loaded!"

Sir_Fz
Revered One

Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

Posted: Sat Apr 29, 2006 9:00 am Post subject:

Code:

bind flud - ctcp bfldr
bind flud - join bfldr

proc bfldr {nick uhost hand type chan} {
global banmask botnick lockedc
if {$chan == "*"} {return 0}
if {[matchattr $hand m] || [isop $nick $chan] || [matchattr $hand f]} {
return 0
}
if {![info exists lockedc([set c [string tolower $chan]])]} {
set lockedc($c) 0
}
if {!$lockedc($c)} {
set lockedc($c) 1
set banmask "*!*[string range $uhost [string first "@" $uhost] end]"
putquick "mode $chan +MRb $banmask"
putquick "kick $chan $nick :banned: Stop Flooding"
newchanban $chan $banmask $botnick "Stop Flooding" 5
utimer 15 [list unmode1 $c]
}
return 0
}

proc unmode1 chan {
global lockedc
if {$lockedc($chan)} {
set lockedc($chan) 0
putserv "MODE $chan -MR"
}
}

putlog "Flooder Scripts loaded!"

_________________
Follow me on GitHub

- Opposing

Public Tcl scripts

bader1973
Voice

Joined: 28 Apr 2006
Posts: 3
Location: Eng

Posted: Sat Apr 29, 2006 6:59 pm Post subject:

thanks sir (k)

Display posts from previous:

	egghelp.org community Forum Index -> Scripting Help	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum