Mine

on $*TEXT:/^[!@]8ball/Si*:#: {
  set %8ball $rand(1,7) 
  if (%8ball == 1) { msg $chan No. }
  elseif (%8ball == 2) { msg $chan Maybe.. }
  elseif (%8ball == 3) { msg $chan Can't tell. }
  elseif (%8ball == 4) { msg $chan Yes. }
  elseif (%8ball == 5) { msg $chan Hmm.. This is hard.. Yes or no, try again. }
  elseif (%8ball == 6) { msg $chan Probably yes. } 
  elseif (%8ball == 7) { msg $chan Probably no. }
}
}