diff options
Diffstat (limited to 'Game.hs')
-rw-r--r-- | Game.hs | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -17,6 +17,14 @@ data Game = Game { players :: [Player] , discardPile :: [Card] } +-- | Advance game state. +advanceGame :: Game -> IO Game +advanceGame game@(Game plyrs pidx att dir stock disc) = do + cardToPlay <- prompt game + let newPidx = (pidx + 1) `mod` (length plyrs) + advanceGame (Game plyrs newPidx att dir stock disc) + +-- | Prompt player to play a card (or draw card and skip turn). prompt :: Game -> IO (Maybe Card) prompt game@(Game plyrs pidx att _ _ _) = do let player = plyrs !! pidx |