Cleanup: broken pathfinding

src/Dodge/Room/RoadBlock.hs

@@ -5,12 +5,12 @@ import Geometry
 import Dodge.Default.Room
 import Dodge.LevelGen.Data
 import Dodge.Room.Link
-import Dodge.Placements
+import Dodge.Placement.Instance
 import Dodge.Room.Corridor
 import Dodge.Room.Furniture
 --import Dodge.LevelGen.Data
 --import Dodge.Default.Wall
---import Dodge.RandomHelp
+import Dodge.RandomHelp
 import Dodge.Creature
 import Dodge.Layout.Tree.Polymorphic
 
@@ -75,6 +75,19 @@ blockedCorridor = do
             ]
     sequence $ treeFromPost [] $ return $ Right $ set rmPmnts plmnts corridor
 
+-- | A single corridor with a destructible block blocking it.
+blockedCorridor' :: RandomGen g => State g Room
+blockedCorridor' = do
+    r <- state $ randomR (0,pi)
+    theblocks <- takeOne [ [sPS (V2 20 40) r $ PutBlock [1] thecol $ reverse $ square 10]
+        ,   [ sPS (V2 5 40) r $ PutBlock [1] thecol $ reverse $ square 10
+            , sPS (V2 35 40) (r+0.5) $ PutBlock [1] thecol $ reverse $ square 10
+            ]
+        ]
+    return $ corridor & rmPmnts .~ theblocks
+  where
+    thecol = V4 (150/256) ( 75/256)  0 ( 250/256)
+
 lasTunnel :: Room
 lasTunnel = defaultRoom
     { _rmPolys  = polys