From 9a6f2a51e59600e91c97a410d84d45d01434555c Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Sun, 25 Jan 2009 22:03:07 -0500
Subject: add @help foo as an alias for @foo -help

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

diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm
index 0c19d4b..3e8394a 100644
--- a/lib/Bot/Games.pm
+++ b/lib/Bot/Games.pm
@@ -62,6 +62,11 @@ sub said {
     return unless $args->{body} =~ /^$prefix(\w+)(?:\s+(.*))?/;
     my ($game_name, $action) = ($1, $2);
     return $self->game_list if $game_name eq 'games';
+    if ($game_name eq 'help') {
+        $game_name = $action;
+        $game_name =~ s/^-//;
+        $action = '-help';
+    }
     return unless $self->valid_game($game_name);
 
     my $output;
-- 
cgit v1.2.3-54-g00ecf