egghelp/eggheads community

Flooder.tcl

2006-04-29T18:59:36-04:00

thanks sir (k)

Statistics: Posted by bader1973 — Sat Apr 29, 2006 6:59 pm

Flooder.tcl

2006-04-29T09:00:58-04:00

Code:

bind flud - ctcp bfldrbind flud - join bfldrproc 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!"

Statistics: Posted by Sir_Fz — Sat Apr 29, 2006 9:00 am

Flooder.tcl

2006-04-29T08:03:35-04:00

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

Code:

 bind flud - ctcp bfldrbind flud - join bfldrproc 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" 5utimer 15 "unmode1 $chan"return 0}proc unmode1 {chan} {putserv "MODE $chan -MR"}putlog "Flooder Scripts loaded!"

Statistics: Posted by bader1973 — Sat Apr 29, 2006 8:03 am