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

fun

Browse source
This commit is contained in:
Ryan Voots 2010-10-05 00:06:30 -04:00
parent 50def2b8a6
commit e166ae6bd8
1 changed files with 33 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
plugins/8ball.pm
View file

@ -1,7 +1,27 @@
sub {
my( $said ) = @_;
my @a=("Outlook good",
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*$// for @a; #trim them up
}
else
{
@a=("Outlook good",
"Outlook not so good",
"My reply is no",
"Don't count on it",
@ -9,17 +29,19 @@ sub {
"Ask again later",
"Most likely",
"Cannot predict now",
"Yes","Yes, definitely",
"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");
"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]."."
}