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(-) (limited to 'src') 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