From a478ee0a2ae09dd4b6227baf6f9b45bffdba2577 Mon Sep 17 00:00:00 2001 From: justin Date: Mon, 1 Sep 2025 23:29:10 +0100 Subject: [PATCH] Fix sensor fail tline --- src/Dodge/Machine/Update.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Dodge/Machine/Update.hs b/src/Dodge/Machine/Update.hs index 6f93c55a1..e1af3e810 100644 --- a/src/Dodge/Machine/Update.hs +++ b/src/Dodge/Machine/Update.hs @@ -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