Allow for ordering of in placements, not fully tested yet

src/Dodge/Room/Airlock.hs

@@ -42,7 +42,7 @@ decontamRoom i =
                ]
 --        & rmOutPmnt . at i ?~ 
 --               analyser (NoItemZone ps) (PS 50 0) (PS mcpos 0)
-        & rmInPmnt .~ [f]
+        & rmInPmnt .~ [(0,f)]
         & rmBound .~ [rectNSWE 75 15 0 40, switchcut]
   where
     f gw = fromMaybe (error "tried to put a door using an empty placement list") $ do

src/Dodge/Room/Door.hs

@@ -34,7 +34,7 @@ triggerDoorRoom i =
         { _rmPolys = [rectNSWE 40 0 0 40]
         , _rmLinks = [uncurry outLink (V2 20 35, 0), uncurry inLink (V2 20 5, pi)]
         , _rmPath = doublePairSet (V2 20 35, V2 20 5)
-        , _rmInPmnt = [f]
+        , _rmInPmnt = [(0,f)]
         , _rmName = "triggerDoorRoom"
         -- door extends into side walls (for shadows as rendered 12/03/21)
         -- note no bounds

src/Dodge/Room/Tutorial.hs

@@ -80,7 +80,7 @@ tutDrop = do
     return $
         tToBTree "TutDrop" $
             treePost
-                [x & rmInPmnt .:~ t j, y, cleatOnward rm]
+                [x & rmInPmnt .:~ (0,t j), y, cleatOnward rm]
   where
     t j = \ gw -> let x = gw ^? genInts . ix j
         in putMessageTerminal
@@ -112,7 +112,7 @@ tutRooms is = do
     x <-
         shuffleLinks 
             . analyserByDoorWithPrompt sensorTut (RequireEquipment (AMMOMAG DRUMMAG)) i
-            . (rmInPmnt .:~ a)
+            . (rmInPmnt .:~ (0,a))
             =<< addDoorAtNthLinkToggleTerminal 1 ss j
             <$> roomNgon 6 100
     bcor <- blockedCorridor
@@ -125,7 +125,7 @@ tutRooms is = do
                 [ treeFromPost [triggerDoorRoom i] r1
                 , treeFromPost [triggerDoorRoom j] r2
                 , bcor
---                , treeFromPost [triggerDoorRoom k] r2
+                , treeFromPost [triggerDoorRoom k] r2
                 ]
   where
     ss =