add @help foo as an alias for @foo -help

1 files changed, 5 insertions, 0 deletions

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;