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

src/Dodge/Item/Display.hs

@@ -4,6 +4,7 @@ module Dodge.Item.Display (
     itemBaseName,
     itemString,
     basicItemDisplay,
+    itemInternalValue,
 ) where
 
 import ShortShow
@@ -36,7 +37,7 @@ itemInternalValue itm
     | Just x <- itm ^? itConsumables . magLoadStatus . iaLoaded = Just $ Left x
     | UseAttach (APInt i) <- itm ^. itUse = Just $ Left i
     | UseAttach (APProjectiles x) <- itm ^. itUse = Just . Right $ show x
-    | otherwise = mempty
+    | v <- itm ^? itUse . uValue = v
 
 
 maybeWarmupStatus :: Item -> Maybe String

src/Dodge/Item/Scope.hs

@@ -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 =