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

Alıntı:

# Etkilenmeyecek version cevaplarini yazin yildiz koymadigin taktirde tam kelime hali neyse onu almaktadir
# mirc iswm operatoru gibi calismaktadir.
set admin_chan "#opers"
set bv_finger {
"*kelebek*"
"*mirc v6.16*"
"*mirc*"
"*v*"
"*eggdrop*"
"*eggdrop v1.6.17*"
"*Chatfox*"
"*java*"
"*yaprak*"
"*eggdropv1.6.17*"
"*Script*"
"*Elit*"
"*take*"
"*Yuzuk*"
"*yüzük*"
"*mIRC*"
"*esChat*"
"*seconds*"
"*zurna*"
"*Max*"
"*«»*"
"*Final*"
"*%*"
"mIRC v1.0*"
"mIRC v6.35*"
"mIRCv6.35*"
"mIRCv1.0*"
"Türkçe mIRC v1.0*"
}

## Oper Bilgileri

set onick "sanane"

set opass "asdasd"

## Finger sorgulamasi sonucu atilacak gline mesaji

set bv_reason "4Banlandiniz!.. 2Kurallara uymadiginiz tespit edilmistir. Sunucu kurallarina uymadiginiz icin uzaklastirildiniz. Bilgisayar4(lar)2'inizda 4virus(trojan)2 Olabilir. Lutfen temizleyiniz... Guvenli Girisler icin,4 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 2Adresini Kullanabilirsiniz..."

## 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 "SAJOIN $nick #spam "
putserv "shun $nick +2h mIRCBot/Saldiri"
putserv "PRIVMSG #opers :$nick FINGER icin istenilen cevap'i vermedi.( $arg ) #spam "
}
}
}
}

### End ###

putlog "TCL loaded: badfinger.tcl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"

belirledigim scriptleride shunluyor napmam lazım finger'i gecmesi için ekledigim scriptlerin?