package WebGUI::Macro::8ball;

#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2005 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com                     info@plainblack.com
#-------------------------------------------------------------------
#
# written by Jesse Kinross-Smith

use strict;

#-------------------------------------------------------------------
sub process {
  my $session = shift;
  my @ball_messages=
  (
  "Yes",
  "Definitely",
  "The Answer is Yes",
  "Positively Sure",
  "No",
  "Definitely Not",
  "No Way",
  "Answer isn't Clear",
  "There's No Way To Be Sure"
  );
        my $output = "Will I win the Acme Code Contest? " . $ball_messages[rand scalar @ball_messages ];

        return $output;
}

1;