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