fsharp(ygosim): feat: added a way of creating a new board

Signed-off-by: prescientmoon <git@moonythm.dev>

fsharp/ygosim/src/Board.fs

@@ -3,4 +3,6 @@ module Board
 open Player
 
 type Board =
-    { players: Player.Player * Player }
+    { players: Player * Player }
+
+let emptyBoard = { players = (initialPlayer 8000, initialPlayer 8000) }

fsharp/ygosim/src/Card.fs

@@ -1,4 +1,5 @@
 module Card
 
+// TODO: actually implement it
 type Card =
     { name: string }

fsharp/ygosim/src/Player.fs

@@ -8,12 +8,6 @@ type Player =
 
 let inflictDamage (player: Player) amount = { player with lifePoints = player.lifePoints - amount }
 
-
-type PlayerControllerAction =
-    | ChooseZone
-    | BoardUpdate
-
-type PlayerActionPayload = PlayerControllerAction * Side
-
-type PlayerController = PlayerController of (PlayerControllerAction -> PlayerController)
- 
+let initialPlayer lp =
+    { lifePoints = lp
+      side = emptySide }

fsharp/ygosim/src/Side.fs

@@ -3,8 +3,15 @@ module Side
 open Card
 
 type Side =
-    { field: Card
+    { field: Card option
       monsters: Card list
       spells: Card list
       graveyard: Card list
       deck: Card list }
+
+let emptySide =
+    { field = None
+      monsters = []
+      spells = []
+      graveyard = []
+      deck = [] }