#!/usr/bin/perl
# ^^^^^^^^^^^^^^^^^^^ This is the path to your Perl, in most cases, this will work,
# sometimes the admin changes it to something else.
# First try using this path, if fails, ask your admin.
#This script is copyright (c) 1999-2000 www.MainCentral.com. All Rights Reserved.
#You may modify and distribute this script as long as this header is above all.
#Please visit http://www.MainCentral.com
#Copyright Notice:
# This script may only be used if the copyright, and footers are intact.
#Script name: The Magic 8-Ball
#Version: 1.0
#Description: A fun little script that answers your questions. Just think a question, click on the ball, and you'll see the answer.
print "Content-Type: text/html\n\n";
#**************** Configuration ***************************************************************#
@comtt = ('I intercepted a transmissions which said yes.',
'The wise Vader has stepped away from the web page, please try again in 2 seconds.',
'Umm, from here it looks like a yes.',
'After I\'ve commenced primary ignition I might be able to tell you. Try later.',
'Yes!','I couldn\'t get your question, please think a harder and I\'m sure I\'ll get it next time.',
'The wise one says "YES!"','I believe it to be true.',
'The ability to destroy a planet is insignificant next to the power of the answer which is... maybe.',
'What have you done with those plans?! Ahem... I mean... sure.',
'If this is a consular ship... the answer is no.','The answer was blurry, but it looked like a yes.',
'I tore the ship apart but I got no answer. Try again.',
'The answer is yes only if the Deathstar is lined-up with Tatooine and Endor.',
'I find your lack of faith disturbing. The answer is "of course not"!',
'I\'m sorry, I wasn\'t listening. Think the question again and I I\'ll pay closer attention.',
'Don\'t play games with me, Your Highness. The answer is no.','If you are on a mercy mission; no.',
'You\'re a part of the Rebel Alliance and the answer is no!',
'I sent a scanning crew on board and they said yes.',
'I sense something... an answer I haven\'t felt since... no, it was nothing.',
'A tremor in the Force told me the answer is no.',
'If escape is not your plan the answer is yes.',
'This will be a day long remembered and the anser is "absolutely"!.',
'If you stay in attack formation the answer is blurry but probably yes.',
'I have traced the Rebel spies and the answer. It was no.','What do you think?',
'Maybe. The princess must have hidden the answer in the escape pod. Try again.',
'Possible.',
'Perhaps... The answer you refer to will soon be back in our hands. Try again in a few moments.',
'I asked Emperor Palpatine and he said "NO!".',
'I informed the senate that all aboard were killed, so the answer is yes!',
'As you wish... the answer is "Absolutely Not!"',
'We could discuss the location of the hidden answer... later.',
'It will be some time before I can extract any information. So I\'m not sure.');
#**************** That's It! - END to configuration! - Do not modify anything below.*************#
$comt = int(rand(@comtt));
print <<"EOM";
BlueHarvest.net - Magic 8-Ball
Welcome, I am the magic 8-Ball... ahem... I mean Darth Vader!
Think of a question, click on me and I'll tell you the answer.
