Unify item inventory effects somewhat

2025-06-20 17:41:32 +01:00
parent fe1ac8f5a4
commit b920a2ec72
4 changed files with 262 additions and 280 deletions
@@ -119,9 +119,7 @@ useTimeCheck f item cr w = case useDelay $ item ^. ldtValue of
    FixedRate rate
        | w ^. cWorld . lWorld . lClock - rate > lastused -> f item cr $ setUseRate w
    FixedRate{} -> w
-    --Just (WarmUpNoDelay wt wm ws)
    WarmUpNoDelay wm ws
--        | wt < wm ->
        | _wTime (_itParams $ _ldtValue item) < wm ->
            w
                & soundContinue (CrWeaponSound cid 0) (_crPos cr) ws (Just 2)