on $*:TEXT:/^[!@]8ball/Si:#:{
  var %8ball = $rand(1,6)
  var %disp = $iif($left($1,1) == !,.notice $nick,msg $chan)
  %disp $8ballresponse(%8ball)
}
alias 8ballresponse {
  if ($1 == 1) return No!
  if ($1 == 2) return Yes
  if ($1 == 3) return Maybe
  if ($1 == 4) return of course
  if ($1 == 5) return Are you crazy?!?!
  if ($1 == 6) return How should I know?
}