diff options
| author | Joris Guyonvarch | 2015-03-15 20:15:19 +0100 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-03-15 20:16:14 +0100 |
| commit | d5ec91d4d01db6f4d476522d5b14e116435ebb7d (patch) | |
| tree | 76154fddf12254db1488e17752c41530ef8f6095 /src/Update/CloudUpdate.elm | |
| parent | ce6775641639943a2aee00fa9c2d684aa434bc21 (diff) | |
Displaying the last score in elm graphics instead of in helm html
Diffstat (limited to 'src/Update/CloudUpdate.elm')
| -rw-r--r-- | src/Update/CloudUpdate.elm | 4 |
1 files changed, 2 insertions, 2 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 = |