IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

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

- - DJ Login TCL (https://www.ircforumu.net/tcl-scriptler/2633-dj-login-tcl.html)

Kod:

bind pub - !dj djim

proc djim {nick uhand host chan text} {

if {![isop $nick #DJ]} {return 0} 

putquick "chghost $nick DJ.Adres.Net"

putquick "chgident $nick DJ"

putquick "os raw :ChanServ mode #Radyo +o $nick"

putquick "operserv raw svsmode $nick +Wq :1"

putquick "operserv raw svsnick $nick Dj_$nick :1"

putquick "privmsg $chan $nick Başarıyla DJ Statüsüne Giriş Yaptınız."

putquick "privmsg $nick 4» Radyo DJ Panel Şifreleri"

putquick "privmsg $nick 4»2 IP: Radyo IP"

putquick "privmsg $nick 4»2 Port: Portunuz"

putquick "privmsg $nick 4»2 Şifre: Radyo Şifreniz"

putquick "privmsg $nick 4»2 Maximum Dinleyici: 520"

}

• DJ Login TCL
• #DJ Kanalında Bulunan Bir Kullanıcı Kanala !DJ Yazdığında,
• DJ@DJ.Adres.Net Olarak Host Alır.
• Kişiye #Radyo Kanalında Operator verilir.
• +W [Whois Çekeni Görebilme] +q [Sadece Servicesler Tarafından Kicklenebilme] Modelerini Alır.
• Nicki DJ_* Takısı Alır.
• Özeline Radyo Botun Tarafından Şifreler Gönderilir.
• ÖNEMLİ:
• Botun Nicki Kayıtlı, Admin Listte ve En Az Services Flagında Olması Gerekir.

Cevap: DJ Login TCL

Kod:

## Buraya Komutun Geçerli Olacağı Kanalı Yazın..

set chan "#DJ"
 

## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim ;)
 

bind pub - .kickradyo kickradyo

proc kickradyo {nick host handle chan arg} {

if {![string match -nocase "#Dj" $chan]} {return 0} 

putquick "os raw :ChanServ mode #Radyo +q $nick"

putquick "os raw :ChanServ mode #Dj +q $nick"

putquick "os raw :ChanServ mode #Sohbet +q $nick"

putquick "operserv raw svsmode $nick +Wq :1"

putquick "privmsg $chan $nick 2Başarıyla 4DJ 2Statüsüne Giriş Yaptınız."

putquick "privmsg $nick 4»2 Radyo DJ Panel Şifreleri"

putquick "privmsg $nick 4»2 Radyo IP:Belirtiniz"

putquick "privmsg $nick 4»2 Radyo Port:Belirtiniz"

putquick "privmsg $nick 4»2 Radyo Şifre:Belirtiniz"

putquick "privmsg $nick 4»2 Maximum Dinleyici: 520"

} 
 

putlog "DJ LOGIN sistemi yuklendi" 

putlog "Dj.tcl New Version"

Vermiş olduğun tcl de. Global Kanallarda access yetkisi olanlar kullanabiliyor. Bu benim verdiğim tcl de sadece Dj kanalında geçerlidir. Yayın almak için kullanılan komut eklenmiş olup. Şifreler özele gönderilir.Kırmızı ile çizdiğim yerleri scriptten renklendirmeyi unutmayınız..