Fix sensor fail tline

2025-09-01 23:29:10 +01:00
parent 8398f0b852
commit a478ee0a2a
1 changed files with 2 additions and 2 deletions
@@ -146,10 +146,10 @@ mcProximitySensorUpdate mc w = case ( _proxStatus sens
    (NotClose, _, False, True) ->
        w & playsound dedumS
            & cWorld . lWorld . machines . ix (_mcID mc) . mcType . _McSensor . proxStatus .~ IsClose
-    (_, _, _, False) ->
-        w & cWorld . lWorld . machines . ix (_mcID mc) . mcType . _McSensor . proxStatus .~ NotClose
            & cWorld . lWorld . terminals . ix (mc ^?! mcMounts . ix OTTerminal) . tmFutureLines
            .:~ makeTermLine ("SENSOR FAIL: REQUIRES " ++ sensorReqToString (mc ^?! mcType . _McSensor . proxRequirement))
+    (_, _, _, False) ->
+        w & cWorld . lWorld . machines . ix (_mcID mc) . mcType . _McSensor . proxStatus .~ NotClose
    _ -> w
  where
    playsound sid = soundContinue (MachineAltSound (_mcID mc)) (_mcPos mc) sid Nothing