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
@@ -153,7 +153,7 @@ useEquipment cr i = _eqUse (_itUse $ _crInv cr IM.! i) cr i

 invSideEff :: Creature -> World -> World
 invSideEff cr w = weaponReloadSounds cr 
-    . flip (IS.foldr $ useEquipment cr) (_crInvEquipped cr)
+    . flip (foldr $ useEquipment cr) (IM.keys $ _crInvEquipped cr)
    $ IM.foldrWithKey f w (_crInv cr)
  where 
    f i it w' = doitemupdate w' & case it ^? itEffect . itInvEffect of