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