From 336816d2e8ab4afff1562123dfde61bf3a68e61c Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 7 Mar 2015 12:20:27 +0100
Subject: Save player config when relaunching game

---
 src/Game.elm | 6 +++---
 src/Main.elm | 3 ++-
 src/Step.elm | 2 +-
 3 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/Game.elm b/src/Game.elm
index 4d68219..e294942 100644
--- a/src/Game.elm
+++ b/src/Game.elm
@@ -18,15 +18,15 @@ type alias Game =
   , seed : Seed
   }
 
-initialGame : Seed -> Vec2 -> Int -> Game
-initialGame seed playerPos bestScore =
+initialGame : Seed -> Vec2 -> Config -> Int -> Game
+initialGame seed playerPos config bestScore =
   let initPlayer =
     { pos = playerPos
     , speed =
         { x = 0
         , y = 0
         }
-    , config = White
+    , config = config
     }
   in
     { time = 0
diff --git a/src/Main.elm b/src/Main.elm
index 9286ed9..6be5766 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -10,12 +10,13 @@ import Display (display)
 import Step (step)
 import Input (getInput)
 import Vec2 (originVec)
+import Config (Config(White))
 
 main : Signal Html
 main = Signal.map display game
 
 game : Signal Game
-game = Signal.foldp step (initialGame initialSeed originVec 0) getInput
+game = Signal.foldp step (initialGame initialSeed originVec White 0) getInput
 
 port initialTime : Int
 
diff --git a/src/Step.elm b/src/Step.elm
index e2b7fa7..dd340a5 100644
--- a/src/Step.elm
+++ b/src/Step.elm
@@ -21,7 +21,7 @@ step {dir, inputKeysDown, delta} {time, keysDown, score, player, cloud, bestScor
   let hostilePoints = cloud.points (otherConfig player.config)
   in  if(playerPointsCollision time player hostilePoints) then
         let newBestScore = if(score > bestScore) then score else bestScore
-        in  initialGame seed player.pos newBestScore
+        in  initialGame seed player.pos player.config newBestScore
       else
         let newTime = time + delta
             newPlayer = playerStep delta dir (newKeyCode keysDown inputKeysDown) player
-- 
cgit v1.2.3