Work on terminals, add deactive data type status

src/Dodge/WorldEffect.hs

@@ -66,6 +66,7 @@ accessTerminal mtmid w = fromMaybe w $ do
             tm
                 & tmFutureLines .~ _tmBootLines tm
                 & tmStatus .~ TerminalLineRead
+        TerminalDeactivated -> error "managed to boot a deactivated terminal"
 
 torqueCr :: Float -> Int -> World -> World
 torqueCr x cid w
@@ -116,7 +117,8 @@ doTmWdWd tmwdwd = case tmwdwd of
     --        tid <- tm ^? tmID
     --        return $ cWorld . lWorld . terminals . ix tid . tmPartialCommand .~ x
     TmWdId -> const id
-    TmWdWdDisconnectTerminal -> disconnectTerminal
+    TmWdWdPowerDownTerminal -> powerDownTerminal
+    TmWdWdDeactivateTerminal -> deactivateTerminal
     TmWdWdTermSound sid -> \tm w ->
         let tpos = fromMaybe 0 $ w ^? cWorld . lWorld . buttons . ix (_tmButtonID tm) . btPos
          in soundStart TerminalSound tpos sid Nothing w