Delete location double trees

This commit is contained in:
2026-03-17 15:37:15 +00:00
parent 96c2fb00e1
commit 13b12f01a8
5 changed files with 2 additions and 315 deletions
-1
View File
@@ -59,7 +59,6 @@ doWdWd = \case
UseInvItem invid pt -> \w -> fromMaybe w (useItem invid pt w)
WdWdBurstFireRepetition cid invid -> \w -> fromMaybe w $ do
cr <- w ^? cWorld . lWorld . creatures . ix cid
--itree <- allInvLocs (cr ^. crInv) ^? ix invid . _2 . locLDT
loc <- invIndents (fmap (\k -> w ^?! cWorld . lWorld . items . ix k) $ cr ^. crInv) ^? ix (_unNInt invid) . _2
return $ heldEffectMuzzles loc cr w