diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-10-22 15:31:47 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-10-22 15:31:47 -0400 |
commit | 2617310dabc1d4280bd713b99a354c6345186ec9 (patch) | |
tree | 1bd5157aa50b7f71072fda38c352af6a725d1eeb /lib/Bot/Zulip/Chess.pm | |
parent | 75a24acdf9a7a7e72b2e2dff75f1ca36014c5b6a (diff) | |
download | Bot-Zulip-Chess-2617310dabc1d4280bd713b99a354c6345186ec9.tar.gz Bot-Zulip-Chess-2617310dabc1d4280bd713b99a354c6345186ec9.zip |
indicate whose move it is
Diffstat (limited to 'lib/Bot/Zulip/Chess.pm')
-rw-r--r-- | lib/Bot/Zulip/Chess.pm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/lib/Bot/Zulip/Chess.pm b/lib/Bot/Zulip/Chess.pm index 0b85ece..0e1929e 100644 --- a/lib/Bot/Zulip/Chess.pm +++ b/lib/Bot/Zulip/Chess.pm @@ -168,17 +168,27 @@ sub draw_state ($self) { $board .= "\nCHECK\n"; } + $board .= "\@**" . $self->current_player . "** (" + . ($self->_chessboard->to_move ? 'White' : 'Black') + . ") to move"; + return $board; } -sub players_turn ($self, $player) { +sub current_player ($self) { my $method = $self->_chessboard->to_move ? 'white_player' : 'black_player'; - my $expected_player = $self->$method; + return $self->$method; +} + +sub players_turn ($self, $player) { return if !$self->has_black_player && $self->has_white_player && $self->white_player eq $player; + + my $expected_player = $self->current_player; return 1 if !defined($expected_player); return 1 if $expected_player eq $player; + return; } |