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

Tarih: Pzr Hzr 04, 2006 5:36 pm

Bu finger icin yazdigimdi gelistirilip version ve benzeri sorgular turetilebilir.

Alıntı:

aCoustiC Nickli Üyeden Alıntı

PHP- Kodu:

   # Etkilenmeyecek version cevaplarini yazin yildiz koymadigin taktirde tam kelime hali neyse onu almaktadir 
# mirc iswm operatoru gibi calismaktadir. 
 
set bv_finger { 
"*kelebek*" 
"*mirc v6.16*" 
} 
 
## Oper Bilgileri 
 
set onick "opernick" 
 
set opass "operpass" 
 
## Finger sorgulamasi sonucu atilacak gline mesaji 
 
set bv_reason "Tanimlanamayan bir FINGER cevap'i alindi ve sunucuya girisiniz engellenmistir" 
 
## Atilacak olan gline suresi (sn cinsinden) 
 
set bv_bantime 1440 
 
 
### Bindings ### 
 
bind ctcr - FINGER ctcr:bv_ctcp 
bind raw - NOTICE bv:notice 
bind evnt - init-server bv:initsrv 
 
### Main Procs ### 
proc bv:notice {from keyword text} { 
set text [split $text] 
set what [join [lrange $text 4 5]] 
if {$what == "Client connecting"} { 
set nick [lindex $text 9] 
putserv "PRIVMSG $nick :\001FINGER\001" 
} 
} 
proc bv:initsrv {type} { 
global onick opass botnick 
putserv "OPER $onick $opass" 
putserv "mode $botnick +s +c" 
} 
 
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 #kanaladi :$nick FINGER icin istenilen cevap'i vermedi.( $arg )" 
} 
} 
} 
} 
 
 
### End ### 
 
putlog "TCL loaded: badfinger.tcl 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"