Handle warmdown of minigun with inventory effect

2025-01-08 16:18:44 +00:00
parent a843a1c9c0
commit 91f11e43c8
4 changed files with 21 additions and 15 deletions
@@ -25,6 +25,10 @@ doInvEffect = \case
        pointerToItemID (itm ^. itID) . itUse . useToggle %~ doBlBl f
    ItemCancelExamineInventory -> \_ _ -> cancelExamineInventory
    ItemCopierUpdate -> copierItemUpdate
+    ItemReduceWarmTime -> \itm _ -> pointerToItem itm . itUse . heldDelay . warmTime
+        %~ (max 0 . subtract 1)
+    ItemSetWarmTime x -> \itm _ -> pointerToItem itm . itUse . heldDelay . warmTime
+        .~ x

 copierItemUpdate :: Item -> Creature -> World -> World
 copierItemUpdate itm cr w = fromMaybe w $ do