Magnets

src/Dodge/Creature/State.hs

@@ -19,6 +19,7 @@ import Picture
 import qualified IntMapHelp as IM
 --import StrictHelp
 
+import qualified Data.IntSet as IS
 import Data.Maybe
 import Data.Function
 import Control.Lens
@@ -134,8 +135,11 @@ invItemUpdate = itUse %~ useupdate
         . (useDelay . rateTime %~ decreaseToZero)
 
 invSideEff :: Creature -> World -> World
-invSideEff cr w = weaponReloadSounds cr $ IM.foldrWithKey f w (_crInv cr)
+invSideEff cr w = weaponReloadSounds cr 
+    . flip (IS.foldr useeq) (_crInvEquipped cr)
+    $ IM.foldrWithKey f w (_crInv cr)
   where 
+    useeq i = _eqUse (_itUse $ _crInv cr IM.! i) cr i
     f i it w' = case it ^? itEffect . itInvEffect of
         Nothing -> w' & doitemupdate
         Just g  -> g (_itEffect it) cr i w' & doitemupdate