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
@@ -46,10 +46,11 @@ doWdWd we = case we of
        . (cWorld . lWorld . worldEvents .:~ MakeTempLight x (t-1))
    UseInvItem invid pt -> \w -> fromMaybe w (useItem invid pt w)
    WdWdBurstFireRepeats cid invid -> \w -> fromMaybe w $ do
+--        undefined
        cr <- w ^? cWorld . lWorld . creatures . ix cid
        itree <- bimap _iatType (^. _1) <$> 
            allInvLocs (cr ^. crInv) ^? ix invid . _2 . locLDT
-        return $ heldEffectNoHammerCheck itree cr w
+        return $ heldEffectMuzzles itree cr w

 doItCrWdWd :: ItCrWdWd -> LabelDoubleTree ComposeLinkType Item -> Creature -> World -> World
 doItCrWdWd icww = case icww of