TCL YARDIM Yetkiliye göre cevap.. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

qalpsiz · 31 Mayıs 2012, 09:01

Elimde Şu Şekilde Bir Tcl var

bind pubm _ * islem

proc islem { nick uhost host chan arg } {
global botnick
if {[string match -nocase "Selam Tatlım" "$arg"]} {putquick "PRIVMSG $chan :As TaTlıM Sen nasılsın $nick ?" }

}

Aslında Maksadım Basit Fakat Örnek olarak verdim..

Aynı sistemde

SLM tatlım diyen User ise Cevap vermeyecek, Yetkili ise Cevap Verecek

Slm Nabersiniz Gibi Bir Soruya Cevap Verecek.. Yetkili veya user olmasını Gözetmeksizin..

Amacım kodu farklı Bir şekilde Geliştirmek olduğunu Da belirterek Yardımlarınız için Şimdiden Teşekkür Ederim..

qalpsiz · 01 Haziran 2012, 10:00

Konu Günceldir arkadaşlar.. SAW Bekleniyorsun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

KHS · 08 Haziran 2012, 13:07

isop araştır yaparsın

qeweSe · 11 Haziran 2012, 09:56

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


bind pubm - * yazi
proc yazi {nick uhost hand chan text} {
global botnick
if {isop $nick $chan} { return 0 }
 if {[string match -nocase "*slm*" $text]} { putquick "PRIVMSG $chan :a.s. h.g \2$nick\2"; return 0 }
 if {[string match -nocase "*nbr*" $text]} { putquick "PRIVMSG $chan :Saol Iyiyim Sen nasiLsin \2$nick\2?" ; return 0 }
 if {[string match -nocase "*selam*" $text]} { putquick "PRIVMSG $chan :a.Selam \2$nick\2" ; return 0 }
}
 
bind msgm - * yazim
proc yazim {nick uhost handle text} { 
global botnick
if {isop $nick $chan} { return 0 }
 if {[string match -nocase "*slm*" $text]} { putquick "PRIVMSG $nick :a.Selam \2$nick\2" ; return 0 }
 if {[string match -nocase "*nbr*" $text]} { putquick "PRIVMSG $nick :Saol Iyiyim Sen nasiLsin \2$nick\2?" ; return 0 }
 if {[string match -nocase "*S.a*" $text]} { putquick "PRIVMSG $nick :a.Selam \2$nick\2" ; return 0 }
 if {[string match -nocase "*selam*" $text]} { putquick "PRIVMSG $nick :a.Selam \2$nick\2" ; return 0 }
}
 
putlog "###################################"
putlog "###################################"
putlog "###################################"
putlog "#######Coder by qeweSe ############"
putlog "###################################"
putlog "###################################"

böyle birşeyler heralde

aspawa · 01 Temmuz 2012, 15:19

StaniC Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


bind pubm - * yazi
proc yazi {nick uhost hand chan text} {
global botnick
if {isop $nick $chan} { return 0 }
 if {[string match -nocase "*slm*" $text]} { putquick "PRIVMSG $chan :a.s. h.g \2$nick\2"; return 0 }
 if {[string match -nocase "*nbr*" $text]} { putquick "PRIVMSG $chan :Saol Iyiyim Sen nasiLsin \2$nick\2?" ; return 0 }
 if {[string match -nocase "*selam*" $text]} { putquick "PRIVMSG $chan :a.Selam \2$nick\2" ; return 0 }
}
 
bind msgm - * yazim
proc yazim {nick uhost handle text} { 
global botnick
if {isop $nick $chan} { return 0 }
 if {[string match -nocase "*slm*" $text]} { putquick "PRIVMSG $nick :a.Selam \2$nick\2" ; return 0 }
 if {[string match -nocase "*nbr*" $text]} { putquick "PRIVMSG $nick :Saol Iyiyim Sen nasiLsin \2$nick\2?" ; return 0 }
 if {[string match -nocase "*S.a*" $text]} { putquick "PRIVMSG $nick :a.Selam \2$nick\2" ; return 0 }
 if {[string match -nocase "*selam*" $text]} { putquick "PRIVMSG $nick :a.Selam \2$nick\2" ; return 0 }
}
 
putlog "###################################"
putlog "###################################"
putlog "###################################"
putlog "#######Coder by qeweSe ############"
putlog "###################################"
putlog "###################################"

böyle birşeyler heralde

çalışmıyor bu kod

CLubber · 01 Temmuz 2012, 15:23

Birinci kodda bulunan;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if {isop $nick $chan} { return 0 }

Burdaki satırı

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if {[isop $nick $chan]} { return 0 }

Bu şekilde düzenlediğinde kanaldaki oplara cevap vermez.

Diğer kod özellere cevap veriyor fakat, özelde kanal argümanı bulunmadığı için ikinci koddaki;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if {isop $nick $chan} { return 0 }

Kısmını silmelisin.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Çin demiryollarındaki üst düzey yetkiliye rüşvetten ölüm cezası	Bozkurt-	Haber Arşivi	0	03 Ocak 2014 12:10
Nick'e göre cevap verme.	Mujow	mIRC Scripting Sorunları	6	10 Ocak 2011 21:49
özele !yardim yazildiginda yardim kanalına sajoinlemek	BunaLim	mIRC Scripting Sorunları	2	15 Eylül 2009 15:36

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.