module Scenario where

import Force

data Scenario = Scenario
  { scenMapName :: String
  , scenBlueOOB :: Force -- XXX
  , scenRedOOB :: Force
  }


--------------------------------------------------------------------


voidScenario :: Scenario
voidScenario = Scenario "*void*" (voidForce Blue) (voidForce Red)


testScenario :: Scenario
testScenario = Scenario
  "NTC1"
  (Force Blue
    [ Unit 10 10 "Blue Unit One" Armor Battalion 30 1
    , Unit 100 100 "Blue Unit Two" Mech Battalion 20 2])
  (Force Red
    [Unit 300 300 "Red Unit One" Mech Brigade 60 301])
