nek0/haskelloids
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

static turn rate

Browse source
This commit is contained in:
nek0 2017-03-01 17:02:08 +01:00
parent e13f5c7301
commit 662567804d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/InGame.hs
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 ->