From 77e068ef86168c6e8722b2ce6754ced4a9a0070e Mon Sep 17 00:00:00 2001 From: Guillaume Horel Date: Sat, 18 Jun 2011 21:57:46 -0400 Subject: Add right_apply_bis --- game.ml | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/game.ml b/game.ml index 9ee9f2e..9aecc4f 100644 --- a/game.ml +++ b/game.ml @@ -210,6 +210,19 @@ let right_apply player card number = end; let slot = !proponent.(number) in slot.field <- slot.field @ (cardfun_of_card card) + +let right_apply_bis player card number = + if player = 0 then begin + proponent := player0; + opponent := player1 + end + else + begin + proponent := player1; + opponent := player0 + end; + let slot = !proponent.(number) in + slot.field <- slot.field @ (cardfun_of_card_bis card) (* right_apply !proponent.(0) Help;; -- cgit v1.2.3-70-g09d2