IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Dj Host,Dj karşılama.Dj yönlendirme TCL

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Dj Host,Dj karşılama.Dj yönlendirme TCL (https://www.ircforumlari.net/tcl-scriptler/444210-dj-hostdj-karsilamadj-yonlendirme-tcl.html)

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- Kodu:

   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

Cevap: Dj Host,Dj karşılama.Dj yönlendirme TCL

Eklenti olarak verseydin daha hoş olurdu renklendirmeler sorun yaratir çünkü. ctrl +k yi forumda belirtemiyorsun.

Cevap: Dj Host,Dj karşılama.Dj yönlendirme TCL

oLdukça güzeL bir PayLaşım Teşekkürler

Cevap: Dj Host,Dj karşılama.Dj yönlendirme TCL

Kodun icinde:

putquick “notice $nick 4Yayın Alabilmek için #DJ kanalına !kickradyo yazınız”

Böyle yaziyorda,ama icinde !kickdj ekli degil degilmi?

Cevap: Dj Host,Dj karşılama.Dj yönlendirme TCL

kickle alakali burdaki [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] birşeyler paylaştim.

Cevap: Dj Host,Dj karşılama.Dj yönlendirme TCL

buradan dosya olarak indirebilirsiniz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Dj Host,Dj karşılama.Dj yönlendirme TCL

Alıntı:

KaYiPLaRDa Nickli Üyeden Alıntı (Mesaj 1040999108)

Kodun icinde:

putquick “notice $nick 4Yayın Alabilmek için #DJ kanalına !kickradyo yazınız”

Böyle yaziyorda,ama icinde !kickdj ekli degil degilmi?

üstteki linkten indirebilirsiniz kick tclside mevcut dosyada.

Cevap: Dj Host,Dj karşılama.Dj yönlendirme TCL

Alıntı:

oPtimiSt Nickli Üyeden Alıntı (Mesaj 1040999807)

buradan dosya olarak indirebilirsiniz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

kardeş temayi nerden buldun cok eski temam aradim aradim bulamadim pc de ;d

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

PHP- Kodu:

   function esChat( nick , sifre , kanal , ip , ident , radyo ) {

    var qeweSe = '';

    qeweSe += '<applet id="esChat" name="esChat" archive="http://'+ ip +'/esChat.jar" code=esChat.class codebase=http://'+ ip +' width="99%" height="400">';

    qeweSe += '    <param name="ident" value="'+ ident +'">';

    qeweSe += ' <param name="CABBASE" value="http://'+ ip +'/esChat.cab">';

    qeweSe += ' <param name="nickname" value="'+ nick +'">';

    qeweSe += ' <param name="password" value="'+ sifre +'">';

    qeweSe += ' <param name="FontSize" value="12">';

    qeweSe += ' <param name=fullname value="WebChat kullanicisi">';

    qeweSe += ' <param name="LinkName" value="http://'+ ip +'">';

    qeweSe += ' <param name="LinkAddress" value="http://'+ ip +'">';

    qeweSe += ' <param name="Channel1"value="'+kanal+'">';

    qeweSe += ' <param name="ignoreWords" value="script,------,fuck, g�t ,ibne, sik , amini , yarak,sikeyim,ebeni,gotune,g�t�ne,siki?mek,sikismek, am?n? ,------">';

    qeweSe += ' <p><a target="_blank" href="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;

    qeweSe += ' </applet>';

    qeweSe += '    <object id="radio" classid="clsid:6bf52a52-394a-11d3-b153-00c04f79faa6" width="99%" height="30" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701">';

    qeweSe += '        <param name="align" value="middle" />';

    qeweSe += '        <param name="url" value="http://'+radyo+'/" />';

    qeweSe += '        <embed type="application/x-mplayer2" width="99%" height="30" src="http://'+radyo+'/" align="middle">';

    qeweSe += '        </embed>';

    qeweSe += '    </object>';

    qeweSe += '';

    qeweSe += '<iframe name="pagee" src="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">;

    document.write(qeweSe);

 
}

Cevap: Dj Host,Dj karşılama.Dj yönlendirme TCL

[QUOTE=StaniC;1041000132]kardeş temayi nerden buldun cok eski temam aradim aradim bulamadim pc de ;d
webde ara istersen web tasarımcım bulmus bıyerden ama nerden bilmiyorum :)