on *:text:!8Ball*:#: {
  var %8ball $rand(1,10)
  /msg $chan 4??12P14l12e14a12s14e 12W14a12i14t4??
  /timer 1 4 msg $chan $read($shortfn($mircdir) $+ 8ballanswers.txt)
  if ((%8ball == 1)) /msg $chan 4:.:.:The answer is4:.:.:  12 Yes.
  if ((%8ball == 2)) /msg $chan 4:.:.:The answer is4:.:.:  12 No.
  if ((%8ball == 3)) /msg $chan 4:.:.:The answer is4:.:.:  12 Doubt it.
  if ((%8ball == 4)) /msg $chan 4:.:.:The answer is4:.:.:  12 A finger points to no.
  if ((%8ball == 5)) /msg $chan 4:.:.:The answer is4:.:.:  12 A finger points to no.
  if ((%8ball == 6)) /msg $chan 4:.:.:The answer is4:.:.:  12 Most likely.
  if ((%8ball == 7)) /msg $chan 4:.:.:The answer is4:.:.:  12 Possible.
  if ((%8ball == 8)) /msg $chan 4:.:.:The answer is4:.:.:  12 In ur dreams.
  if ((%8ball == 9)) /msg $chan 4:.:.:The answer is4:.:.:  12 How should i know that?!
  if ((%8ball == 10)) /msg $chan 4:.:.:The answer is4:.:.: 12 Ask later again.
}