Cleanup, fix broken records in LeftUse

2024-10-03 10:34:17 +01:00
parent e88b3c7443
commit 1953fb2d0c
19 changed files with 71 additions and 114 deletions
@@ -17,11 +17,11 @@ import Sound.Data

 autoEffect :: (Item -> Creature -> World -> World) -> Int -> SoundID -> Item -> Creature -> World -> World
 autoEffect eff t sid itm cr w
-    | _eparamInt (_eeParams (_equipEffect $ _itUse itm)) < 1 =
+    | _eparamInt (_eeParams (_uequipEffect $ _itUse itm)) < 1 =
        eff itm cr w
            & cWorld . lWorld . creatures . ix (_crID cr) . crInv . ix (_ilInvID $ _itLocation itm)
                . itUse
-                . equipEffect
+                . uequipEffect
                . eeParams
                . eparamInt
                .~ t
@@ -30,7 +30,7 @@ autoEffect eff t sid itm cr w
        w
            & cWorld . lWorld . creatures . ix (_crID cr) . crInv . ix (_ilInvID $ _itLocation itm)
                . itUse
-                . equipEffect
+                . uequipEffect
                . eeParams
                . eparamInt
                -~ 1