Improve frontArmour equipment

2022-05-21 19:30:51 +01:00
parent c5818271d8
commit e9cc7e64c9
9 changed files with 37 additions and 49 deletions
@@ -58,17 +58,18 @@ frontArmour = defaultEquipment
        {_eqUse = \_ _ -> id
        ,_eqSite = GoesOnChest
        }
--    , _itFloorPict = \_ -> (,) emptySH $ onLayer FlItLayer $ translate 0 (-5) $ pictures 
--        [color (greyN 0.1) $ thickArc 0        (pi/2) 10 5
--        ,color (greyN 0.1) $ thickArc (3*pi/2) (2*pi) 10 5
--        ]
-    , _itEquipPict = \_ _ -> (,) emptySH $ setDepth 20 $ pictures 
+    , _itEquipPict = pictureOnEquip (emptySH , setDepth 20 $ pictures
        [color (greyN 0.1) $ thickArc 0        (pi/2) 10 5
        ,color (greyN 0.1) $ thickArc (3*pi/2) (2*pi) 10 5
-        ]
+        ])
    , _itEffect = NoItEffect
    , _itID = Nothing
    }
+pictureOnEquip :: SPic -> Creature -> Int -> SPic
+pictureOnEquip sp cr i 
+    | isJust (cr ^? crInvEquipped . ix i) = sp
+    | otherwise = mempty
+
 flatShield :: Item
 flatShield = defaultEquipment
    { _itEquipPict = pictureWeaponAim flatShieldEquipSPic