Allow for terminals to be deactivated

2025-08-19 13:58:57 +01:00
parent b8581a7862
commit 2f9cea1b69
9 changed files with 16 additions and 16 deletions
@@ -34,7 +34,7 @@ putTerminal col mc tm =
            & cWorld . lWorld . terminals . ix tmid . tmButtonID .~ btid
            & cWorld . lWorld . terminals . ix tmid . tmMachineID .~ mcid
            & cWorld . lWorld . machines . ix mcid . mcMounts . at OTTerminal ?~ tmid
-            & cWorld . lWorld . buttons . ix btid . btTermMID ?~ tmid
+            & cWorld . lWorld . buttons . ix btid . btEvent .~ ButtonAccessTerminal tmid
      where
        tmid = fromJust (_plMID tmpl)
        btid = fromJust (_plMID btpl)
@@ -53,9 +53,8 @@ termButton =
    Button
        { _btPos = 0
        , _btRot = 0
-        , _btEvent = ButtonAccessTerminal
+        , _btEvent = ButtonAccessTerminal 0
        , _btID = 0
-        , _btTermMID = Nothing
        }

 terminalColor :: Color