Slightly broken placements

2021-11-14 19:56:22 +00:00
parent affdde0f21
commit 2a28967cd3
9 changed files with 166 additions and 114 deletions
@@ -34,7 +34,8 @@ initialAnoTree = padSucWithCorridors $ treeFromTrunk
    [[StartRoom]
    ,[ChainAnos 
        [[SetLabel 0 $ return $ roomRectAutoLinks 100 100 
-                    & rmExtPmnt ?~ externalButton red (anyLnkInPS 5 & psLnkRoomEff .~ putWireStart 0) 
+                    & rmExtPmnt ?~ externalButton red 
+                        (anyLnkInPS 5 & psLnkRoomEff .~ (putWireStart 0 . extractRoomPos) )
 --                    & rmStartWires .~ IM.fromList [(0,RoomWire 0 0)]
                    & rmLinkEff .~ [putWireEndInvRmShift 0]
         ]