From 6e0c6dbf5bddc90309609eba49e2f1b1128d800f Mon Sep 17 00:00:00 2001
From: Matei Adriel <rafaeladriel11@gmail.com>
Date: Sat, 7 Dec 2019 19:56:20 +0200
Subject: [PATCH] fsharp(ygosim): feat: deckouting

Signed-off-by: prescientmoon <git@moonythm.dev>
---
 fsharp/ygosim/src/Board.fs   | 15 +++++++++++----
 fsharp/ygosim/src/Program.fs |  5 ++++-
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/fsharp/ygosim/src/Board.fs b/fsharp/ygosim/src/Board.fs
index 273f94b..fc41fd8 100644
--- a/fsharp/ygosim/src/Board.fs
+++ b/fsharp/ygosim/src/Board.fs
@@ -22,17 +22,24 @@ module Player =
     open Side
     open Card
 
+    type PlayerState =
+        | InGame
+        | Won
+        | Lost of reason: string
+
     type Player =
         { lifePoints: int
           side: Side
-          hand: CardInstance list }
+          hand: CardInstance list
+          state: PlayerState }
 
     let inflictDamage (player: Player) amount = { player with lifePoints = player.lifePoints - amount }
 
     let initialPlayer lp =
         { lifePoints = lp
           side = emptySide
-          hand = [] }
+          hand = []
+          state = InGame }
 
 module Turn =
     type Phase =
@@ -64,7 +71,7 @@ module Board =
     let emptyBoard =
         { players = (initialPlayer 8000, initialPlayer 8000)
           turn = 0
-          phase = Draw }
+          phase = Turn.Draw }
 
 module Game =
     open Board
@@ -74,7 +81,7 @@ module Game =
 
     let draw (player: Player) =
         match player.side.deck with
-        | [] -> player // TODO: makes this end the game
+        | [] -> { player with state = Lost "deckout" }
         | card :: deck ->
             { player with
                   hand = card :: player.hand
diff --git a/fsharp/ygosim/src/Program.fs b/fsharp/ygosim/src/Program.fs
index 1780e8b..d0faa42 100644
--- a/fsharp/ygosim/src/Program.fs
+++ b/fsharp/ygosim/src/Program.fs
@@ -8,7 +8,6 @@
         let board = Board.emptyBoard
         let sampleCard = Spell ({name= "sampleCard"; text="something"}, {spellType = Card.ContinuosSpell})
 
-        let (first, second) = board.players
         let secondBoard = withCurrentPlayer <| Game.toDeckBottom sampleCard <| board
 
         printfn "%A" secondBoard
@@ -17,4 +16,8 @@
 
         printfn "%A" thirdBoard
 
+        let lastBoard = List.fold (fun b _ -> doTurn b) thirdBoard [0..5]
+
+        printf "%A" lastBoard
+
         0