Distinguish between selected item and root-selected item

2024-09-21 21:59:53 +01:00
parent 2154abfb1d
commit 31b5db6e9e
33 changed files with 313 additions and 281 deletions
@@ -16,7 +16,7 @@ import ShapePicture

 itemEquipPict :: Creature -> Item -> SPic
 itemEquipPict cr it = case it ^. itUse of
-    HeldUse{} | _itIsHeld it -> overPosSP (heldItemOffset it cr) (itemSPic it)
+    HeldUse{} | _itIsRoot it -> overPosSP (heldItemOffset it cr) (itemSPic it)
    ituse -> fromMaybe mempty $ do
        attachpos <- ituse ^? equipEffect . eeAttachPos
        i <- it ^? itLocation . ipInvID