25 lines
619 B
Haskell
25 lines
619 B
Haskell
module Init where
|
|
|
|
import Types
|
|
import Cards
|
|
|
|
initBS :: BoardState
|
|
initBS = BoardState
|
|
{ bsNeoTokyo = NeoTokyo
|
|
{ ntGroups = [ [Shinji], [Asuka], [Rei], [Misato], [Ritsuko], [Gendo] ]
|
|
, ntEvas = [ UnitZero, UnitOne, UnitTwo ]
|
|
, ntAngels = []
|
|
, ntPutCards = []
|
|
, ntDowned = []
|
|
}
|
|
, bsPlayerLib =
|
|
[ (1, ("tA", [ S02_Asuka, S02_Asuka, S01_Shinji ], [], []))
|
|
, (2, ("lunarised", [ S03_Rei, S03_Rei, S01_Shinji, S05_Ritsuko ], [], []))
|
|
]
|
|
, bsActivePlayers = [1,2]
|
|
, bsPriorityPlayer = 1
|
|
, bsCardStack = []
|
|
, bsCardLib = gCardLib
|
|
, bsGameLog = []
|
|
}
|