Start to remove explicit "outplacements"

2025-09-23 17:11:07 +01:00
parent ef90e5702b
commit a6ca90d7d8
15 changed files with 67 additions and 44 deletions
@@ -35,7 +35,8 @@ addDoorToggleTerminal = addDoorAtNthLinkToggleTerminal 0

 addDoorAtNthLinkToggleTerminal :: Int -> [TerminalLine] -> Int -> Room -> Room
 addDoorAtNthLinkToggleTerminal j xs i = (rmName .++~ "doorToggle-")
-        . (rmOutPmnt . at i ?~ outplace)
+--        . (rmOutPmnt . at i ?~ outplace)
+        . (rmPmnts .:~ outplace)
  where
    outplace =
        extTrigLitPos
@@ -43,7 +44,7 @@ addDoorAtNthLinkToggleTerminal j xs i = (rmName .++~ "doorToggle-")
            ( Just . set plSpot (rprShift (moveToSideNthOutLink j))
                . putMessageTerminal terminalColor
                . termMessages
-            )
+            ) & plExternalID ?~ i
    termMessages trpl =
        lineOutputTerminal xs --(makeColorTermLine red "WARNING" : makeTermPara str)
            & tmToggles .~ M.fromList