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

SaNaLStaR · 19 Haziran 2010, 21:08

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

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

SaNaLStaR · 20 Haziran 2010, 17:30

konu günceldir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Finger	PySSyCaT	Bilgisayar Sözlüğü	0	05 Şubat 2016 18:18
VB irc bot ping ve finger sorunu	infinitive	Visual Basic	4	05 Ağustos 2013 14:02
FINGER.TCL Sorun..	SaNaLStaR	Eggdrop, NeoStats, BNC	0	17 Haziran 2010 22:46
Finger Sorunu	SaNaLStaR	Eggdrop, NeoStats, BNC	0	10 Haziran 2010 17:13
Bot Finger Versiyon Sorunu	daRkb0y	mIRC Scripting Sorunları	8	09 Ocak 2010 15:40

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.