import System.Random (getStdGen)
import Card (fullDecks, showCard, shuffle)
import Game (Game(..),
             Direction(CCW, CW),
             players,
             playerIdx,
             attack,
             direction,
             stockPile,
             discardPile,
             prompt,
             dealCards,
             nextRound,
            )
import Player (Player(..))
import qualified Player as P
import Card (Card)
import qualified Card as C

main :: IO ()
main = do
    shuffleGen <- getStdGen
    let stock = shuffle shuffleGen $ fullDecks 2
    let discard = []
    let defaultPlayers = [ Player "Alice" 0 []
                         , Player "Bob"   0 []
                         , Player "Carol" 0 []
                         ]
    let game = Game { players     = defaultPlayers
                    , playerIdx   = 0
                    , attack      = 0
                    , direction   = CCW
                    , stockPile   = stock
                    , discardPile = discard
                    }

    nextRound 1 $ dealCards 1 game
    print ()