Set mouse position on unpause
This commit is contained in:
@@ -194,6 +194,7 @@ gameOverMenu u =
|
||||
|
||||
unpause :: Universe -> Universe
|
||||
unpause u' = resumeSound . set uvScreenLayers []
|
||||
. set (uvWorld . input . mousePos) (u' ^. uvWorld . cWorld . lWorld . lAimPos)
|
||||
$ over uvIOEffects (\f u -> SDL.warpMouse SDL.WarpCurrentFocus (SDL.P (SDL.V2 x' y')) >> f u)
|
||||
u'
|
||||
where
|
||||
|
||||
Reference in New Issue
Block a user