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

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:



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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"

simdiden tesekkur ederim...