mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 19:15:40 -04:00
28 lines
645 B
Perl
28 lines
645 B
Perl
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.
|