Commit before making out and in placements have ids

src/Dodge/Room/RunPast.hs

@@ -57,7 +57,7 @@ runPastRoom i = do
     let linkcor = critRoom & rmPmnts .~ [ spanLS thels (V2 0 65) (V2 40 65) ]
         critroom = linkcor & rmPmnts .:~ plRRpt 0 randC1
         aswitchroom = corridorWallN
-            {_rmExtPmnt = Just $ putLitButOnPosExtTrig red useLnkRoomPos
+            {_rmExtPmnt = Just $ putLitButOnPosExtTrig red useUnusedLnk
             ,_rmLabel = Just i
             ,_rmPmnts = []
             }