Flooder.tcl

[bader1973]

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: Select all

 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]

Code: Select all

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!"

[bader1973]

thanks sir (k)