import System.Random (getStdGen)
import Card (fullDecks, showCard, shuffle)
import Game (Game(..),
             players,
             playerIdx,
             attack,
             direction,
             stockPile,
             discardPile,
             prompt,
             dealCards,
             beginRounds,
            )
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      = 1
                    , direction   = 1
                    , prevCard    = head stock
                    , stockPile   = tail stock
                    , discardPile = discard
                    }

    beginRounds 3 True $ dealCards 6 game
    return ()