on *:TEXT:!setba*:#:{ 
  if ($nick isop # || $nick ishop #) && ($2 isnum 2-144) {
    set %baworld. [ $+ [ $chan ] ] $2- 
    //msg # 12The 10ba world 12has been set to:10 $2- 
  } 
  else { 
    notice $nick Access denied. 
  } 
} 
on *:TEXT:!ba*:#: { 
  if $nick isreg $chan { 
    notice $nick Access denied.
  } 
  elseif %baworld. [ $+ [ $chan ] ] != $null { 
    notice $nick 12The current 10ba world is:12 %baworld. [ $+ [ $chan ] ] 
  } 
}
on $*:text:/^[!@]8ball/Si:#:{ var %r = $r(1,5)
  var %d = $iif($left($1,1) == !,notice $nick,msg $chan)
  if (%r = 1)  %d 9what do you think
  if (%r = 2) %d 11yes
  if (%r = 3) %d 2no  
  if (%r = 4) %d 6maybe
  if (%r = 5) %d 4 gay?
}