diff options
author | doy <doy@tozt.net> | 2008-12-18 03:27:14 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2008-12-18 03:27:14 -0500 |
commit | 0c774a8d1d5c004e836ab2c4ae94bb884a325ffc (patch) | |
tree | df620a440d45a142a5d0206b76e6da51402a08b6 /lib/Bot/Games/Game/Superghost.pm | |
parent | 51bb4508f38b376bb7d219da68c64f92a01ce492 (diff) | |
download | bot-games-0c774a8d1d5c004e836ab2c4ae94bb884a325ffc.tar.gz bot-games-0c774a8d1d5c004e836ab2c4ae94bb884a325ffc.zip |
add ghost, superghost, xghost, and spook games, based on the ghostlike superclass
Diffstat (limited to 'lib/Bot/Games/Game/Superghost.pm')
-rw-r--r-- | lib/Bot/Games/Game/Superghost.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lib/Bot/Games/Game/Superghost.pm b/lib/Bot/Games/Game/Superghost.pm new file mode 100644 index 0000000..13502ed --- /dev/null +++ b/lib/Bot/Games/Game/Superghost.pm @@ -0,0 +1,17 @@ +#!/usr/bin/perl +package Bot::Games::Game::Superghost; +use Moose; +extends 'Bot::Games::Game::Ghostlike'; + +has '+help' => ( + default => "superghost help", +); + +sub valid_move { + my $self = shift; + my ($move) = @_; + return uc(substr($move, 0, -1)) eq $self->state + || uc(substr($move, 1)) eq $self->state; +} + +1; |