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

made it remove common stuff

Browse source
This commit is contained in:
Ryan Voots 2010-10-05 00:31:30 -04:00
parent 2039610fae
commit ec37fa7c0a
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
plugins/8ball.pm
View file

@ -43,6 +43,7 @@ sub {
s/^\s*//, s/\s*\?\s*$// for @a; #trim them up s/^\s*//, s/\s*\?\s*$// for @a; #trim them up
$common = $findcommon->(@a); $common = $findcommon->(@a);
s/^$common// for @a; # remove the common stuff for grammar
} }
else else
{ {
@ -68,7 +69,7 @@ sub {
"As I see it, yes"); "As I see it, yes");
} }
print $a[rand@a]." $common." print $a[rand@a]."."
} }
__DATA__ __DATA__