set reklam(komut) "!global"
set reklam(kanal) "#dj"
set reklam(link) "IP ADRESI"

bind pub - $reklam(komut) global:dj  
proc global:dj {nick uhost hand chan text} { 
global botnick reklam
  set reklam(dj) "[lindex $text 0]" 
  if {[string match -nocase "$reklam(kanal)" $chan]} {
    if {[string match -nocase "" $reklam(dj)]} {
      putquick "PRIVMSG $reklam(kanal) :Herhangi bir DJ nicki belirtmeden bu komutu kullanamazsınız."
      return
    }
    putquick "PRIVMSG IRC OPERSERV GLOBAL :Yayında şuan $reklam(dj) bulunmaktadır, radyomuzu winamptan dinlemek için tıklayın: $reklam(link)"
  }
}