sa.
yaptigin calismalar adina ilk olarak tesekkur ediyorum ...
ama sanirim calismiyor. denedim...
soyle birsey yaptim.. bilmiyorum sonuc'a yaklastim mi yasklasmadim mi ...
ama olmadi ..
Bu code uzerine degisiklikleri yaparak, guzel bir sonuc'a varabiliriz.
Editleme yapmaya calistigim code;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
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.
"
simdiden tesekkur ederim...