Work towards using room positions rather than room links in placements

src/Dodge/Floor.hs

@@ -34,9 +34,9 @@ initialAnoTree = padSucWithCorridors $ treeFromTrunk
     [[StartRoom]
     ,[ChainAnos 
         [[SetLabel 0 $ return $ roomRectAutoLinks 100 100 
-                    & rmExtPmnt ?~ externalButton red (anyLnkInPS 5) 
-                    & rmStartWires .~ IM.fromList [(0,RoomWire 0 0)]
-                    & rmLinkEff .~ [putWireEnd 0]
+                    & rmExtPmnt ?~ externalButton red (anyLnkInPS 5 & psLnkRoomEff .~ putWireStart 0) 
+--                    & rmStartWires .~ IM.fromList [(0,RoomWire 0 0)]
+                    & rmLinkEff .~ [putWireEndInvRmShift 0]
          ]
         ,[UseLabel 0 $ return switchDoorRoom]
         ]
@@ -107,7 +107,8 @@ layoutLevelFromSeed i seed = do
             putStrLn $ "After " ++ show i' 
                 ++ " attempt(s), Successful generation of level with seed " 
                 ++ show seed
-            return (fmap setLastLinkToUsed rs)
+            --return (fmap setLastLinkToUsed rs)
+            return rs
         Nothing -> do
             putStr $ "Level generation with seed " ++ show seed ++ " failed: "
             let (seed',_) = random g