From 2617310dabc1d4280bd713b99a354c6345186ec9 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 22 Oct 2014 15:31:47 -0400
Subject: indicate whose move it is

---
 lib/Bot/Zulip/Chess.pm | 14 ++++++++++++--
 1 file 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;
 }
 
-- 
cgit v1.2.3