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/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   Istek TCL Yardım (https://www.ircforumlari.net/eggdrop-neostats-bnc/174620-istek-tcl-yardim.html)

Hayat 25 Ocak 2009 21:59

Istek TCL Yardım
 
Merhaba Arkadaşlar elimde radyo için bir istek.tcl si var gayet stabil çalışıyor ama bir takım değişiklikler yapmak istiyorum yardımcı olabilirmisiniz.

Şimdi. Botun ismin Aysecik, Aysecik #diyalog ve #radyo kanallarında hem yayın reklamı yapıyor hemde !istek şarkı komutuyla istek alıyor ve aldığı isteği #DJ kanalına gönderiyor (tabi bu arada dj kanalında da bulunuyor bu bot.) istek yapan usere ise #diyalog ve #radyo kanalıdan isteğiniz alındı teşekkürler diyor. Şimdi ben isteklerin bu iki kanaldan değil de Aysecik botunun özelinden yapılmasını istiyorum yine özele !istek şarkı komutu uygulandığında bot isteği #dj kanalına gönderecek ve usere kanalda değil yine özelde cevap verecek isteğiniz alınmıştır diye. Bu değişikliği nasıl yaparım acaba biraz uğraştım ama olmadı ?

tcl dosyası :

Kod:

#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 : 4İsteğiniz Sıraya Alınmıştır 2$gnick Teşekkür Ederiz."
    putserv "PRIVMSG #Diyalog : 4İsteğiniz Sıraya Alınmıştır 2$gnick Teşekkür Ederiz."
}


BuCaLI 25 Ocak 2009 22:12

Cevap: Istek TCL Yardım
 
Kod:

#gerekli bindler
bind msg - !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 a} {
putserv "PRIVMSG #DJ 4İstek İsteyen Nick 2 $n 4İsteği:2 [lindex $a ]"
putserv "PRIVMSG $n : 4İsteğiniz Sıraya Alınmıştır 2 $n Teşekkür Ederiz."
}



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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk