add a command to check the current state of the game

1 files changed, 10 insertions, 0 deletions

diff --git a/lib/Bot/Games/Game/Chess.pm b/lib/Bot/Games/Game/Chess.pm
index 25f550e..2f0adef 100644
--- a/lib/Bot/Games/Game/Chess.pm
+++ b/lib/Bot/Games/Game/Chess.pm
@@ -65,6 +65,16 @@ command resign => sub {
                                  nick => $args->{player})
 };
 
+command state => sub {
+    my $self = shift;
+    my ($dummy, $args) = @_;
+    return $self->current_player
+         . ($self->game->to_move ? ' (white)' : ' (black)')
+         . ' to play: '
+         . App::Nopaste::nopaste(text => $self->game->dump_pos,
+                                 nick => $args->{player});
+};
+
 sub format_turn {
     my $self = shift;
     my ($turn) = @_;