Add right_apply_bis

1 files changed, 13 insertions, 0 deletions

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;;