Simplify terminal boot program

2025-08-14 19:46:07 +01:00
parent 198b7acc78
commit 5b720cb82c
6 changed files with 17 additions and 13 deletions
@@ -1,5 +1,6 @@
 module Dodge.Room.RezBox where

+import Dodge.Terminal
 import Control.Monad
 import qualified Data.Set as S
 import Dodge.Cleat
@@ -23,7 +24,10 @@ import RandomHelp
 rezBox :: LightSource -> Room
 rezBox ls =
    roomRect 40 60 1 1
-        & rmPmnts .~ [sPS (V2 20 1) 0 $ PutLS ls]
+        & rmPmnts .~ [sPS (V2 20 1) 0 $ PutLS ls
+            , putMessageTerminal terminalColor (simpleTermMessage ["HELLOW","THIS"])
+                & plSpot .~ PS (V2 20 0) 0
+            ]
        & restrictInLinks (\(V2 _ h, _) -> h < 1)
        & restrictOutLinks (\(V2 _ h, _) -> h > 59)
        & rmName .~ "rezBox"