Implement copier, an item that copies the value displayed by other items

2025-01-08 14:29:25 +00:00
parent 47aa8655b1
commit 21b7b863c7
12 changed files with 184 additions and 142 deletions
@@ -88,8 +88,9 @@ copier :: InventoryPathing -> Item
 copier x =
    defaultHeldItem
        & itType .~ COPIER x
-        & itUse .~ UseInt 0
+        & itUse .~ UseValue (Left 0)
        & itScroll .~ ItemScrollInt 0
+        & itEffect . ieInv .~ ItemCopierUpdate

 bgate :: Item
 bgate =