Allow for ordering of in placements, not fully tested yet

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 =