Simplify analyser terminal

2025-09-01 23:24:11 +01:00
parent cbcc7e4fd6
commit 8398f0b852
18 changed files with 246 additions and 188 deletions
@@ -3,6 +3,7 @@
 {- Rooms that contain two doors and a switch alternating both.  -}
 module Dodge.Room.Airlock where

+import Dodge.Placement.Instance.Analyser
 import Dodge.Annotation.Data
 import Dodge.Data.GenWorld
 import Dodge.Default.Door
@@ -35,6 +36,7 @@ decontamRoom = do
                        \_ _ -> Just $ putDoubleDoor DoorObstacle thewall (WdBlBtOn btid) (V2 0 80) (V2 40 80) 2
            , invisibleWall $ rectNSWE 60 40 (-40) (-30)
            , spanLightI (V2 (-2) 30) (V2 (-2) 70)
+            , analyser (RequireHealth 100) (PS 50 0) (PS (V2 70 50) 0)
            ]
        & rmBound .~ [rectNSWE 75 15 0 40, switchcut]
  where