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

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

- - Istek TCL v2.0 (https://www.ircforumlari.net/tcl-scriptler/31546-istek-tcl-v20.html)

Cevap: Istek TCL v2.0

Abi radyo kanalında !istek olayı bende olmamıştı onu kendi yöntemimle ayarladım !yes !no olayı gayet güzel çalışıyor elin sağlık

Cevap: Istek TCL v2.0

Alıntı:

NeTDeLiSi Nickli Üyeden Alıntı (Mesaj 238803)

Abi radyo kanalında !istek olayı bende olmamıştı onu kendi yöntemimle ayarladım !yes !no olayı gayet güzel çalışıyor elin sağlık

NeTDeLiSi !istek olayını nasıl hallettin anlatırmısın sana zahmet ben hala çalıştıramadım Teşekkürler.

Yanıt: Istek TCL v2.0

S.a KArdeş Bana KAOS Kelimetüretmece nin tcl leri lazım yani o sana bi soru soruyo veya bir kelime veriyo sen onunla ilgili şeyleri belli bir süre icerisinde söylüyon bu aciL

Yanıt: Istek TCL v2.0

Selamın Aleykum arkadaşlar Bot süper bişeye benziyor ama bunu bende çalıştıramadım Adil :D .Siz diyorsunuz çalışıyor ama ben çalıştıramadım hiç bir şekilde

Not : aCoustiC nerelerdesin görünmüyon :)

Cevap: Istek TCL v2.0

channel add $djkanal
channel add $radyo

1. bu komut satirlarini tcl nin en alt satirlarina ekleyiniz
2. $djkanal inda belirtilen kanalda op olunuz!
3. #radya ve djkanallari nizin modlari +cSmM gibi modlar barindirmamali

ilk verilen kod yetersiz degildir, ama aciklamalarinda belirtigim yazilari pek dikkatli okumadiniz sanirim, op olmaniz gereken kanal, botun girmesi gereken kanal adlari da orada belirtilmekte, size dusen sadece belirtilen kanallara sokmakti.

calisma mantiginda kesinlikle sorun yoktur bizzat 1 kac gun once denedim, ust ust'e istek isteme mantiginin engellendigini de unutmayin, 1. istekten sonra 2. istek isteme suresi 30sn dir!

NOT: Casper dostum PM on ;)

Cevap: Istek TCL v2.0

Alıntı:

NeTDeLiSi !istek olayını nasıl hallettin anlatırmısın sana zahmet ben hala çalıştıramadım Teşekkürler.

PM attım bakabilirsin . Kod çalışıyo olabilir ben çalıştıramadım onun için kod üstüne kod yayınlamak istemem zaten bişide yapmadım sadece ekledim . PM ye cevap verirsen kodları atabilirim ..

Yanıt: Istek TCL v2.0

Merhabalar bu tcl'i calistirmayi basardim sonunda. Ancak ignore kismini error veriyor. Tcl error [istek]: can't read "uhost": no such variable bu konuda yaardimci olabilirseniz sevirim.

Yanıt: Istek TCL v2.0

Tekrardan merhabalar. Nihayet sorunumu cozdum.

Sorunum: İstek istedikten sonra 1 dahaki istek isteme sureniz 1 dk diyor fakat ignore etmiyordu. Yukarda yazdigim hatayla karsilasiyordum ve surekli istek isteyebiliyodu kullanici.

Cozum:

Kod:

newignore $nick!$uhost aCoustiC "Istek Ignore" 1

satirini,

Kod:

newignore $kim!*@* aCoustiC "Istek Ignore" 1

seklinde degisterek halletim. Artik bu ozelliginide kullanabiliyorum. Bot asagidaki sekilde gayet duzgun calisiyor.

Kod:

#gerekli bindler

bind pub - !yes yes

bind pub - !no no

bind pub - !istek istek

bind pub - !msg cevap

bind evnt - init-server baglan_yap

#Gerekli degiskenler

set onick ""

set opass ""

#Dj kanali

set djkanal "#DJ"

#Radyo kanali

set radyo "#Radyo"

#ELLEMEYIN (Siz Bİlirsiniz)
 

proc baglan_yap {type} {

global onick opass

putserv "OPER $onick $opass"

}

proc cevap {nick uhand host chan arg} {

global djkanal radyo

set nick [lindex [split $arg] 0]

if {[isop $nick $djkanal] && [onchan $nick $radyo]} {

putquick "PRIVMSG $radyo :4 [lindex [split $arg] 0] :6[join [lrange [split $arg] 1 end]]"

}

}

proc yes {nick uhand host chan arg} {

global djkanal radyo

set nick [lindex $arg 0]

putquick "PRIVMSG $radyo :4 $nick 6İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."

}

proc no {nick uhand host chan arg} {

global djkanal radyo

set nick [lindex $arg 0]

putquick "PRIVMSG $radyo :4 $nick 6Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."

}

proc istek {nick uhand host chan arg} {

global radyo djkanal

if {[lindex $arg 0] == ""} { return }

dj:ara $nick $arg

}

proc dj:ara {kim mesaj} {

global botnick djkanal radyo

set opbulundu 0

foreach opcuk [chanlist $djkanal] {

if {[isop $opcuk $djkanal] && $opcuk != $botnick} { set opbulundu "1" }

}

if {$opbulundu != "1"} {

putserv "PRIVMSG $radyo :6Üzgünüm 4 $kim 6isteginize cevap verecek dj bulunamadı! Lütfen daha sonra tekrar deneyiniz."

} {

putquick "PRIVMSG $radyo :4 $kim 6Lütfen bekleyiniz. İsteğinizi Kontrol Ediyorum."

putquick "PRIVMSG $djkanal :4 $kim 6Istegi: 12 $mesaj"

putquick "PRIVMSG $radyo :4 $kim 12 $mesaj 6 isteğiniz DJ'lerimize iletilmiştir. Bir sonraki istek isteme süreniz 4 1dk6'dir."

newignore $kim!*@* aCoustiC "Istek Ignore" 1

}

}

channel add $djkanal

channel add $radyo
 

putlog "yapimci : aCoustiC"

putlog "e-mail : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

Cevap: Istek TCL v2.0

arkadaslar bu tclyi bende çalıştıramadım :( bi kaç arkadas bazı değisiklikler
yaparak çalıştırmışlar söylesede bizde yapsak :)

Yanıt: Istek TCL v2.0

Kod:

#gerekli bindler

bind pub - !yes yes

bind pub - !no no

bind pub - !istek istek

bind pub - !msg cevap

bind evnt - init-server baglan_yap
 #Gerekli degiskenler
 set onick ""
 set opass ""
 #Dj kanali
 set djkanal "#DJ"

#Radyo kanali
 set radyo "#Radyo"
 #ELLEMEYIN (Siz Bİlirsiniz)
 
 proc baglan_yap {type} {
 global onick opass

putserv "OPER $onick $opass"

}
 proc cevap {nick uhand host chan arg} {
 global djkanal radyo
 set nick [lindex [split $arg] 0]
 if {[isop $nick $djkanal] && [onchan $nick $radyo]} {

putquick "PRIVMSG $radyo :4 [lindex [split $arg] 0] :6[join [lrange [split $arg] 1 end]]"

}

}
 proc yes {nick uhand host chan arg} {
 global djkanal radyo
 set nick [lindex $arg 0]
 if {$chan == "#DJ"} {

putquick "PRIVMSG $radyo :4 $nick 6İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."

}

}
 proc no {nick uhand host chan arg} {
 global djkanal radyo
 set nick [lindex $arg 0]
 if {$chan == "#DJ"} {

putquick "PRIVMSG $radyo :4 $nick 6Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."

}

}
 proc istek {nick uhand host chan arg} {

global radyo djkanal
 if {$chan == "#Radyo"} {
 if {[lindex $arg 0] == ""} { return }

dj:ara $nick $arg

}

}
 proc dj:ara {kim mesaj} {
 global botnick djkanal radyo
 set opbulundu 0
 foreach opcuk [chanlist $djkanal] {
 if {[isop $opcuk $djkanal] && $opcuk != $botnick} { set opbulundu "1" }

}
 if {$opbulundu != "1"} {

putserv "PRIVMSG $radyo :6Üzgünüm 4 $kim 6isteginize cevap verecek dj bulunamadı! Lütfen daha sonra tekrar deneyiniz."

} {

putquick "PRIVMSG $radyo :4 $kim 6Lütfen bekleyiniz. İsteğinizi Kontrol Ediyorum."

putquick "PRIVMSG $djkanal :4 $kim 6Istegi: 12 $mesaj"

putquick "PRIVMSG $radyo :4 $kim 12 $mesaj 6 isteğiniz DJ'lerimize iletilmiştir. Bir sonraki istek isteme süreniz 4 1dk6'dir."

newignore $kim!*@* aCoustiC "Istek Ignore" 1

}

}

channel add $djkanal

channel add $radyo
 

putlog "yapimci : aCoustiC"

putlog "e-mail : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

Yukarda sorunuma care buldugum mesajdaki kodda !yes !no ve !istek komutlari hem dj hemde radyo kanalinda da calisiyordu. TCL'i calistirmak icin if'leri silmistim. Simdi onlarida ekledim. !yes !no sadece dj kanalinda !istek ise sadece radyo kanalinda bu sekilde gayet duzgun calisiyor. Yanliz "proc yes, proc no ve proc istek" icinde if'lerdeki kanal isimleri kucuk buyuk harfe duyarli. Severinizda nasilsa yazilisi ole olmasi gerekiyor.