17 Ocak 2012, 10:35
#1 Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Dj Host,Dj karşılama.Dj yönlendirme TCL
Bu tclnin amacı radyo kanalındaki opları #dj odasına sajoin yapıp ident,host ve fullnamelerini değişip karşılama mesaji ile bilgilendirir ve dj kanalına !sifre yazınca radyo bilgilerini dj kanalına gönderir
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
set opkanal “ #DJ”
channel add $opkanal
bind mode – “ *+ o * ” op : yonlendir
proc op : yonlendir { nick uhost hand chan mc kimdir } {
global opkanal
if {![ string match - nocase "#Radyo" $chan ]} {return 0 }
putquick “sajoin $kimdir $opkanal”
putquick “CHGIDENT $kimdir DJ”
putquick “CHGHOST $kimdir DJlerinizin kullanacagi host”
putquick “CHGNAME $kimdir 4 , 1 \[ 0Djlerin kullanacagi fullname4 \] ”
}
bind time – “ * * * * * ” time : optara
proc time : optara { min hour day month year } {
global opkanal botnick
foreach kanallar [ channels ] {
if { $kanallar == $opkanal } { continue }
foreach opcuk [ chanlist $kanallar ] {
if {[ onchan $opcuk $opkanal ]} { continue }
if {[ isop $opcuk $kanallar ] && $opcuk != $botnick } {
putquick “sajoin $opcuk $opkanal”
}
}
}
}
bind pub – ! sifre sifre
proc sifre { nick uhand host chan text } {
if {![ string match - nocase "#DJ" $chan ]} {return 0 }
putquick “privmsg $chan : 4» Sunucu DJ Panel Şifreleri”
putquick “privmsg $chan : 4»2 IP : radyo ip”
putquick “privmsg $chan : 4»2 Port : portunuz”
putquick “privmsg $chan : 4»2 Şifre : yayinşifreniz”
putquick “privmsg $chan : 4»2 Yayın Kalitesi : yayin kaliteniz ( bitrate ) ”
}
bind join – * msg_tr
proc msg_tr { nick uhost hand chan } {
if {[ string match - nocase "#DJ" $chan ]} {
putquick “notice $nick Merhaba , $nick Hoşgeldiniz”
putquick “notice $nick ”
putquick “notice $nick 4DJ lere mesaj bırakmak için / ms send #dj mesajınız komutunu uygulayınız”
putquick “notice $nick 4Yayın Alabilmek için #DJ kanalına !kickradyo yazınız”
putquick “notice $nick 4Radyo Bilgilerini Görmek için #DJ odasına !sifre yazınız”
putquick “notice $nick ”
putquick “notice $nick 4Teşekkür Ederiz . ”
}
}
Sunucunuza Göre Düzenleyiniz…
kimin yazdığını hatırlamıyorum elimde vardı paylaşmak istedim kullanmak isteyen olabilir