From 1cb9490566ac75ec8397f3a7e40eaaaf17c248b4 Mon Sep 17 00:00:00 2001
From: Arun Raghavan <git@arunraghavan.net>
Date: Wed, 15 Jul 2015 18:50:44 +0530
Subject: [PATCH] game: Add a player instantiation helper

---
 src/Hastron/Game/Types.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Hastron/Game/Types.hs b/src/Hastron/Game/Types.hs
index be9f6a6..9eb78b9 100644
--- a/src/Hastron/Game/Types.hs
+++ b/src/Hastron/Game/Types.hs
@@ -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