Defunction-ify item modules, requires more cleanup

2022-06-08 12:28:11 +01:00
parent d91a53f76c
commit bcbfd7d2fa
48 changed files with 762 additions and 740 deletions
@@ -185,7 +185,7 @@ movementSideEff cr w
        _   -> w
    | otherwise = footstepSideEffect cr w
  where 
-    hasJetPack = any (\it -> it ^? itType == Just JETPACK) $ _crInv cr
+    hasJetPack = any (\it -> it ^? itType . iyBase == Just JETPACK) $ _crInv cr
    oldPos = _crOldPos cr
    momentum' = 0.97 *.* (_crPos cr -.- _crOldPos cr)
    momentum'' | magV momentum' > 3 = 3 *.* normalizeV momentum'