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

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

- - Radyo TCL'le Eklenti.(!istek,!yes,!no) (https://www.ircforumlari.net/tcl-scriptler/20741-radyo-tclle-eklentiistekyesno.html)

Radyo TCL'le Eklenti.(!istek,!yes,!no)

Arkadaşlar Radyonuzda İstekleri Alıyosunuz peki O İstek Parca Yok ise?
O Halde Aşağıdaki 3 Tane Tcl işinize Yarayacaktır.
NOT: İlk TCL Ask_Harfleri Tarafından verilmişti. Diğer 2 TCL yi kendim editledim. kodlaması bana ait değildir.

Alıntı:

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

Bu !istek TCL'si

Kod:

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

}

Bu !yes TCL si

Kod:

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

}

Bu !no TCL'si

NOT:Son iki TCL !yes nick , !no nick Şeklinde Çalışıyor. Yani #dj Kanalında Dj niz !yes nick !no nick Şeklinde Kontrol Edebilir. Denedim Calışıyor. Örnegi Aşağıda

««( Xion )»» !istek Sezen Aksu Ham Yapar Bu ziLLiLer
««( Radyo_Bot )»» Xion İsteğinizi Kontrol Ediyorum.Lütfen bekleyiniz.
««( Radyo_Bot )»» Xion : Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır..Başka Bir İstekte Bulunabilirsiniz.

Güle Güle Kullanın ;)

Yanıt: Radyo TCL'le Eklenti.(!istek,!yes,!no)

asilmavi iyi bir calisma tebrikler.

Ufak hatalari ve gereksiz degiskenleri kaldirdim. Bu sekilde tek bir paket haline geldi ve sanirim daha kolay oldu kullanimi

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

#ELLEMEYIN (Siz Bİlirsiniz)
 

proc baglan_yap {type} {

  global inick ipass

  putserv "OPER $inick $ipass"

  putserv "WALLOPS :Basari ile Login Oldum :)"

}
 

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

}

Kullanimi

!yes nick (parcanin mevcut oldugunu bildirir)

!no nick (parcanin mevcut olmadigini bildirir)

!istek mesaj ( dj kanalina istenilen parcayi ve nick'i , isteyen kisiyede bir uyari mesaji ile uyarilmasi saglanir.)

Yanıt: Radyo TCL'le Eklenti.(!istek,!yes,!no)

bi yerde hata var ama düzeltemedim bi türlü birde siz bakarmısınız....kanalda
!istek Yüksek Sadakat Beli Üstümüzden Bir Kuş Geçer Tüm Sohbetlereye Gelsin Yazınca.... #DJ kanalında bot sadece

[23:10:06] <+DJ-Bot> İstek İsteyen Nick tesd İsteği: yüksek

yazıyor bunu düzeltmek için

Kod:

set kanal [lindex $a 0]
 

Satırını 
 

set kanal [lindex $a ]

Şeklinde değiştirdim ama bu kezde bot istekleri algılamıyor....

Yanıt: Radyo TCL'le Eklenti.(!istek,!yes,!no)

Arkadaslar ben bunu istek.tcl olarak eggdrop/scripts içine koydum ve radio.conf ta istek.tcl yi ekledim. kanalda bota istek yazinca #dj kanalina mesaj yollamiyor. Fakar radyoda istegi algiliyor. #DJ kanalina hic girmiyor ne yapmam gerekiyor.

[21:33:02] <Mesghul> !istek gülay-cesaretin varmı aşka
[21:33:03] <@Radyo> Mesghul Lütfen bekleyiniz. İsteginizi Kontrol Ediyorum.

Fakat #Dj Kanalinda hiç birsey yok. simdiden tskler...

Yanıt: Radyo TCL'le Eklenti.(!istek,!yes,!no)

cd eggdrop
pico radyo.conf

channel add #Radyo {
chanmode "+nrt"
idle-kick 0
}

yazan yerin altina

channel add #DJ {
chanmode "+nrt"
idle-kick 0
}

bunu kopyaliyoruz.

ctrl + x y enter

cd scripts
pico istek.tcl

#gerekli bindler
bind pub - !yes yes
bind pub - !no no
bind pub - !istek istek
bind evnt - init-server baglan_yap
#Gerekli degiskenler
set inick "bot"
set ipass "botcuka"
#ELLEMEYIN (Siz Bİlirsiniz)
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum :)"
}
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]
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."
}

ctrl+X Y enter

cd ..
cd ..
ps x
kill -9 pid.radyo
cd eggdrop
./eggdrop -m radyo.conf

sanirsam simdi sorun kalmadi :)