Allow for assigning attach items orientations

2024-09-30 16:09:56 +01:00
parent fd8adcea92
commit d8d3a01f06
10 changed files with 143 additions and 69 deletions
@@ -16,7 +16,7 @@ import Dodge.Item.Draw.SPic
 import Dodge.Item.HeldOffset
 import ShapePicture

-itemEquipPict :: Creature -> LabelDoubleTree ComposeLinkType (PartiallyComposedItem ComposeLinkType)
+itemEquipPict :: Creature -> LabelDoubleTree ComposeLinkType ComposedItem
    -> SPic
 itemEquipPict cr itmtree = case itm ^. itUse of
    UseHeld{} | itm ^? itLocation . ilIsRoot == Just True