Remove most instances of LDTs from item use

src/Dodge/WorldEffect.hs

@@ -5,6 +5,7 @@ module Dodge.WorldEffect (
     lineOutputTerminal,
 ) where
 
+import Dodge.DoubleTree
 import Dodge.Item.Grammar
 import Dodge.Creature.Impulse.UseItem
 import Dodge.BlBl
@@ -46,7 +47,7 @@ doWdWd we = case we of
         cr <- w ^? cWorld . lWorld . creatures . ix cid
         --itree <- allInvLocs (cr ^. crInv) ^? ix invid . _2 . locLDT
         loc <- allInvLocs (cr ^. crInv) ^? ix invid . _2
-        return $ heldEffectMuzzles loc cr w
+        return $ heldEffectMuzzles (locLDTToLocDT loc) cr w
 
 accessTerminal :: Maybe Int -> World -> World
 accessTerminal mtmid w = fromMaybe w $ do