Make lasGun have multiple functions when attached differently

2024-10-06 11:19:19 +01:00
parent 3b54f00cc7
commit 9860a88c0c
11 changed files with 155 additions and 112 deletions
@@ -24,7 +24,7 @@ itemEquipPict cr itmtree = case itm ^. itUse of
        epos <- cr ^? crInvEquipped . ix i
        return $ equipPosition epos cr attachpos (itemSPic itm)
  where
-    itm = itmtree ^. ldtValue . _1
+    itm = itmtree ^. ldtValue . cItem

 equipPosition :: EquipPosition -> Creature -> Point3 -> SPic -> SPic
 equipPosition epos cr p sh = case epos of