An Nice 8ball game ....

#8ball off
ON *:TEST:!8ball*:#: {
  if ( $nick == %8ball1 ) {
    msg $chan 8,1 $+ $nick $+ :4,1 $read(8ball.txt)
    set %8baLL2 $nick
  }
  if ( $nick == %8ball2 ) {
    msg $chan 8,1 $+ $nick $+ :4,1 Only Two Questions In A Row ! ! ! 
  }
  else {
    msg $chan 8,1 $+ $nick $+ :4,1 $read(8ball.txt)
    set %8baLL1 $nick
  }
}
#8ball end

menu * {
  !8ball
  .On: {
    enable #8ball
    msg $active 8,1 $+ !8Ball Is Now On4,1 Type !8ball *Question* To Ask A Question
  }
  .Off: {
    disable #8ball
    msg $active 8,1 $+ !8ball Now Off
  }
  .Set/Reset Answers: {
    write 8ball.txt Yes !
    write 8ball.txt No !
    write 8ball.txt Maybe !
    write 8ball.txt Not A Chance In Hell !
    write 8ball.txt To Soon To Tell !
    write 8ball.txt It Your Lucky Day !
    write 8ball.txt Definitely !
    write 8ball.txt Definitely Not !
    write 8ball.txt Im Not To Sure !
    write 8ball.txt Try Again When Im In A Better Mood !
    write 8ball.txt No Way !
    echo -a Answers Reset !!
  }
}

;You Will have to set the answers before the game is played for the first time