on $*:TEXT:/[!@]8ball */Si:#: {
  $($iif($left($1,1) == @,msg $chan,notice $nick),2) $+($nick,:) $e-ball($r(1,20))
}
alias -l e-ball {
  if ($1 == 1) return Signs point to yes.
  if ($1 == 2) return Yes.
  if ($1 == 3) return Most likely.
  if ($1 == 4) return Without a doubt.
  if ($1 == 5) return Yes - definitely.
  if ($1 == 6) return As I see it, yes.
  if ($1 == 7) return You may rely on it.
  if ($1 == 8) return Outlook good.
  if ($1 == 9) return It is certain.
  if ($1 == 10) return It is decidedly so.
  if ($1 == 11) return Reply hazy, try again.
  if ($1 == 12) return Better not tell you now.
  if ($1 == 13) return Ask again later.
  if ($1 == 14) return Concentrate and ask again.
  if ($1 == 15) return Cannot predict now.
  if ($1 == 16) return My sources say no.
  if ($1 == 17) return Very doubtful.
  if ($1 == 18) return My reply is no.
  if ($1 == 19) return Outlook not so good.
  if ($1 == 20) return Don't count on it.
}