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 = []
   }