Room with doors and central ledge terminal

src/Dodge/Room/Warning.hs

@@ -2,10 +2,12 @@
 module Dodge.Room.Warning (
     warningRooms,
     addDoorToggleTerminal,
+    addDoorToggleTerminal',
     addDoorAtNthLinkToggleTerminal,
     addDoorAtNthLinkToggleInterrupt,
 ) where
 
+import Dodge.LevelGen.PlacementHelper
 import Dodge.Default
 import Color
 import Control.Monad
@@ -78,6 +80,17 @@ addDoorAtNthLinkToggleTerminal j xs i =
                     [("DOOR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))
                     ]
 
+addDoorToggleTerminal' :: Int -> PlacementSpot -> Room -> Room
+addDoorToggleTerminal' i pspot rm = rm
+    & rmPmnts .:~ (pmnt & plExternalID ?~ i)
+  where
+    pmnt = ptCont (PutTrigger False) $ \pl -> Just $ putMessageTerminal (
+        lineOutputTerminal []
+            & tmToggles
+                .~ M.fromList
+                    [("DOOR", TerminalToggle (fromJust $ _plMID pl) (BlConst True))
+                    ]) & plSpot .~ pspot
+
 addWarningTerminal :: String -> Int -> Room -> Room
 addWarningTerminal str =
     addDoorToggleTerminal