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