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

Constinue work on respawn

Browse Source
This commit is contained in:
justin
2025-08-14 19:22:26 +01:00
parent dd1f3b2ef5
commit 04c60151e1
7 changed files with 153 additions and 157 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+1 -1
View File
@@ -802,7 +802,7 @@ checkEndGame :: Universe -> Universe
checkEndGame uv = case w ^? timeFlow . respawnDelay of
Just x | x < 0 -> uv -- & uvScreenLayers .~ [gameOverMenu uv]
& uvWorld . timeFlow .~ NormalTimeFlow
& uvWorld %~ spawnAt (w ^. cWorld . lWorld . respawnPos)
& uvWorld %~ respawn
Just _ -> uv & uvWorld . timeFlow . respawnDelay -~ 1
_ | _crHP (you w) < 1 -> uv & uvWorld . timeFlow .~ RespawnDelay 50
_ -> uv