Code:

set dj_mode 1set dj_site "www.way.cool.tunes.com"# the flag "-|-" allows ALL users to use the commands# using the flag "o" will allow ONLY users with th o flagbind pub -|- @dj dj:modeproc dj:mode {nick uhost handle channel text} {  global botnick dj_mode  set chan [string tolower $channel]  if {$dj_mode == 0} {puthelp "PRIVMSG $chan :dj is OFF the Air"}  #   if {$dj_mode == 0} {puthelp "PRIVMSG $nick :dj is OFF the Air"}  if {$dj_mode == 1} {puthelp "PRIVMSG $chan :dj is ON the Air"}  return 0}bind pub o @onair dj:onproc dj:on {nick uhost handle channel text} {  global botnick dj_mode  # if {![botisop $chan] || [isop $nick $chan]} {return 0}  set chan [string tolower $channel]  set dj_mode 1  puthelp "PRIVMSG $chan :dj is ON the Air"  return 0}bind pub o @offair dj:offproc dj:off {nick uhost handle channel text} {  global botnick dj_mode  set chan [string tolower $channel]  set dj_mode 0  puthelp "PRIVMSG $chan :dj is OFF the Air"  return 0}bind pub -|- @site dj:siteproc dj:site {nick uhost handle channel text} {  global botnick dj_mode dj_site  if {$dj_mode == 0} {return 0}  set chan [string tolower $channel]  puthelp "PRIVMSG $chan :dj's website is $dj_site"  return 0}