module Init where

import Types
import Cards

p1 :: Player
p1 = ("Shaun", [S01_Shinji, S02_Asuka, S02_Asuka, S04_Misato, S05_Ritsuko, S06_Gendo], [])

p2 :: Player
p2 = ("James", [S01_Shinji, S03_Rei, S03_Rei, S04_Misato], [])

bs1 :: BoardState
bs1 = BoardState
   { bsNeoTokyo =
      ( [[Shinji], [Asuka], [Rei], [Misato], [Ritsuko], [Gendo]]
      , [UnitZero, UnitOne, UnitTwo]
      , []
      , []
      , []
      )
   , bsPlayerLib =
      [ (1, p1)
      , (2, p2)
      ]
   , bsActivePlayers = [1, 2]
   , bsPriorityPlayer = 1
   , bsCardStack = []
   , bsCardLib = gCardLib
   }