Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 22:05:41 -04:00
Code Issues Releases Wiki Activity

adding 8ball

Browse source
This commit is contained in:
Ryan Voots 2010-10-04 23:34:05 -04:00
parent ca8d1d113a
commit 50def2b8a6
1 changed files with 28 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
plugins/8ball.pm Normal file
View file

@ -0,0 +1,28 @@
sub {
my( $said ) = @_;
my @a=("Outlook good",
"Outlook not so good",
"My reply is no",
"Don't count on it",
"You may rely on it",
"Ask again later",
"Most likely",
"Cannot predict now",
"Yes","Yes, definitely",
"Better not tell you now",
"It is certain",
"Very doubtful",
"It is decidedly so",
"Concentrate and ask again",
"Signs point to yes",
"My sources say no",
"Without a doubt",
"Reply hazy, try again",
"As I see it, yes");
print $a[rand@a]."."
}
__DATA__
8ball, magic 8ball if you don't understand then you need to stop having a life.