game: Add a player instantiation helper
parent
f8bd50a51b
commit
1cb9490566
|
@ -79,6 +79,9 @@ emptyGameMap size = GameMap size $ Set.fromList borderPoints
|
||||||
emptyGame :: Int -> Game
|
emptyGame :: Int -> Game
|
||||||
emptyGame size = Game Map.empty GameInit $ emptyGameMap size
|
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 -> Player -> Game
|
||||||
addPlayer game@Game{gameMap = gameMap@GameMap{..}, ..} player@Player{..} =
|
addPlayer game@Game{gameMap = gameMap@GameMap{..}, ..} player@Player{..} =
|
||||||
game { gamePlayers = Map.insert playerId player gamePlayers
|
game { gamePlayers = Map.insert playerId player gamePlayers
|
||||||
|
|
Loading…
Reference in New Issue