Allow triggering items using an ECG

2024-12-18 15:39:04 +00:00
parent c4e8046332
commit 694bc2b060
3 changed files with 161 additions and 129 deletions
@@ -3,6 +3,7 @@

 module Dodge.HeldUse (
    heldEffect,
+    heldEffectNoHammerCheck,
    mcUseHeld,
 ) where

@@ -32,7 +33,10 @@ import RandomHelp
 import qualified SDL

 heldEffect :: LabelDoubleTree ComposeLinkType Item -> Creature -> World -> World
-heldEffect = hammerCheck $ useTimeCheck heldEffectMuzzles
+heldEffect = hammerCheck $ heldEffectNoHammerCheck
+
+heldEffectNoHammerCheck :: LabelDoubleTree ComposeLinkType Item -> Creature -> World -> World
+heldEffectNoHammerCheck = useTimeCheck heldEffectMuzzles

 hammerCheck :: ChainEffect
 hammerCheck f it cr w = case it ^? ldtValue . itUse . heldTriggerType of