Allow terminals to block input

2022-06-07 22:56:20 +01:00
parent e85bd36fe4
commit c31f398fab
8 changed files with 48 additions and 27 deletions
@@ -7,5 +7,7 @@ import Data.Maybe
 inTermFocus :: World -> Bool
 inTermFocus w = fromMaybe False $ do
    tmid <- w ^? hud . hudElement . subInventory . termID
-    w ^? terminals . ix tmid . tmInput . tiFocus
+    hasfocus <- w ^? terminals . ix tmid . tmInput . tiFocus
+    connectionstatus <- w ^? terminals . ix tmid . tmStatus
+    return $ hasfocus && connectionstatus == TerminalReady