Move towards moving muzzles out of records

2025-06-05 08:16:20 +01:00
parent e05061a268
commit b2a971d8c3
12 changed files with 226 additions and 234 deletions
@@ -45,8 +45,7 @@ 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
--        undefined
+    WdWdBurstFireRepetition cid invid -> \w -> fromMaybe w $ do
        cr <- w ^? cWorld . lWorld . creatures . ix cid
        itree <- bimap _iatType (^. _1) <$> 
            allInvLocs (cr ^. crInv) ^? ix invid . _2 . locLDT