diff options
-rw-r--r-- | lib/Bot/Zulip/Chess.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/Bot/Zulip/Chess.pm b/lib/Bot/Zulip/Chess.pm index 3f3e97b..13d563d 100644 --- a/lib/Bot/Zulip/Chess.pm +++ b/lib/Bot/Zulip/Chess.pm @@ -189,7 +189,14 @@ sub draw_state ($self) { $board .= "\nCHECK\n"; } - $board .= "\@**" . $self->current_player . "** (" + my $to_move = $self->current_player; + if ($to_move) { + $to_move = '@**' . $to_move . '**'; + } + else { + $to_move = "A new opponent"; + } + $board .= $to_move . " (" . ($self->_chessboard->to_move ? 'White' : 'Black') . ") to move"; |