Correctly update root status of item in _ilIsRoot

2024-11-05 18:25:30 +00:00
parent 38ab6a35da
commit 9b3518e4eb
16 changed files with 40 additions and 25 deletions
@@ -17,6 +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
        -> overPosSP (heldItemOffset itm cr) (itemTreeSPic itmtree)
    ituse -> fromMaybe mempty $ do
        attachpos <- ituse ^? uequipEffect . eeAttachPos