Move toward not shifting rooms during generation

src/Dodge/Layout.hs

@@ -12,6 +12,7 @@ import Dodge.Wall.Zone
 import Dodge.GameRoom
 import Dodge.Bounds
 import Dodge.Default.Wall
+import Dodge.Room.Link
 import Geometry
 import qualified IntMapHelp as IM
 import Tile
@@ -26,7 +27,7 @@ import Data.Maybe
 import Data.Function
 
 generateLevelFromRoomList :: [Room] -> World -> World
-generateLevelFromRoomList gr w 
+generateLevelFromRoomList gr' w 
     = initWallZoning 
     . setupWorldBounds
     . placeWires
@@ -44,6 +45,7 @@ generateLevelFromRoomList gr w
     pairPath = concatMap _rmPath rs
     rs = zipWith addTile zs gr
     zs = map fromIntegral $ randomRs (0,63::Int) $ _randGen w
+    gr = map doRoomShift gr'
 
 placeWires :: (World,[Room])-> World
 placeWires (w,rms) = foldr placeRoomWires w rms