Destroying mounted lights flashes, move equipment datatype

2022-07-13 19:45:23 +01:00
parent cede677560
commit 33e9b5b1f0
16 changed files with 118 additions and 96 deletions
@@ -184,7 +184,7 @@ movementSideEff cr w
        _   -> w
    | otherwise = footstepSideEffect cr w
  where 
-    hasJetPack = any (\it -> it ^? itType . iyBase == Just JETPACK) $ _crInv cr
+    hasJetPack = any (\it -> it ^? itType . iyBase == Just (EQUIP JETPACK)) $ _crInv cr
    oldPos = _crOldPos cr
    momentum' = 0.97 *.* (_crPos cr -.- _crOldPos cr)
    momentum'' | magV momentum' > 3 = 3 *.* normalizeV momentum'