Simplify analyser terminal

src/Dodge/Room/Airlock.hs

@@ -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

src/Dodge/Room/Tutorial.hs

@@ -1,9 +1,9 @@
 module Dodge.Room.Tutorial where
 
+import Dodge.Room.Room
 import Dodge.Room.Corridor
 import Dodge.Room.Airlock
 import Dodge.Room.RoadBlock
---import Dodge.Room.Room
 import Dodge.Item.Held.Cane
 import Dodge.Item.Ammo
 import Dodge.Annotation.Data
@@ -45,10 +45,10 @@ tutAnoTree =
     OnwardList 
         [ AnTree $ return $ tToBTree "teststart" $ return $ cleatOnward corridor
         , AnTree $ tutDrop
-----        , AnTree $ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
---        , AnTree corDoor
---        , AnTree $ tutRooms
---        , AnTree $ tutDrop
+--        [ AnTree $ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
+        , AnTree corDoor
+        , AnTree $ tutRooms
+        , AnTree $ tutDrop
 ----        , AnTree $ pickupTut
 ----        , AnTree $ weaponTut
         ]