Move item effect functions

2022-07-20 22:43:30 +01:00
parent b36e7f8b78
commit 866196ab3e
16 changed files with 257 additions and 229 deletions
@@ -3,6 +3,7 @@ module Dodge.Creature.State
    , doDamage
    ) where
 import Dodge.Data
+import Dodge.ItEffect
 import Dodge.Euse
 import Dodge.EnergyBall
 import Dodge.Damage
@@ -196,7 +197,7 @@ invSideEff :: Creature -> World -> World
 invSideEff cr w = weaponReloadSounds cr $ IM.foldrWithKey f w (_crInv cr)
  where 
    f i it w' = itemInvSideEffect cr it 
-        $ doItemTargeting i cr w' & maybe id (\g -> g it cr) (it ^? itEffect . ieInv)
+        $ doItemTargeting i cr w' & maybe id (\g -> doInvEffect g it cr) (it ^? itEffect . ieInv)

 itemInvSideEffect :: Creature -> Item -> World -> World
 itemInvSideEffect cr it