justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2025-12-30 20:52:04 +00:00
parent 579b82b4ed
commit 6db7efece1
1 changed files with 2 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/Warning.hs
+2 -9
View File
@@ -55,12 +55,6 @@ addDoorAtNthLinkToggleInterrupt j x i =
(defaultMachine & mcType .~ McTrigger (fromJust $ _plMID trpl) (defaultMachine & mcType .~ McTrigger (fromJust $ _plMID trpl)
& mcHP .~ 100) & mcHP .~ 100)
(simpleTermMessage x) (simpleTermMessage x)
-- lineOutputTerminal xs --(makeColorTermLine red "WARNING" : makeTermPara str)
-- & tmToggles
-- .~ M.fromList
-- [("DOOR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))
-- ,("DOAR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))
-- ,("TEST", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))]
addDoorAtNthLinkToggleTerminal :: Int -> [TerminalLine] -> Int -> Room -> Room addDoorAtNthLinkToggleTerminal :: Int -> [TerminalLine] -> Int -> Room -> Room
@@ -78,12 +72,11 @@ addDoorAtNthLinkToggleTerminal j xs i =
& plExternalID & plExternalID
?~ i ?~ i
termMessages trpl = termMessages trpl =
lineOutputTerminal xs --(makeColorTermLine red "WARNING" : makeTermPara str) lineOutputTerminal xs
& tmToggles & tmToggles
.~ M.fromList .~ M.fromList
[("DOOR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True)) [("DOOR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))
,("DOAR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True)) ]
,("TEST", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))]
addWarningTerminal :: String -> Int -> Room -> Room addWarningTerminal :: String -> Int -> Room -> Room
addWarningTerminal str = addWarningTerminal str =