Mine

on $*:TEXT:/[!@]8ball */Si:#: { 
  $($iif($left($1,1) == @,msg $chan,notice $nick),2) $+($nick,:) $e-ball($r(1,20)) 
} 
alias e-ball { 
  if ($1 == 1) return Fuck u
  if ($1 == 2) return Hoe 
  if ($1 == 3) return No
  if ($1 == 4) return hahaha newb
  if ($1 == 5) return mybe k
  if ($1 == 6) return NO
  if ($1 == 7) return FFS
  if ($1 == 8) return really?
  if ($1 == 9) return ghetto
  if ($1 == 10) return lal
  if ($1 == 11) return o
  if ($1 == 12) return go die
  if ($1 == 13) return i dont like u
  if ($1 == 14) return gtfo
  if ($1 == 15) return NOOB
  if ($1 == 16) return get a life
  if ($1 == 17) return wtf 
  if ($1 == 18) return My reply is no. 
  if ($1 == 19) return LOL 
  if ($1 == 20) return Nob cheese
}