set bv_bantime 1440 
set admin_chan "#admin"
set bv_reason "4Banlandiniz!.. Script'inizi  Lutfen Kontrol Ediniz.." 
set bv_finger { 
"*kelebek*" 
"*mirc v6.16*" 
"*mirc*"
"*v*"
"*eggdrop*"
} 
bind ctcr - FINGER ctcr:bv_ctcp 
 
bind raw * notice ssnotice
proc ssnotice {from keyword arg nick uhost hand dest key} {
if {$what == "Client connecting"} { 
putserv "CTCP $nick :VERSION" 
putserv "CTCP $nick :FINGER"
}
proc ctcr:bv_ctcp {nick uhost hand dest key arg} { 
global botnick bv_finger bv_bantime bv_reason 
if {[string tolower $nick] != [string tolower $botnick]} { 
foreach finger $bv_finger { 
if {[string match "[string tolower $finger]" [string tolower $arg]]} { 
return 
} else { 
putserv "GLINE $nick $bv_bantime :$bv_reason" 
putserv "PRIVMSG #Admin :$nick FINGER icin istenilen cevap'i vermedi.( $arg )" 
}
 
putlog "TCL loaded: badfinger.tcl 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"