Merge branch 'master' of github.com:Zaran/icfp2011

1 files 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 _ =