Work on Falling carriage state

src/Dodge/Room/LasTurret.hs

@@ -399,7 +399,7 @@ lasCenRunClose1 = do
     -- (alinks,blinks) <- shufflePair (bllinks,brlinks)
     -- (alinks,blinks) <- shufflePair (bllinks,tmllink)
     lnks <- shuffle [bllinks, brlinks, tmllink, tmrlink]
-    let alinks = lnks !! 0
+    let alinks = head lnks
         blinks = lnks !! 1
     outwall <-
         takeOne

src/Dodge/Room/Link.hs

@@ -75,7 +75,7 @@ shiftRoomShiftToLink :: (Point2, Float) -> (Point2, Float) -> Room -> Room
 shiftRoomShiftToLink l inlink r =
     shiftRoomShiftBy l
         . shiftRoomShiftBy (0, pi - a)
-        $ shiftRoomShiftBy (0 - p, 0) r
+        $ shiftRoomShiftBy (- p, 0) r
   where
     (p, a) = inlink