mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 16:45:40 -04:00
50 lines
1.1 KiB
Perl
50 lines
1.1 KiB
Perl
sub {
|
|
my( $said ) = @_;
|
|
|
|
my $ors =()= $said->{body}=~m/\bor\b/g;
|
|
my $commas =()= $said->{body}=~m/,(?=.*\bor\b)/g;
|
|
|
|
my @a;
|
|
|
|
if ($ors == 1)
|
|
{
|
|
if ($commas > 0)
|
|
{
|
|
@a = split(/\bor\b/, $said->{body});
|
|
}
|
|
else
|
|
{
|
|
@a = split(/(?:\bor\b|\s*,\s*)/, $said->{body});
|
|
}
|
|
|
|
s/^\s*//, s/\s*\?\s*$// for @a; #trim them up
|
|
}
|
|
else
|
|
{
|
|
@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.
|