diff options
Diffstat (limited to 'src/Model/Game.elm')
-rw-r--r-- | src/Model/Game.elm | 33 |
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 + } |