Implement/improve null/un/binary logic gates

2025-01-08 18:13:20 +00:00
parent d436db2847
commit ef751cbd21
9 changed files with 246 additions and 183 deletions
@@ -27,6 +27,8 @@ doInvEffect = \case
    ItemCopierUpdate -> copierItemUpdate
    ItemReduceWarmTime -> \itm _ -> pointerToItem itm . itUse . heldDelay . warmTime
        %~ (max 0 . subtract 1)
+    -- use of pointerToItemID rather than pointerToItem because the item
+    -- location is changing
    ItemSetWarmTime x -> \itm _ -> pointerToItemID (_itID itm) . itUse . heldDelay . warmTime
        .~ x