diff options
Diffstat (limited to 'src/Model/Level.elm')
| -rw-r--r-- | src/Model/Level.elm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/Model/Level.elm b/src/Model/Level.elm index 3fc4258..d058d53 100644 --- a/src/Model/Level.elm +++ b/src/Model/Level.elm @@ -1,7 +1,9 @@ module Model.Level ( currentLevel + , currentLevelScore , currentLevelNumber , progressiveColor + , levelScoreDuration ) where import Time exposing (Time) @@ -14,13 +16,17 @@ import Model.Point exposing (pointSpeed) import Utils.Physics exposing (getMove, getWaveMove) levelScoreDuration : Int -levelScoreDuration = 15 +levelScoreDuration = 20 type alias Level = { color : Color , move : Vec2 -> Vec2 -> Time -> Vec2 } +currentLevelScore : Int -> Int +currentLevelScore currentScore = + currentScore - (currentLevelNumber currentScore - 1) * levelScoreDuration + currentLevelNumber : Int -> Int currentLevelNumber currentScore = min |