justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Fix room shift for mounted lights

Browse Source
This commit is contained in:
justin
2025-10-04 01:01:00 +01:00
parent aba855e0a6
commit 731552fe08
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
saveSlot/LevelStart0
+1 -1
View File
File diff suppressed because one or more lines are too long
src/Dodge/Tree/Shift.hs
+2 -2
View File
@@ -107,8 +107,8 @@ posRms prs parenti@(parent, _) ((numChild, t@(Node childi _)) : its) tseq = do
.:~ RoomPos .:~ RoomPos
--{ _rpPos = fst (lnkPosDir outlnk) --{ _rpPos = fst (lnkPosDir outlnk)
--, _rpDir = snd (lnkPosDir outlnk) --, _rpDir = snd (lnkPosDir outlnk)
{ _rpPos = outlnk ^. rlPos { _rpPos = il ^. rlPos
, _rpDir = outlnk ^. rlDir , _rpDir = il ^. rlDir
, _rpType = S.empty , _rpType = S.empty
, _rpLinkStatus = UsedInLink (_rlType il) (snd parenti) , _rpLinkStatus = UsedInLink (_rlType il) (snd parenti)
, _rpPlacementUse = mempty , _rpPlacementUse = mempty