Work on toggle terminals

2025-08-20 17:06:30 +01:00
parent 8557724fb5
commit 9de2a22001
4 changed files with 15 additions and 21 deletions
@@ -42,18 +42,12 @@ addWarningTerminal str outplid = (rmName .++~ "warningTerm-")
            )
    termMessages trpl =
        lineOutputTerminal (makeColorTermLine red "WARNING" : makeTermPara str)
-            & tmCommands .:~ TCToggles
+--            & tmCommands .:~ TCToggles
            & tmToggles .~ M.fromList
                    [("DOOR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))]

 lineOutputTerminal :: [TerminalLine] -> Terminal
-lineOutputTerminal tls =
-    defaultTerminal
-        { _tmDisplayedLines = []
-        , _tmFutureLines = []
-        , _tmBootLines = connectionBlurbLines tls
-        , _tmDeathEffect = TmWdWdDoDeathTriggers
-        }
+lineOutputTerminal tls = defaultTerminal & tmBootLines .~ connectionBlurbLines tls

 moveToSideFirstOutLink :: RoomPos -> Room -> Maybe (Point2, Float)
 moveToSideFirstOutLink rp rm = do