Correctly display held root item

2024-11-26 17:05:13 +00:00
parent 7d0f44a041
commit e1f5049e0f
9 changed files with 16 additions and 67 deletions
@@ -17,7 +17,7 @@ import ShapePicture
 itemEquipPict :: Creature -> LabelDoubleTree ItemLink ComposedItem -> SPic
 itemEquipPict cr itmtree = case itm ^. itUse of
    UseHeld{} | itm ^? itLocation . ilIsRoot == Just True 
-            && itm ^? itLocation . ilIsSelected == Just True
+            && itm ^? itLocation . ilInvID == cr ^? crManipulation . manObject . imRootSelectedItem
        -> overPosSP (heldItemOffset itm cr) (itemTreeSPic itmtree)
    ituse -> fold $ do
        attachpos <- ituse ^? uequipEffect . eeAttachPos