Start to implement equipment sites on body

2022-05-21 12:13:50 +01:00
parent bc0f7ada3c
commit 398ed6d982
8 changed files with 94 additions and 23 deletions
@@ -46,6 +46,14 @@ defaultCreature = Creature
    , _crCorpse = setLayer BottomLayer $ setDepth 5 $ color (greyN 0.5) $ circleSolid 10
    , _crApplyDamage = defaultApplyDamage
    , _crPastDamage = 0
+    , _crEquipment = CreatureEquipment 
+        {_onHead    = Nothing'
+        ,_onChest   = Nothing'
+        ,_onBack    = Nothing'
+        ,_onWristL  = Nothing'
+        ,_onWristR  = Nothing'
+        ,_onLegs    = Nothing'
+        }
    , _crStance = Stance 
        {_carriage=Walking 0 WasLeftForward
        ,_posture=AtEase
@@ -156,7 +164,10 @@ defaultEquipment = Item
    , _itInvPos = Nothing
    , _itDimension = defItDimCol yellow
    , _itConsumption = NoConsumption
-    , _itUse = EquipUse {_eqUse = \_ _ -> id}
+    , _itUse = EquipUse 
+        {_eqUse = \_ _ -> id
+        ,_eqSite = GoesOnSpecial
+        }
    , _itScroll = \ _ _ -> id
    , _itAttachment = NoItAttachment
    , _itParams = NoParams