Random: add 8ball commanddevel

1 files changed, 33 insertions, 1 deletions

diff --git a/Plugin/Random.pm b/Plugin/Random.pm
index 26d5250..03a050b 100644
--- a/Plugin/Random.pm
+++ b/Plugin/Random.pm
@@ -11,10 +11,15 @@ sub configure {
 
 	$cmdref->($self, "shuffle", sub { $self->shuffle(@_); } );
 	$cmdref->($self, "choose", sub { $self->choose(@_); } );
+	$cmdref->($self, "8ball", sub { $self->eight_ball(@_); } );
 
 	return $self;
 }
 
+sub _choose {
+	return (List::Util::shuffle(@_))[0];
+}
+
 sub shuffle {
 	my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
 
@@ -23,6 +28,33 @@ sub shuffle {
 
 sub choose {
 	my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
-	return (List::Util::shuffle(@arguments))[0];
+	return _choose(@arguments);
+}
+
+sub eight_ball {
+	my ($self, $irc, $logger, $who, $where, $ided, $rest, $no_reenter, @arguments) = @_;
+	my @responses = (
+		"It is certain.",
+		"Without a doubt.",
+		"You may rely on it",
+		"Yes. Definitely.",
+		"It is decidedly so.",
+		"As I see it, yes.",
+		"Most likely.",
+		"Yes.",
+		"Outlook good.",
+		"Signs point to yes.",
+		"Reply hazy, try again.",
+		"Better not tell you now.",
+		"Ask again later.",
+		"Cannot predict now.",
+		"Concentrate and ask again.",
+		"Don't count on it.",
+		"Outlook not so good.",
+		"My sources say no.",
+		"Very doubtful.",
+		"My reply is no.",
+	);
+	return _choose(@responses);
 }
 1;