Add IntMapHelper, locate wall cutting bug

2021-05-22 15:14:21 +02:00
parent 26f0ca4ab5
commit 9c2bcbec10
35 changed files with 221 additions and 139 deletions
@@ -309,9 +309,12 @@ weaponBetweenPillars = do
            ,sPS crPos1 (d crPos1) randC1
            ,sPS crPos2 (d crPos2) randC1
            ]
-    (fmap connectRoom . randomiseOutLinks) =<< filterLinks f (over rmPS (++plmnts) roomPillars)
+        theRoom = roomPillars & rmPS %~ (++ plmnts)
+--                    & rmPolys %~ (rectNSWE 300 0 0 300 :)
+    (fmap connectRoom . randomiseOutLinks) =<< filterLinks f theRoom
  where 
    f (_,a) = a == 0
+    --f (_,_) = True -- this is probably preferable...

 weaponLongCorridor :: RandomGen g => State g (Tree (Either Room Room))
 weaponLongCorridor = do