Half add explicit death event for machines

2022-06-05 10:37:40 +01:00
parent 7398791194
commit fcc6d3952c
9 changed files with 26 additions and 10 deletions
@@ -83,7 +83,7 @@ sensInsideDoor senseType outplid rm = rm
            thinHighBar 0 (V2 20 (-1)) (V2 20 (-100))
            <> thinHighBar 0 (V2 0 (-100)) (V2 20 (-100))
            <> barPP 1.5 (V3 20 (-1) 0) (V3 20 (-1) 80))
-        , putTerminal (const $ defaultTermParams & addInputLine [damageCodeCommand,quitCommand]
+        , putTerminal terminalColor (const $ defaultTermParams & addInputLine [damageCodeCommand,quitCommand]
                [helpCommand,commandsCommand]
                )
            & plSpot .~ rprBoolShift isUnusedLnk (shiftInBy 10)