37 lines
1.0 KiB
Haskell
37 lines
1.0 KiB
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, PlayerState
|
|
{ psPlayerName = "tA"
|
|
, psHand = [ S02_Asuka, S02_Asuka, S01_Shinji, S04_Misato, S05_Ritsuko, S05_Ritsuko ]
|
|
, psDeck = [ S02_Asuka, S01_Shinji, S06_Gendo ]
|
|
, psDiscard = [ S02_Asuka ]
|
|
, psDP = 0
|
|
})
|
|
, (2, PlayerState
|
|
{ psPlayerName = "lunarised"
|
|
, psHand = [ S03_Rei, S03_Rei, S01_Shinji, S04_Misato, S06_Gendo, S06_Gendo ]
|
|
, psDeck = [ S03_Rei, S01_Shinji, S06_Gendo ]
|
|
, psDiscard = [ S03_Rei ]
|
|
, psDP = 0
|
|
})
|
|
]
|
|
, bsActivePlayers = [1,2]
|
|
, bsPriorityPlayer = 1
|
|
, bsActiveLine = Nothing
|
|
, bsCardLib = gCardLib
|
|
, bsGameLog = []
|
|
}
|