Add laser tunnel lock-key combination

2022-03-09 15:27:35 +00:00
parent a4ec4e4889
commit 3bfebc266b
11 changed files with 104 additions and 75 deletions
@@ -5,7 +5,6 @@ The last link in the list is considered the incoming link, the other links are
 the outgoing links.  -}
 module Dodge.Room.Link
    ( shiftRoomShiftToLink
-    , shiftRoomBy
    , moveRoomBy
    , shiftLinkBy
    , doRoomShift
@@ -105,6 +104,7 @@ moveRoomBy shift r = r
        . (tileX    %~ shiftPointBy shift      )
        )
    & rmViewpoints %~ map (shiftPointBy shift)
+    & rmPos %~ map ( ( rpPos %~ shiftPointBy shift ) . (rpDir +~ snd shift) )

 shiftRoomShiftToLink :: (Point2,Float) -> (Point2,Float) -> Room -> Room
 shiftRoomShiftToLink l inlink r