IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
# 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"