evac/Init.hs

30 lines
592 B
Haskell

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
}