# DJ'lere verilecek ident'i yazıyoruz.
 
set dj(ident) "DJ"
 
# DJ'lere verilecek hostu yazıyoruz.
 
set dj(host) "DJ.mIRCTurk.com"
 
# DJ'lere verilecek fullname'yi yazıyoruz.
 
set dj(name) "irc.mIRCTurk.com DJ"
 
bind pub - !dj dj:login
proc dj:login {nick uhand host chan text} {
  global botnick dj
  if {[string match -nocase "#DJ" $chan]} {
    putquick "chghost $nick $dj(host)"
    putquick "chgident $nick $dj(ident)"
    putquick "chgname $nick $dj(name)"
    putquick "operserv raw svsmode $nick +Wq :1"
    putquick "operserv raw svsnick $nick Dj_$nick :1"
    putquick "privmsg $chan $nick Başarı ile dj login oldunuz."
  }
}
 
putlog "DJ Login TCL v1.0 - Written By CLubber"