diff options
Diffstat (limited to 'src/Update')
| -rw-r--r-- | src/Update/CloudUpdate.elm | 4 | ||||
| -rw-r--r-- | src/Update/Update.elm | 7 |
2 files changed, 5 insertions, 6 deletions
diff --git a/src/Update/CloudUpdate.elm b/src/Update/CloudUpdate.elm index 9863650..1988b7f 100644 --- a/src/Update/CloudUpdate.elm +++ b/src/Update/CloudUpdate.elm @@ -21,7 +21,7 @@ cloudUpdate time boardSize seed player {points, spawn, lastSpawn} = presentAndNotCaughtPoints = List.filter (not << (playerPointCollision time player)) pointsToCatch addScore = (List.length pointsToCatch) - (List.length presentAndNotCaughtPoints) presentOtherPoints = presentPoints time boardSize (points (otherConfig player.config)) - (newCloud, seed''') = + (newCloud, seed') = if time > lastSpawn + spawn then let (newPoint1, seed') = getNewPoint time boardSize seed (newPoint2, seed'') = getNewPoint time boardSize seed' @@ -47,7 +47,7 @@ cloudUpdate time boardSize seed player {points, spawn, lastSpawn} = } , seed ) - in (newCloud, addScore, seed''') + in (newCloud, addScore, seed') presentPoints : Float -> Vec2 -> List Point -> List Point presentPoints time boardSize points = diff --git a/src/Update/Update.elm b/src/Update/Update.elm index 2183d97..2be00b0 100644 --- a/src/Update/Update.elm +++ b/src/Update/Update.elm @@ -30,15 +30,14 @@ update input game = | time <- 0 , currentScore <- 0 , cloud <- initCloud - , rounds <- game.rounds `List.append` [Round game.time game.currentScore] + , rounds <- (Round game.time game.currentScore) :: game.rounds } else - let newTime = game.time + input.delta - newPlayer = playerStep input.delta game.boardSize input.dir (newKeyCode game.keysDown input.inputKeysDown) game.player + let newPlayer = playerStep input.delta game.boardSize input.dir (newKeyCode game.keysDown input.inputKeysDown) game.player (newCloud, addScore, newSeed) = cloudUpdate game.time game.boardSize game.seed newPlayer game.cloud in { game - | time <- newTime + | time <- game.time + input.delta , keysDown <- input.inputKeysDown , currentScore <- game.currentScore + addScore , player <- newPlayer |