From da15834dc54ec936745347e3f04d563a4bb6ace4 Mon Sep 17 00:00:00 2001 From: Thibaut Horel Date: Sun, 19 Jun 2011 02:07:09 +0200 Subject: Add automatic checking at the beginning of the round --- ltg.ml | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/ltg.ml b/ltg.ml index d3b7473..1da6295 100644 --- a/ltg.ml +++ b/ltg.ml @@ -22,10 +22,23 @@ let read_move () = Scanf.scanf "%d\n" (fun d -> match d with let play_move () = () +let automatic player = + let aux i slot = + if slot.vitality = -1 then begin + Game.right_apply_bis player I i; + slot.vitality <- 0; + slot.field <- id + end + in + if player = 0 then + Array.iteri aux player0 + else + Array.iteri aux player1 + let do_round = if me = 0 - then fun () -> play_move (); read_move () - else fun () -> read_move (); play_move () + then fun () -> automatic 0; play_move (); automatic 1; read_move () + else fun () -> automatic 0; read_move (); automatic 1; play_move () let _ = -- cgit v1.2.3-70-g09d2