Room with doors and central ledge terminal

2026-02-01 22:23:06 +00:00
parent a6976eae8d
commit f3aaf8ba57
7 changed files with 286 additions and 148 deletions
@@ -11,6 +11,7 @@ module Dodge.Room.Room (
    weaponBehindPillar,
    critsRoom,
    distributerRoom,
+    critDeadEnd,
 ) where

 import Linear
@@ -251,6 +252,10 @@ weaponLongCorridor = do
 critInDeadEnd :: Room
 critInDeadEnd = deadEndRoom & rmPmnts .~ [sPS (V2 0 0) 0 randC1]

+-- this one should face the inlink door
+critDeadEnd :: Room
+critDeadEnd = deadEndRoom & rmPmnts .~ [sPS (V2 0 0) (pi/2) randC1]
+
 deadEndRoom :: Room
 deadEndRoom =
    defaultRoom