fun

plugins/8ball.pm

@@ -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,7 +29,8 @@ 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",
@@ -20,6 +41,7 @@ sub {
            "Without a doubt",
            "Reply hazy, try again",
            "As I see it, yes");
+	}
 
      print $a[rand@a]."."
 }