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"
}

## 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"