Radyo Karsılama (Tcl)

Radyo Karsılama TCL Serverınızda radyo kanalına giren kişilere radyo linkini veren ve özelden !winamp ve !media komutlarıyla radyo linkini veren bir bottur.

#########################
#RADYO TCL by HaLiKaRNaS#
#   www.mircnet.Org   #
#########################
bind join – * join_yardim
bind pub – yardim pub_yardim
bind msgm – yardim pub_yardim
bind msgm – yardim msg_help
bind msgm – website msg_website
bind msgm – winamp msg_winamp
bind pub – yardim msg_yardim

proc join_RADYO {nick uhost handle chan} {
if {$chan == “#radyo”} {
putserv “NOTICE $nick :$nick Yarfm’e HosgeLdiniz .”
putserv “NOTICE $nick :Websiteden Dinlemek icin:  http://yarfm.com”
putserv “NOTICE $nick :Winamptan Dinlemek icin: http://85.214.36.135:3232/listen.pls ”
putserv “NOTICE $nick :Yardim Almak icin ozelime 4RADYO yaziniz.”
putserv “NOTICE $nick :Lutfen /remote off yapmayi unutmayiniz.”

}

return 1

}

proc msg_help { nick uhost handle text } {
putserv “PRIVMSG $nick :$nick , Radyomuzu iki sekilde dinleyebilirsiniz:”
putserv “PRIVMSG $nick :- Web Sayfamizdan dinlemek hakkinda yardim icin: ( website )”
putserv “PRIVMSG $nick :- Winamp Listesinden dinlemek hakkinda yardim icin: ( winamp )”
putserv “PRIVMSG $nick :–> Yardim almak istediniz hangisi ise onu yazin. <–” }

proc msg_website { nick uhost handle text } {
putserv “PRIVMSG $nick :Radyoyu websitesinden dinlemek icin gerekenler Nelerdir:”
putserv “PRIVMSG $nick :Windows Media Player Son surumunu indirmeniz gerekiyor”
putserv “PRIVMSG $nick :http://microsoft.com/windows/windowsmedia/9Series/GettingStarted//download/download.asp”
putserv “PRIVMSG $nick :Windows Media Playeri yukardaki Adresten indirebilirsiniz.”
putserv “PRIVMSG $nick :Yükledikten sonra http://yarfm.com/ adresinden Online Radyo dinleyebilirsiniz.” }

proc msg_winamp { nick uhost handle text } {
putserv “PRIVMSG $nick :Winamptan dinlemek icin 3 cesit yol vardir”
putserv “PRIVMSG $nick : http://85.214.36.135:3232/listen.pls”
putserv “PRIVMSG $nick :1) Winampin ADD yerine girerek ADD URL secip adres yerine yukardaki adresi yazip OPEN diyin”
putserv “PRIVMSG $nick :2) Yukardaki Adrese tiklayarak onunuze gelen Kaydetmede DOSYAYI AC diyerek direk acabilirsiniz.”
putserv “PRIVMSG $nick :3) Yukardaki Adrese tiklayarak Bilgisayarinize PLS dosyasini kaydedip kaydedilen dosyayi Winamp listesine atarak calistirabilirsiniz.” }