From 788d8e02c55ae4a336976cc5d809d8b152d4ae7f Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 1 Jun 2009 23:34:26 -0500
Subject: only allow players to move on their turn

---
 lib/Bot/Games/Game/Chess.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/Bot/Games/Game/Chess.pm b/lib/Bot/Games/Game/Chess.pm
index 473fe21..abd94fd 100644
--- a/lib/Bot/Games/Game/Chess.pm
+++ b/lib/Bot/Games/Game/Chess.pm
@@ -31,6 +31,9 @@ augment turn => sub {
     $self->add_player($player) unless $self->has_player($player);
     return "The game has already begun between " . join ' and ', $self->players
         unless $self->has_player($player);
+    my $player_index = $self->game->to_move ? 0 : 1;
+    return "It's not your turn"
+        if $player ne $self->players->[$player_index];
 
     my $status = eval { $self->game->go_move($move) };
     return $@ if $@;
-- 
cgit v1.2.3