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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

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

Brain

14 Mayıs 2007 04:33

Istek TCL v2.0

Sanirim 5 aydan uzun 1 sure once yapmistim, amaci djlerin olmadigi saatlerde istek istemenin engellenmesi ve bu sayede de kullanicinin ayrica uyarilmasiydi, ayrica DJ lerin kanal icinde birebir kullanicilar ile yuz goz olmalari yerine botu kanal icerisinde konusturabilme yetkiside kazandirmakti. Boylece DJ kullanici ile birebir degil bor araciligi ile kanala yazi yazabilecek ve kullanici kesinlikle dj ile ozelden istek isteme lakaitlik gibi davranislar sergileyemeyecekti.

# alttarafta gorundugu gibi istek istemek yine klasik bir sekilde calismakta
!istek falancafilan - falancasarkisi

Yalniz !istek komudu uygulandigi zaman eger belirtilen dj kanalinda op yoksa dj de yok olarak algilanacak ve isteklerin reddedildigi sebebininde yayini surduren 1 dj yin olmadigini kullaniciya belirtecektir. (Bu size yayini otamatik yapma isteklere artik cevap vermeme gibi 1 cok avantaj saglayabilir, yapilma amacida zaten buydu ;)

# yine klasik !yes ve !no islemleri
!yes nick
!no nick

istegin kabul ve reddedilme secenekleri !yes nick ile istegin kabul edildigini
!no nick ile de istegin bulunmadigini ve baska 1 istek istemesini bot otomatik olarak sizin yerinize dile getirecektir. (!yes !no islemleri yalnizca botun dj lerin bulundugu kanalda calisacaktir.)

# Alttaki komut dj kanalinda calismaktadir
!cevap nick Selam nasilsin

Bu sayede belirtilen nick'e radyo kanalinda botun sizin yerinize cevap vermesi saglanmaktadir. Bahsettigim gibi dj kimligini saklamak hava civa islerini pek sevmeyenler icin dusundugum 1 seydir ;) (dj kimse kim sen istedigini iste beni tanimak zorunda degildin diyen djlere ozel)

NOT: !istek komudu kullanici tarafindan yalnizca 1 kere kullanilabilir ve tam olarak 1dk sonra yeniden istek istemesine izin verilecek sekilde ayarlanmistir (Bu da salak sulak istek isteyenlerin sn basi !istek falanca dilan yazmasina engel olmak icin dusunulmustur)

PHP- Kodu:

   #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 "opernick"
set opass "opersifre"
#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 {$chan != $djkanal} { return }
if {[isop $nick $djkanal] && [onchan $nick $radyo]} {
putquick "PRIVMSG $radyo :\002[lindex [split $arg] 0]\002 :[join [lrange [split $arg] 1 end]]"
}
}
proc yes {nick uhand host chan arg} {
global djkanal radyo
set nick [lindex $arg 0]
if {$chan != $djkanal} { return }
putquick "PRIVMSG $radyo :\002$nick\002 :\0034İ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 != $djkanal} { return }
putquick "PRIVMSG $radyo :\002$nick\002: \0034Ü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} { return }
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 $kim :Uzgunum $kim isteginize cevap verecek dj bulunamadi! lutfen daha sonra tekrar deneyiniz."
} {
putquick "PRIVMSG $radyo :\002$kim\002 \0034Lütfen bekleyiniz. İsteginizi Kontrol Ediyorum."
putquick "PRIVMSG $djkanal :\00302$kim \00306Istegi: \00302$mesaj"
putquick "PRIVMSG $kim :\002$kim\002 \00302$mesaj\00302 isteginiz DJ lerimize iletilmistir, bir sonraki istek isteme sureniz 1dk dir" 
newignore $nick!$uhost aCoustiC "Istek Ignore" 1
}
}
putlog "yapimci : aCoustiC"
putlog "e-mail : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

