IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet odaları

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 17 Ocak 2012, 10:35   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 Portportunuz”
putquick “privmsg $chan 
:4»2 Şifreyayinşifreniz”
putquick “privmsg $chan 
:4»2 Yayın Kalitesiyayin 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

 
Alıntı ile Cevapla

 

Etiketler
dj, host, karşılamadj, tcl, yönlendirme


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Dualarla Yönlendirme efLatun İslamiyet 0 02 Aralık 2011 19:49
Hub Yönlendirme? g3z3g3n Unreal IRCd 3 24 Eylül 2011 20:27
Status'a yönlendirme. Fuzbing mIRC Scripting Sorunları 3 23 Eylül 2010 01:31
user host help host dj host sorunu !! darl Unreal IRCd 8 17 Nisan 2008 11:29