Show best score in html layout

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
+  }