Rethink weapon repetitions

src/Dodge/WorldEffect.hs

@@ -5,6 +5,7 @@ module Dodge.WorldEffect (
     lineOutputTerminal,
 ) where
 
+import Dodge.Item.Grammar
 import Dodge.Creature.Impulse.UseItem
 import Dodge.BlBl
 import Dodge.Data.Input
@@ -44,6 +45,11 @@ doWdWd we = case we of
     MakeTempLight x t -> (cWorld . lWorld . lights .:~ x)
         . (cWorld . lWorld . worldEvents .:~ MakeTempLight x (t-1))
     UseInvItem invid pt -> \w -> fromMaybe w (useItem invid pt w)
+    WdWdBurstFireRepeats cid invid -> \w -> fromMaybe w $ do
+        cr <- w ^? cWorld . lWorld . creatures . ix cid
+        itree <- bimap _iatType (^. _1) <$> 
+            allInvLocs (cr ^. crInv) ^? ix invid . _2 . locLDT
+        return $ heldEffectNoHammerCheck itree cr w
 
 doItCrWdWd :: ItCrWdWd -> LabelDoubleTree ComposeLinkType Item -> Creature -> World -> World
 doItCrWdWd icww = case icww of