Work on press-continue terminal prompts

src/Dodge/Room/RezBox.hs

@@ -1,5 +1,6 @@
 module Dodge.Room.RezBox where
 
+import Dodge.Default.Terminal
 import Dodge.Terminal
 import Control.Monad
 import qualified Data.Set as S
@@ -25,12 +26,14 @@ rezBox :: LightSource -> Room
 rezBox ls =
     roomRect 40 60 1 1
         & rmPmnts .~ [sPS (V2 20 1) 0 $ PutLS ls
-            , putMessageTerminal terminalColor (simpleTermMessage ["HELLOW","THIS"])
+            , putMessageTerminal terminalColor (defaultTerminal & tmBootLines .~ (makeTermPara s) <> tlSetStatus (TerminalPressTo "QUIT") <> [TLine 1 [] TmWdWdDisconnectTerminal])
                 & plSpot .~ PS (V2 20 0) 0
             ]
         & restrictInLinks (\(V2 _ h, _) -> h < 1)
         & restrictOutLinks (\(V2 _ h, _) -> h > 59)
         & rmName .~ "rezBox"
+  where
+    s = "RESPAWN POINT SET AT THIS LOCATION."
 
 rezBox' :: RandomGen g => State g (MetaTree Room String)
 rezBox' = do