Improve placementspots

2022-03-12 10:35:14 +00:00
parent 33718ea94b
commit d340fd73c3
4 changed files with 29 additions and 11 deletions
@@ -33,9 +33,11 @@ import System.Random
 cenLasTur :: Room
 cenLasTur = roomNgon 8 200 & rmPmnts .~
    [ putLasTurret 0.02
-    , heightWall 30 (rectNSEW (-90) (-110) 20 (-20))
+    , heightWallPS (roomPosRoomBoolShift (\rp _ -> isInLnk rp) (shiftInBy 100)) 30 covershape
    , mntLightLnkCond unusedLnkToPS
    ]
+  where
+    covershape = rectNSEW 10 (-10) 20 (-20)

 lightSensInsideDoor :: Int -> Room -> Room
 lightSensInsideDoor outplid rm = rm