Half add explicit death event for machines

src/Dodge/Room/LongDoor.hs

@@ -96,7 +96,7 @@ addButtonSlowDoor x h rm = do
         & rmPmnts .++~ [butDoor , theterminal]
         & rmBound .:~ openDoorBound
   where
-    theterminal = putTerminal (simpleTermMessage themessage)
+    theterminal = putTerminal terminalColor (simpleTermMessage themessage)
         & plSpot .~ rprBoolShift (isUnusedLnkType InLink) (shiftByV2 (V2 0 (-10)))
     themessage = 
         ["WARNING:"

src/Dodge/Room/SensorDoor.hs

@@ -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)

src/Dodge/Room/Warning.hs

@@ -52,7 +52,7 @@ addWarningTerminal outplid = (rmName .++~ "warningTerm-")
   where
     outplace = extTrigLitPos
         (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
-        (Just . set plSpot (rprShift moveToSideFirstOutLink) . putTerminal . termMessages)
+        (Just . set plSpot (rprShift moveToSideFirstOutLink) . putTerminal terminalColor . termMessages)
     termMessages trid _ = defaultTermParams & addInputLine
             [unlockCommand trid,quitCommand] 
             [helpCommand,infoCommand theinfo,commandsCommand]