justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Set mouse position on unpause

Browse Source
This commit is contained in:
justin
2025-06-03 10:07:56 +01:00
parent 77f2517f2c
commit f4cce1cb38
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Menu.hs
+1
View File
@@ -194,6 +194,7 @@ gameOverMenu u =
unpause :: Universe -> Universe unpause :: Universe -> Universe
unpause u' = resumeSound . set uvScreenLayers [] 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) $ over uvIOEffects (\f u -> SDL.warpMouse SDL.WarpCurrentFocus (SDL.P (SDL.V2 x' y')) >> f u)
u' u'
where where