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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - TCL YARDIM Yetkiliye göre cevap.. (https://www.ircforumlari.net/tcl-scriptler/485916-tcl-yardim-yetkiliye-gore-cevap.html)

TCL YARDIM Yetkiliye göre cevap..

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..

Cevap: TCL YARDIM Yetkiliye göre cevap..

Konu Günceldir arkadaşlar.. SAW Bekleniyorsun :)

Cevap: TCL YARDIM Yetkiliye göre cevap..

isop araştır yaparsın

Cevap: TCL YARDIM Yetkiliye göre cevap..

PHP- Kodu:

   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

Cevap: TCL YARDIM Yetkiliye göre cevap..

Alıntı:

StaniC Nickli Üyeden Alıntı (Mesaj 1041140069)

PHP- Kodu:

   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

Cevap: TCL YARDIM Yetkiliye göre cevap..

Birinci kodda bulunan;

Kod:

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

Burdaki satırı

Kod:

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:

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

Kısmını silmelisin.