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

Cleanup

Browse Source
This commit is contained in:
justin
2022-06-26 12:41:15 +01:00
parent 5ba0ca9f9c
commit d386b0ea89
5 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+1 -5
View File
@@ -91,7 +91,7 @@ functionalUpdate cfig w = checkEndGame
-- . (youHammerPosition %~ moveHammerUp)
. updateTerminal
. updateRBList
. updateBoundBox cfig -- where should this go? next to update camera?
. updateBounds cfig -- where should this go? next to update camera?
$ updateCloseObjects w
where
--updatedLightSources = mapMaybe (\b -> _tlsUpdate b w b) $ _tempLightSources w
@@ -101,10 +101,6 @@ functionalUpdate cfig w = checkEndGame
(x,y) = cloudZoneOfPoint $ stripZ $ _clPos cl
updateBoundBox :: Configuration -> World -> World
updateBoundBox cfig w = w & boundBox .~ cullBox cfig w
& boundDist .~ findBoundDists cfig w
mcChooseUpdate :: Machine -> Machine -> World -> World
mcChooseUpdate mc mc'
| _mcHP mc > 0 = _mcUpdate mc mc'