Kim tarafindan yapildi aCoustiC (ben) ;bigeyes
Kim tarafindan dusunuldu 1 tuvalet faciasi ve ricadan kaynaklanan teknik 1 aksaklik :(

Ne yapabilirsin bu TCL yi Kivirip kivirip ben yaptim diyip egonu tatmin edebilirsin, belli bir sure sonra hic 1 sey ogrenmedigini ve 5para etmedigini de anlayacagin kesindir, Yada alir once mantigini anlamaya ve TCL yazilimini ogrenmeye calisir simdi 1 sey degilsen sonra olmak icin 1 adim atmis olabilirsin. Bu nedenle Kaynak kodlari kesinlikle gizlenmemistir (Adil Bülbül). ;scare

Neotr

19 Temmuz 2007 15:03

Cevap: Istek TCL v2.0

Tcl için teşekkürler dostum yine süpersin ama bunu çalıştıramadım ben :P kodu aynen attım ama nafile !istek !msg !yes !no hiç biri çalışmıyor :S acaba deneyen çalıştıran arkadaş varmı varsa yardımcı olabilirse sevinirim teşekkürler

Brain

19 Temmuz 2007 16:58

Cevap: Istek TCL v2.0

#Dj kanali
set djkanal "#DJ"

burada belirtilecek kanal da

!yes !no !msg

komutlari

#Radyo kanali
set radyo "#Radyo"

burada belirtilen kanalda da yalnizca !istek komudu calisacaktir, kanallari yanlis belirtmis olabilirsin dikkat edersen sanirim sorunun bu kanallarin dogru yazilmamasindan kaynaklaniyor.

Neotr

19 Temmuz 2007 21:35

Cevap: Istek TCL v2.0

Yok aCoustiC dogru dostum zaten hiç ellemedim ayrıca artık seni göremiyorum hiç msn lerde filan :P

MavipikSeL

19 Temmuz 2007 21:38

Cevap: Istek TCL v2.0

Alıntı:

aCoustiC Nickli Üyeden Alıntı

Kim tarafindan dusunuldu 1 tuvalet faciasi

Süpersin, tebrikler. :D

BuCaLI

19 Temmuz 2007 23:03

Cevap: Istek TCL v2.0

aCoustiC unuttun yine beni iki haftadır bekliyorum hani bişey(?) öğreticektin bana :(

KurtaLan

20 Temmuz 2007 02:07

Cevap: Istek TCL v2.0

Tebrikler aCoustiC , teşekkür ederiz.

NeTDeLiSi

20 Temmuz 2007 11:01

Cevap: Istek TCL v2.0

Abicim bende ellemeden yaptım bendede çalışmadı bi sorun var sanırsam

_DraCuLa_

21 Temmuz 2007 07:58

Cevap: Istek TCL v2.0

Tebrik Ediyorum seni arkadas. eline emeğine sağlık.

Brain

21 Temmuz 2007 12:20

Cevap: Istek TCL v2.0

Alıntı:

Neotr Nickli Üyeden Alıntı (Mesaj 238009)

Alıntı:

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

Abicim bende ellemeden yaptım bendede çalışmadı bi sorun var sanırsam

Emin olmama ragmen bu gun yeniden denedim belki hatali 1 satir eklemis olabilirim diye, lakin hic bir sorun yasamadan duzenli olarak calismaktadir. Calisma prensibinde herhangi 1 hata bulunmamaktadir, aciklamamda da belirttigim gibi dj kanalinda op yoksa zaten calismayacaktir.

Bunun disinda renkli mesajlardan dolayi, kanalinizda +c modu varsa mesajlar kanala gonderilemedigi icin ne yazik ki calismadidigini dusunmenize neden olacaktir.

yine ilk aciklamamda anlattigim gibi, dj kanalinda op degilseniz bot calismaz ve dj komutlarini dinlemeyecektir.

NeTDeLiSi

21 Temmuz 2007 15:50

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

Neotr

24 Temmuz 2007 13:33

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.

erroneous

25 Temmuz 2007 00:06

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

1Casper

28 Temmuz 2007 23:23

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 :)

Brain

29 Temmuz 2007 12:34

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 ;)

NeTDeLiSi

12 Ağustos 2007 00:29

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

tarzan

12 Kasım 2007 23:19

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.

tarzan

23 Kasım 2007 00:01

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

hipokrat

26 Kasım 2007 10:01

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 :)

tarzan

26 Kasım 2007 21:17

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.

hipokrat

26 Kasım 2007 22:59

Cevap: Istek TCL v2.0

proc baglan_yap {type} {
global onick opass
putserv "OPER $onick $opass"
}

arkadaslar kusura bakmayında pek anlayamadım ben buraya oper
sifresi girilecekmi girilecekse başlarında $ bu işaretler kalıyomu

CanCeL

26 Kasım 2007 23:19

Cevap: Istek TCL v2.0

Kod:

set onick "opernick"
 set opass "opersifre"

Sadece o kısma oper bilgilerine gireceksin...
-

