static turn rate

This commit is contained in:
nek0 2017-03-01 17:02:08 +01:00
parent e13f5c7301
commit 662567804d

View file

@ -141,7 +141,7 @@ handleGameEvent menuload sec e = do
when (SDL.keyboardEventKeyMotion dat == SDL.Pressed && not (wonlost ud)) $
putAffection ud
{ ship = (ship ud)
{ sRot = sRot (ship ud) + 270 * sec
{ sRot = sRot (ship ud) + 5
}
}
SDL.KeycodeRight -> do
@ -149,7 +149,7 @@ handleGameEvent menuload sec e = do
when (SDL.keyboardEventKeyMotion dat == SDL.Pressed) $
putAffection ud
{ ship = (ship ud)
{ sRot = sRot (ship ud) - 270 * sec
{ sRot = sRot (ship ud) - 5
}
}
SDL.KeycodeUp ->