Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind msg - "*" msg_ban
proc msg_ban {nick uhost handle text} {
global botnick
if {$nick == $botnick} {return}
putquick "GZLINE $nick 8h 4IRC kültürüne aykırı hareket"
putquick "PRIVMSG #Opers $nick isimli kullanıcı $botnick nickinin özeline mesaj göndermiştir ve sunucudan uzaklaştırılmıştır. Yazdığı mesaj: $text"
}
putlog "Eggdrop Ban TCL v1.0 CLubber"
Denemedim, problem olursa yazarsın.