Tweaks concerning item types

2024-12-18 11:39:12 +00:00
parent d0ef2628ce
commit d405747bd5
21 changed files with 98 additions and 69 deletions
@@ -28,7 +28,7 @@ useRootItem crid w = (worldEventFlags . at InventoryChange ?~ ()) . fromMaybe w
    itmtree <- invRootTrees (_crInv cr) ^? ix itRef
    let itm = itmtree ^. ldtValue . _1
    case itmtree ^. ldtValue . _2 of
-        WeaponPlatformSF ->
+        HeldPlatformSF ->
            return $
                heldEffect (bimap _iatType fst3 itmtree) cr w
                    & pointerToItem itm . itUse . heldHammer .~ HammerDown