Continue work on burst fire

2025-06-04 22:08:05 +01:00
parent 37fafa9123
commit e05061a268
3 changed files with 108 additions and 105 deletions
@@ -7,6 +7,7 @@ module Dodge.HeldUse (
    gadgetEffect,
    heldEffectNoHammerCheck,
    mcUseHeld,
+    heldEffectMuzzles,
 ) where

 import Color
@@ -101,12 +102,12 @@ hammerCheck f pt it cr
        id
    | otherwise = f it cr
  where
-    g x = (x, WdWdFromItCrixWdWd (upitm x) (_crID cr) ItCrWdItemHeldEffectNoHammer)
-    upitm x =
-        it -- & ldtValue . itUse . heldParams . weaponRepeat .~ []
-            & ldtValue . itUse . heldFrame .~ x
+--    g x = (x, WdWdFromItCrixWdWd (upitm x) (_crID cr) ItCrWdItemHeldEffectNoHammer)
+--    upitm x =
+--        it -- & ldtValue . itUse . heldParams . weaponRepeat .~ []
+--            & ldtValue . itUse . heldFrame .~ x

--g x = (x, WdWdBurstFireRepeats (_crID cr) (it ^?! ldtValue . itLocation . ilInvID))
+    g x = (x, WdWdBurstFireRepeats (_crID cr) (it ^?! ldtValue . itLocation . ilInvID))

 -- | Applies a world effect after an item use cooldown check.
 useTimeCheck :: ChainEffect