Migrate LDTs to DTs

src/Dodge/Creature/State.hs

@@ -315,7 +315,7 @@ shineTargetLaser cr loc w = fromMaybe (w & pointittarg . itTgPos .~ Nothing) $ d
                     , _lpType = TargetingLaser (_itID itm)
                     }
   where
-    o = locOrient loc cr
+    o = locOrient (locLDTToLocDT loc) cr
     itmtree = loc ^. locLDT
     (p, q) = o `Q.comp` (V3 5 0 0, Q.qID)
     x = 1
@@ -341,7 +341,7 @@ shineTorch cr loc = fromMaybe id $ do
             . (cWorld . lWorld . creatures . ix (_crID cr) . crInv . ix invid . itConsumables . _Just -~ x)
   where
     itmtree = loc ^. locLDT
-    (p, q) = locOrient loc cr
+    (p, q) = locOrient (locLDTToLocDT loc) cr
     x = 10
     isammolink AmmoInLink{} = True
     isammolink _ = False