aboutsummaryrefslogtreecommitdiff
path: root/src/Model/Game.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/Model/Game.elm')
-rw-r--r--src/Model/Game.elm33
1 files changed, 12 insertions, 21 deletions
diff --git a/src/Model/Game.elm b/src/Model/Game.elm
index 4ef5d89..705841d 100644
--- a/src/Model/Game.elm
+++ b/src/Model/Game.elm
@@ -14,29 +14,20 @@ import Model.Config (..)
type alias Game =
{ time : Float
, keysDown : List KeyCode
- , score : Int
+ , currentScore : Int
, player : Player
, cloud : Cloud
- , bestScore : Int
+ , scores : List Int
, seed : Seed
}
-initialGame : Seed -> Vec2 -> Config -> Int -> Game
-initialGame seed playerPos config bestScore =
- let initPlayer =
- { pos = playerPos
- , speed =
- { x = 0
- , y = 0
- }
- , config = config
- }
- in
- { time = 0
- , keysDown = []
- , score = 0
- , player = initPlayer
- , cloud = initCloud
- , bestScore = bestScore
- , seed = seed
- }
+initialGame : Seed -> Game
+initialGame seed =
+ { time = 0
+ , keysDown = []
+ , currentScore = 0
+ , player = initPlayer
+ , cloud = initCloud
+ , scores = []
+ , seed = seed
+ }