diff --git a/fsharp/ygosim/src/Board.fs b/fsharp/ygosim/src/Board.fs index 2f60637..1c1bee6 100644 --- a/fsharp/ygosim/src/Board.fs +++ b/fsharp/ygosim/src/Board.fs @@ -189,8 +189,6 @@ module Summon = let freeZones = 5 - possibleTributes + requiredTributes - printfn "%i" freeZones - requiredTributes <= possibleTributes && freeZones > 0 @@ -236,7 +234,6 @@ module Game = let toDeckBottom (card: CardInstance) (player: Player) = over Player.deck (fun d -> card :: d) player let handleMainPhase client board = - printfn "%b" <| canNormalSummon board if canNormalSummon board then performNormalSummon client board else board diff --git a/fsharp/ygosim/src/Program.fs b/fsharp/ygosim/src/Program.fs index 2c0237d..fcd9e47 100644 --- a/fsharp/ygosim/src/Program.fs +++ b/fsharp/ygosim/src/Program.fs @@ -25,7 +25,7 @@ race = Warrior }) - let board = over Board.firstPlayer <| toDeckBottom sampleCard <| emptyBoard + let board = over Board.secondPlayer <| toDeckBottom sampleCard <| emptyBoard let client action = match action with