Fix bug that allowed for in links to be used as out links

2021-11-23 12:08:33 +00:00
parent 5ab5be3087
commit 05bb1961c0
6 changed files with 20 additions and 20 deletions
@@ -13,6 +13,7 @@ import Dodge.Room.Path
 import Dodge.Creature
 import Dodge.RandomHelp
 import Dodge.Tree
+import Dodge.LevelGen.StaticWalls
 import Geometry

 import Data.Tree
@@ -146,7 +147,7 @@ roomTwistCross x y z =
            , _rmLinks  = [(V2 z (y-20), pi/2)]
            , _rmPath   = []
            , _rmPmnts  = [mntLS iShape (V2 x x) (V3 (x-20) (x-20) 70)]
-            , _rmBound  = ps
+            , _rmBound  = map (expandPolyCorners 10) ps
            }
    in (foldr1 combineRooms $ map (\r -> shiftRoomBy (V2 0 0, r) corner) [0,pi/2,pi,3*pi/2])
        {_rmName = "twistCross" }