Set mouse position on unpause

This commit is contained in:
2025-06-03 10:07:56 +01:00
parent 77f2517f2c
commit f4cce1cb38
+1
View File
@@ -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