30 lines
592 B
Haskell
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
|
|
}
|