Allow for bullet drag

src/Dodge/Creature/State.hs

@@ -110,7 +110,7 @@ movementSideEff cr w
         _   -> w
     | otherwise = footstepSideEffect cr w
   where 
-    hasJetPack = any (\it -> it ^? itIdentity == Just JetPack) $ _crInv cr
+    hasJetPack = any (\it -> it ^? itCombineType == Just JETPACK) $ _crInv cr
     oldPos = _crOldPos cr
     momentum' = 0.97 *.* (_crPos cr -.- _crOldPos cr)
     momentum'' | magV momentum' > 3 = 3 *.* normalizeV momentum'
@@ -158,6 +158,7 @@ weaponReloadSounds cr w = case cr ^? crInv . ix (_crInvSel cr) . itConsumption o
         ActivePartial{} | _reloadState am == Nothing' -> w
         ActivePartial{} -> soundContinue (CrReloadSound cid) (_crPos cr) reloadS (Just 1) w
     Just ChargeableAmmo {} -> w
+    Just NoConsumption {} -> w
     Just ItemItselfConsumable {} -> w
     Nothing -> w
   where