Add laser tunnel lock-key combination

2022-03-09 15:27:35 +00:00
parent a4ec4e4889
commit 3bfebc266b
11 changed files with 104 additions and 75 deletions
@@ -1,6 +1,5 @@
 {- Connecting rooms designed with a pass-through technique in mind.  -}
-module Dodge.Room.RoadBlock
-    where
+module Dodge.Room.RoadBlock where
 import Dodge.Data
 import Dodge.RoomLink
 import Geometry
@@ -87,18 +86,3 @@ blockedCorridorCloseBlocks = do
            ]
        ]
    return $ corridor & rmPmnts .~ theblocks
-
-lasTunnel :: Room
-lasTunnel = defaultRoom
-    { _rmPolys  = polys
-    , _rmBound  = polys
-    , _rmLinks  = [outLink (V2 20 190) (1.5* pi), inLink (V2 0 20) (0.5* pi)]
-    , _rmPmnts  = [putLasTurret 0.005 & plSpot .~ PS (V2 10 240) (1.5*pi)
-        , midWall (rectNSEW 65 40 0 25)
-        , mntLS vShape (V2 50 10) (V3 40 20 50)
-        ]
-    }
-  where
-    polys = [rectNSWE 250 0 0 20
-        , rectNSWE 80 0 0 60
-        ]