From 945ae6a879fc543d9e763a6033807dfb7bbd5d0b Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Sun, 25 Jan 2009 22:02:52 -0500
Subject: add @games to list available games

---
 lib/Bot/Games.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lib/Bot/Games.pm')

diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm
index cc412ef..0c19d4b 100644
--- a/lib/Bot/Games.pm
+++ b/lib/Bot/Games.pm
@@ -61,6 +61,7 @@ sub said {
     return if $args->{channel} eq 'msg';
     return unless $args->{body} =~ /^$prefix(\w+)(?:\s+(.*))?/;
     my ($game_name, $action) = ($1, $2);
+    return $self->game_list if $game_name eq 'games';
     return unless $self->valid_game($game_name);
 
     my $output;
@@ -125,6 +126,12 @@ sub game_package {
     return 'Bot::Games::Game::' . ucfirst($name);
 }
 
+sub game_list {
+    my $self = shift;
+    return join ' ', map { s/Bot::Games::Game:://; $self->prefix . lc }
+                         $self->games;
+}
+
 sub _format {
     my $self = shift;
     my ($to_print) = @_;
-- 
cgit v1.2.3-54-g00ecf