# Kanalda Flood yapan kullanıcı'ya Ban Kick Atan Tcl
# IUC (ufuk CINGAY-Ekim 2024) iuc@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com
 


## Ban Kick Mesajı
set flkick "Flood Yapmak Yasaktır.. Yasaklandınız....!"

## Kick Süresi (Bunu dilediğiniz gibi ayarlayın)
set fldura 600

bind flud - pub flchan
proc flchan {nick uhost hand type chan} {
  global flmask flkick fldura
 if {[isop $nick $chan] == "0"} {
 set flmask *!*@[lindex [split [getchanhost $nick $chan] "@"] 1]
 putserv "MODE $chan +b $flmask"
 putserv "KICK $chan $nick :$flkick"
 utimer $fldura [list putserv "MODE $chan -b $flmask"]
 return 1
  }
}

putlog "Basit antiFlood Tcl IUC 2024"