Commit 2fe50fd2 authored by Joris Guyonvarch's avatar Joris Guyonvarch

Change game parameters

parent 4b1f0523
......@@ -15,7 +15,7 @@ type alias Cloud =
initCloud : Cloud
initCloud =
let spawn = 100
let spawn = 600
in { points config =
case config of
White -> []
......
......@@ -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 =
......
......@@ -10,7 +10,7 @@ type alias Player =
}
playerSize : Float
playerSize = 10
playerSize = 15
playerSpeed : Float -> Float
playerSpeed dt = dt / 400
playerSpeed dt = dt / 200
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment