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

Increase explosive damage to walls (still problems with hitboxes)

Browse Source
This commit is contained in:
justin
2025-06-24 08:28:22 +01:00
parent 18470d700d
commit 5537efe584
4 changed files with 66 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+4 -1
View File
@@ -258,7 +258,7 @@ functionalUpdate u =
. over uvWorld ppEvents
. colCrsWalls
. over uvWorld simpleCrSprings
. over uvWorld (updateIMl (_doors . _lWorld . _cWorld) (doDrWdWd . _drMech))
. over uvWorld (updateIMl' (_doors . _lWorld . _cWorld) updateDoor)
. over uvWorld doWorldEvents
. over uvWorld updateDelayedEvents
. over uvWorld (updateIMl (_modifications . _lWorld . _cWorld)
@@ -306,6 +306,9 @@ updateAimPos :: Universe -> Universe
updateAimPos u = u & uvWorld . cWorld . lWorld . lAimPos
.~ mouseWorldPos' (u ^. uvWorld . input) (u ^. uvWorld . wCam)
updateDoor :: Door -> World -> World
updateDoor dr = doDrWdWd (_drMech dr) dr
updateMagnets :: LWorld -> LWorld
updateMagnets lw =
lw & oldMagnets .~ (lw ^. magnets)