diff options
| author | Joris Guyonvarch | 2015-03-05 00:49:33 +0100 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-03-05 01:00:44 +0100 |
| commit | 2fe50fd2ebb1815a330b20e599f756fa393de81b (patch) | |
| tree | 34585f3badb89e6f2a558e49c37f8cddf9714cf4 | |
| parent | 4b1f05234aa2485ef1333dd38e0751dd6e9f765d (diff) | |
Change game parameters
| -rw-r--r-- | src/Cloud.elm | 2 | ||||
| -rw-r--r-- | src/Physics.elm | 2 | ||||
| -rw-r--r-- | src/Player.elm | 4 | ||||
| -rw-r--r-- | src/Point.elm | 2 |
4 files changed, 5 insertions, 5 deletions
diff --git a/src/Cloud.elm b/src/Cloud.elm index 0916bf6..45a1dcb 100644 --- a/src/Cloud.elm +++ b/src/Cloud.elm @@ -15,7 +15,7 @@ type alias Cloud = initCloud : Cloud initCloud = - let spawn = 100 + let spawn = 600 in { points config = case config of White -> [] diff --git a/src/Physics.elm b/src/Physics.elm index b59b3e1..2d2d627 100644 --- a/src/Physics.elm +++ b/src/Physics.elm @@ -23,7 +23,7 @@ getMove speed dir = } getAcc : Vec2 -> Vec2 -> Vec2 -getAcc move speed = (move `div` 800) `sub` (speed `div` 1000) +getAcc move speed = (move `div` 300) `sub` (speed `div` 300) getNewPos : Float -> Vec2 -> Vec2 -> Vec2 -> Vec2 getNewPos dt acc speed pos = diff --git a/src/Player.elm b/src/Player.elm index 2be7229..d1c10e0 100644 --- a/src/Player.elm +++ b/src/Player.elm @@ -10,7 +10,7 @@ type alias Player = } playerSize : Float -playerSize = 10 +playerSize = 15 playerSpeed : Float -> Float -playerSpeed dt = dt / 400 +playerSpeed dt = dt / 200 diff --git a/src/Point.elm b/src/Point.elm index a27916c..e66a5f7 100644 --- a/src/Point.elm +++ b/src/Point.elm @@ -15,7 +15,7 @@ pointMove {initTime, initPos, initDest, move} time = move initTime initPos initDest time pointSize : Float -pointSize = 5 +pointSize = 10 pointSpeed : Float -> Float pointSpeed dt = dt / 20 |