Radyo TCL'le Eklenti.(!istek,!yes,!no) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

AsiLmavi · 12 Temmuz 2006, 10:33

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

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

#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&#252;re İ&#231;inde İsteginiz yayınlanacaktır."
}

Bu !yes TCL si

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

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

Brain · 12 Temmuz 2006, 20:06

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

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

Kablosuz NET · 31 Temmuz 2006, 23:10

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

set kanal [lindex $a 0]

Satırını 

set kanal [lindex $a ]

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

electronicboy · 18 Ağustos 2006, 21:33

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

electronicboy · 18 Ağustos 2006, 23:13

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
radyo istek	fener1907	mIRC Scripting Sorunları	0	28 Ocak 2010 14:29
radyo tclsi istek	AnoXs	TCL Scriptler	3	24 Mayıs 2009 17:40
Radyo için ekLenti ( yardım pLs)	NoRToN	TCL Scriptler	2	11 Ocak 2009 22:27
!radyo , !istek istek parçasi	Yunus	mIRC Scripting Sorunları	2	21 Temmuz 2008 21:11
Radyo.tcl Eklenti yapabilecek arkadaşlar?	ReiS	Eggdrop, NeoStats, BNC	1	22 Ocak 2008 23:40

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.