From 79fba8934969b660298e3a2c875a49d500313d1a Mon Sep 17 00:00:00 2001
From: Frederick Yin <fkfd@fkfd.me>
Date: Thu, 5 Jan 2023 20:59:02 +0800
Subject: Prompt for card to play

---
 Main.hs | 31 ++++++++++++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index e42a3f0..48726b7 100644
--- a/Main.hs
+++ b/Main.hs
@@ -1,6 +1,35 @@
 import System.Random (getStdGen)
 import Card (fullDecks, showCard, shuffle)
+import Game (Game(..),
+             Direction(CCW, CW),
+             players,
+             playerIdx,
+             attack,
+             direction,
+             stockPile,
+             discardPile,
+             prompt,
+            )
+import Player (Player(..))
+import qualified Player as P
+import Card (Card)
+import qualified Card as C
 
+main :: IO ()
 main = do
     gen <- getStdGen
-    print $ map showCard $ shuffle gen $ fullDecks 2
+    let stock = shuffle gen $ fullDecks 2
+    let discard = []
+    let defaultPlayers = [ Player "Alice" 0 $ take 6 $ fullDecks 1
+                         , Player "Bob"   0 $ take 6 $ fullDecks 1
+                         , Player "Carol" 0 $ take 6 $ fullDecks 1
+                         ]
+    let game = Game { players     = defaultPlayers
+                    , playerIdx   = 0
+                    , attack      = 0
+                    , direction   = CCW
+                    , stockPile   = stock
+                    , discardPile = discard
+                    }
+    card <- prompt game
+    print card
-- 
cgit v1.2.3