abhin4v
/
hastron
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

game: Add a player instantiation helper

arun
Arun Raghavan 2015-07-15 18:50:44 +05:30
parent f8bd50a51b
commit 1cb9490566
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Hastron/Game/Types.hs
View File

@ -79,6 +79,9 @@ emptyGameMap size = GameMap size $ Set.fromList borderPoints
emptyGame :: Int -> Game
emptyGame size = Game Map.empty GameInit $ emptyGameMap size
newPlayer :: Int -> Point -> Velocity -> Double -> Player
newPlayer pId pos velocity boost = Player pId PlayerAlive pos velocity [pos] (PlayerBoost False boost) 0 0
addPlayer :: Game -> Player -> Game
addPlayer game@Game{gameMap = gameMap@GameMap{..}, ..} player@Player{..} =
game { gamePlayers = Map.insert playerId player gamePlayers