Kod:

proc baglan_yap {type} {
 global onick opass

putserv "OPER $onick $opass"

}

Bu kısma dokunma..

hipokrat

27 Kasım 2007 14:14

Cevap: Istek TCL v2.0

bot dj kanalına girdi ama !istek yapamadım :(
çalıştıranlar bi bakabilirmiler rica etsem

GemLik

28 Kasım 2007 16:02

Cevap: Istek TCL v2.0

Alıntı:

aCoustiC Nickli Üyeden Alıntı (Mesaj 214685)

# Alttaki komut dj kanalinda calismaktadir
!cevap nick Selam nasilsin

Bu sayede belirtilen nick'e radyo kanalinda botun sizin yerinize cevap vermesi saglanmaktadir. Bahsettigim gibi dj kimligini saklamak hava civa islerini pek sevmeyenler icin dusundugum 1 seydir ;) (dj kimse kim sen istedigini iste beni tanimak zorunda degildin diyen djlere ozel)

[/

bu !cevap çalışmıor !msg nick deneyincede sadece kanalda @ opların nicki çıkıor !msg user msj yaptımı olmuor bir bakarmısınız

tarzan

29 Kasım 2007 21:51

Yanıt: Istek TCL v2.0

Kod:

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]]"

}

}

satirini,

Kod:

proc cevap {nick uhand host chan arg} {

global djkanal radyo

set nick [lindex [split $arg] 0]

if {$chan == "#dj"} {

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

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

}

}

}

seklinde degistirip dj kanalinda,

!msg gemlikliali selam nasilsin?
yazdigimda
<Radyo> gemlikliali : selam nasilsin?
cevabini aldim.

GemLik

02 Aralık 2007 16:37

Cevap: Istek TCL v2.0

denedim çalışmıor senin dediğin değişikliği yaptımm...

tarzan

02 Aralık 2007 20:18

Yanıt: Istek TCL v2.0

Kod:

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

kisimini

Kod:

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

olarak birdaha denermisin. Benim kendi localhostumda 0 olarak calisti internetteki serverimda 1 olarak calisti. 1 de #dj ve #radyo kanal isimlerini yazarken buyuk kucuk harfe dikkat etmek gerio serverda nasil kaydedildiyse oda ismi tcl e de ole yazmak gerekio.

GemLik

02 Aralık 2007 20:39

Cevap: Istek TCL v2.0

aynen kontrol eddim 1 ve 0 ikisinide denedim olmadı arkadaşım sorun neyde olabilirki ?

hipokrat

06 Aralık 2007 10:38

Cevap: Istek TCL v2.0

Arkadaslar aşağıdaki tcl ile sorunsuz çalıştırdım çalıştaramayan arkadaşlar
bu tcl yi kullansınlar

Kod:



#gerekli bindler 

bind pub - !yes yes 

bind pub - !no no 

bind pub - !istek istek 

bind evnt - init-server baglan_yap 

#Gerekli degiskenler 

set inick "opernick" 

set ipass "opersifre" 

#ELLEMEYIN (Siz Bİlirsiniz) 

proc baglan_yap {type} { 

global inick ipass 

putserv "OPER $inick $ipass" 

putserv "WALLOPS :Basari ile Login Oldum FPRIVATE "TYPE=PICT;ALT=" " 

} 

proc yes {n u h c a} { 

set kanal [lindex $a 0] 

putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır." 

} 

proc no {n u h c a} { 

set kanal [lindex $a 0] 

putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz." 

} 

proc istek {n u h c a} { 

set kanal [lindex $a 0] 

putserv "PRIVMSG #DJ :\0034İstek İsteyen Nick \002$n\0034 İsteği:\001 $kanal" 

putserv "PRIVMSG #Radyo :\002$n \0034Lütfen bekleyiniz. İsteginizi Kontrol Ediyorum." 

} 

#gerekli bindler 

bind pub - !istek istek 

bind evnt - init-server baglan_yap 

proc baglan_yap {type} { 

global inick ipass 

putserv "OPER $inick $ipass" 

putserv "WALLOPS :Basari ile Login Oldum " 

} 

proc istek {n u h c a} { 

global gnick 

set gnick $n 

set kanal [lindex $a ] 

putserv "PRIVMSG #DJ 4İstek İsteyen Nick 2$gnick4 İsteği:2 $kanal" 

putserv "PRIVMSG #Radyo : 2$gnick 4Lütfen bekleyiniz.İsteginizi Kontrol Ediyorum." 

} 

