Move toward not shifting rooms during generation

2021-11-15 00:56:25 +00:00
parent 2a28967cd3
commit 8356496a7f
4 changed files with 27 additions and 9 deletions
@@ -38,8 +38,8 @@ startRoom = do
            ]
    treeFromPost [Left rezBox, Left door] . Right 
        <$> randomiseOutLinks 
-            (shiftRoomBy (V2 (-20) (-20),0) 
+            ((shiftRoomBy (V2 (-20) (-20),0) 
            $ roomRectAutoLinks w h & rmPmnts %~ (plmnts ++) 
                & rmStartWires .~ IM.fromList [(0,RoomWire (V2   0   0) 0)]
                & rmEndWires   .~ IM.fromList [(0,RoomWire (V2 500 500) 0)]
-            )
+            ) & rmShift .~ (0,0) )