Make item use mods an external function

2022-07-20 17:06:45 +01:00
parent 795c4c1987
commit 12246462fe
22 changed files with 232 additions and 297 deletions
@@ -26,7 +26,7 @@ useItem cr' w = fromMaybe (f w) $ do
 itemEffect :: Creature -> Item -> World -> World
 itemEffect cr it w = case it ^? itUse of
    Just RightUse {_rUse = eff,_useMods = usemods} 
-                    -> hammerTest $ tryReload cr it w $ foldr ($) (useHeld eff) usemods it cr
+                    -> hammerTest $ tryReload cr it w $ foldr ($) (useHeld eff) (useMod usemods) it cr
    Just LeftUse {} -> doequipmentchange
    Just EquipUse{} -> doequipmentchange
    -- ConsumeUse will cause problems if the item is not selected