AiVsAi.GameData

Synopsis

• data Action
  • = Move TileID
  • | Fire UnitID
  • | Pass
  • | ChaseOrFireAt UnitID
  • | MoveTowards TileID
  • | Retreat
• type ActionChoice = UnitState -> [Action] -> GameState -> Action
• type Strategy = UnitType -> ActionChoice
• data Team
  • = TeamF
  • | TeamC
• data GameType
  • = Deathmatch
  • | Endurance Int
• data Result
  • = FWin
  • | CWin
  • | Draw
• type TileID = (Int, Int)
• data Tile = Tile {
  • occupant :: TileOccupant
  • xcoord :: Int
  • ycoord :: Int
  }
• data TileOccupant
  • = TileUnit UnitID
  • | TileEnv EnvUnit
  • | Empty
• data EnvUnit
  • = Tree
  • | Window
• type UnitID = Int
• type TileMap = Map TileID Tile
• type UnitMap = Map UnitID UnitState
• data UnitState = UnitState {
  • idNum :: UnitID
  • pos :: (Int, Int)
  • unitType :: UnitType
  • unitTeam :: Team
  • isAlive :: Bool
  • hp :: Int
  • lastFireTurn :: Int
  }
• data UnitType
  • = Scout
  • | Tank
• data GameState = GameState {
  • gameTiles :: Map TileID Tile
  • gameUnits :: Map UnitID UnitState
  • turn :: Int
  • gameMapWidth :: Int
  • gameMapHeight :: Int
  • gameType :: GameType
  • unitQueue :: [(Team, UnitID)]
  }
• defaultGameState :: GameState
• justElem :: Ord a => Map a b -> a -> b
• occupantAt :: TileID -> GameState -> TileOccupant
• tileEmpty :: TileID -> GameState -> Bool
• unitByID :: UnitID -> GameState -> UnitState
• getUnitState :: GameState -> UnitID -> UnitState
• getUnitPos :: GameState -> UnitID -> (Int, Int)
• getUnitTeam :: GameState -> UnitID -> Team
• getUnitType :: GameState -> UnitID -> UnitType
• getUnitHealth :: GameState -> UnitID -> Int
• type GameTime = Float

Documentation