#gerekli bindler 

bind pub - !yes yes 

bind evnt - init-server baglan_yap 

proc baglan_yap {type} { 

global inick ipass 

putserv "OPER $inick $ipass" 

putserv "WALLOPS :Basari ile Login Oldum " 

} 

proc yes {n u h c a} { 

global gnick 

set gnick $n 

set kanal [lindex $a ] 

putserv "PRIVMSG #Radyo 2$kanal : 4İsteğiniz Arşivimizde Mevcut.Kısa Süre İçinde İsteginiz yayınlanacaktır." 

} 

#gerekli bindler 

bind pub - !no no 

bind evnt - init-server baglan_yap 

proc baglan_yap {type} { 

global inick ipass 

putserv "OPER $inick $ipass" 

putserv "WALLOPS :Basari ile Login Oldum " 

} 

proc no {n u h c a} { 

global gnick 

set gnick $n 

set kanal [lindex $a ] 

putserv "PRIVMSG #Radyo 2$kanal : 4Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır..Başka Bir İstekte Bulunabilirsiniz." 

}

woody

06 Haziran 2008 15:03

Cevap: Istek TCL v2.0

Conf olarak ne kullanıoruz

GemLik

06 Haziran 2008 17:04

Cevap: Istek TCL v2.0

Alıntı:

woody Nickli Üyeden Alıntı (Mesaj 481980)

Conf olarak ne kullanıoruz

eğer radyo botunuz var ise yeni bir conf yaratmanıza gerek yok bu tcl yi alarak scrip klasörüne atıyorsunuz ve radyo botunuzun conf una şu satırı ekliyorsunuz

Kod:

source scripts/istek.tcl

Siber55

06 Haziran 2008 18:46

Cevap: Istek TCL v2.0

Eyw.. poaylaşımın icin sagoL

Slyt	06 Haziran 2008 19:25

Cevap: Istek TCL v2.0

çalıstıramadım:)

woody

07 Haziran 2008 00:15

Cevap: Istek TCL v2.0

bende calışıo yanlız 2 sorunum var
[23:54] <ScanX> butterfly Lütfen bekleyiniz.İsteginizi Kontrol Ediyorum.
[23:54] <ScanX> : Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır..Başka Bir İstekte Bulunabilirsiniz.
kime üzgün oldunuda soyleyebilirmi yani kimin istek şarkısnın olmadını.
örnek: [23:54] <ScanX> : Selma Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır..Başka Bir İstekte Bulunabilirsiniz.
bide bi kişi 5 dakkada bir istek isteyebilsin ama yukardaki mesajda isteyi bulunmayan kişi yeniden isteyebilsin 5 dakka beklemek zorunda kalmasın
bu nasıl olabilir mantık olarak !no yaptımız kişi istek istemiş gözükmesin

GemLik

07 Haziran 2008 00:35

Cevap: 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 OPERNİCK OPERPASS"

}

proc cevap {nick uhand host chan arg} {

global djkanal radyo

set nick [lindex [split $arg] 0]

if {$chan == "#dj"} {

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

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 5dk6'dir."

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

}

}

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

Bu tcl 5dk bir istek istenmesini sağlar fakat diyelim eğer istek yok ise tekrar istek istenme gibi şans yok çünkü istek komutunu kullanan userleri ignore ediyor bot diğer bir sorunuza yanıt ise !no nick yada !yes nick şeklindedir.

woody

07 Haziran 2008 01:28

Cevap: Istek TCL v2.0

yayında kimse olmadı halde yine istek alıo
[01:29] <ScanX> Suan Yayında Dj buLunmamaktardır.
[01:29] <weliii> !istek zara flflf
[01:29] <ScanX> weliii Lütfen bekleyiniz. İsteğinizi Kontrol Ediyorum.
[01:29] <ScanX> weliii isteğiniz DJ'lerimize iletilmiştir. Bir sonraki istek isteme süreniz 5dk'dir.

bide. boş istek, yanlış bicimde istek yapanlara şoyle bi uyarı gelebilirmi
Bos istek gondermeyiniz nick Örnek: !istek sanatcı şarkı mesajın.1 dk Sonra tekrar deneyin.
ve bu kişyi 1 dakka ignore edicek.kusursuz bu radyo istek tcl cıkmış olur ortaya. bence tabi.

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:52.