Allow for separate equipment positions on body

2022-05-21 14:41:49 +01:00
parent 398ed6d982
commit 8ad332aced
8 changed files with 69 additions and 10 deletions
@@ -277,7 +277,7 @@ data Creature = Creature
    , _crInvSel         :: Int
    , _crInvCapacity    :: Int
    , _crInvLock        :: Bool
-    , _crInvEquipped    :: IS.IntSet
+    , _crInvEquipped    :: IM.IntMap EquipPosition
    , _crEquipment      :: CreatureEquipment
    , _crLeftInvSel     :: Maybe Int
    , _crState          :: CreatureState
@@ -396,6 +396,15 @@ data EquipSite
    | GoesOnLegs
    | GoesOnSpecial
    deriving (Eq,Ord,Show)
+data EquipPosition
+    = OnHead
+    | OnChest
+    | OnBack
+    | OnLeftWrist
+    | OnRightWrist
+    | OnLegs
+    | OnSpecial
+    deriving (Eq,Ord,Show)
 _itUseAimStance :: Item -> AimStance
 _itUseAimStance = _aimStance . _useAim . _itUse
 data ItemConsumption