Improve booster (graphics + bugfixes)

2021-05-25 02:15:38 +02:00
parent a7d4d8911d
commit 62c4baaec8
3 changed files with 56 additions and 20 deletions
@@ -119,10 +119,9 @@ movementSideEff cr w
 invSideEff :: Creature -> World -> World
 invSideEff cr w = weaponReloadSounds cr $ IM.foldrWithKey f w (_crInv cr)
  where 
-    f i it w' = case it ^? itEffect of
+    f i it w' = case it ^? itEffect . itInvEffect of
        Nothing -> w'
-        Just NoItEffect -> w'
-        Just g  -> dbArg _itInvEffect g cr i w'
+        Just g  -> g (_itEffect it) cr i w'

 weaponReloadSounds :: Creature -> World -> World
 weaponReloadSounds cr w = case _crInv cr IM.!? _crInvSel cr of