diff options
Diffstat (limited to 'src/Input.elm')
| -rw-r--r-- | src/Input.elm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Input.elm b/src/Input.elm index d8614b0..69e7503 100644 --- a/src/Input.elm +++ b/src/Input.elm @@ -16,7 +16,7 @@ getInput : Signal Input getInput = let dtSignal = delta dirSignal = lift recordIntToVec2 Keyboard.arrows - randomFloatsSignal = Random.floatList (lift (\_ -> 3) dtSignal) + randomFloatsSignal = Random.floatList (lift (\_ -> 5) dtSignal) randomValuesSignal = lift floatsToRandomValues randomFloatsSignal in sampleOn dtSignal <| Input <~ dirSignal ~ dtSignal @@ -32,8 +32,10 @@ recordIntToVec2 {x, y} = } floatsToRandomValues : [Float] -> RandomValues -floatsToRandomValues [enemyAngle, enemyX, enemyY] = +floatsToRandomValues [enemyAngle, enemyX, enemyY, targetX, targetY] = { enemyAngle = enemyAngle , enemyX = enemyX , enemyY = enemyY + , targetX = targetX + , targetY = targetY } |