Istek TCL v2.0 - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

NeTDeLiSi · 21 Temmuz 2007, 15:50

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

Neotr · 24 Temmuz 2007, 13:33

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

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.

erroneous · 25 Temmuz 2007, 00:06

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

1Casper · 28 Temmuz 2007, 23:23

Selamın Aleykum arkadaşlar Bot süper bişeye benziyor ama bunu bende çalıştıramadım Adil
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.Siz diyorsunuz çalışıyor ama ben çalıştıramadım hiç bir şekilde

Not : aCoustiC nerelerdesin görünmüyon
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Brain · 29 Temmuz 2007, 12:34

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

NeTDeLiSi · 12 Ağustos 2007, 00:29

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

tarzan · 12 Kasım 2007, 23:19

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.

tarzan · 23 Kasım 2007, 00:01

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: Kodu kopyalamak için üzerine çift tıklayın!

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

satirini,

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

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

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

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

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

hipokrat · 26 Kasım 2007, 10:01

arkadaslar bu tclyi bende çalıştıramadım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bi kaç arkadas bazı değisiklikler
yaparak çalıştırmışlar söylesede bizde yapsak
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

tarzan · 26 Kasım 2007, 21:17

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

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
TCL istek	Sephiroth	Eggdrop, NeoStats, BNC	1	16 Kasım 2012 02:55
TCL istek	aquabluee	Eggdrop, NeoStats, BNC	0	02 Kasım 2012 21:52
TCL iStek..	n1ks1z	Eggdrop, NeoStats, BNC	0	02 Aralık 2010 09:22
!radyo , !istek istek parçasi	Yunus	mIRC Scripting Sorunları	2	21 Temmuz 2008 21:11
tcl istek	hipokrat	TCL Scriptler	0	17 Ocak 2008 09:08

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.