Allow for terminals to be deactivated

src/Dodge/Data/Button.hs

@@ -25,14 +25,14 @@ data ButtonEvent
         , _bsColor2 :: Color
         , _btOn :: Bool
         }
-    | ButtonAccessTerminal
+    | ButtonAccessTerminal {_btTermID :: Int}
 
 data Button = Button
     { _btPos :: Point2
     , _btRot :: Float
     , _btEvent :: ButtonEvent
     , _btID :: Int
-    , _btTermMID :: Maybe Int
+--    , _btTermMID :: Maybe Int
     }
 
 makeLenses ''Button

src/Dodge/Data/WorldEffect.hs

@@ -22,7 +22,7 @@ data WdWd
     | SetTrigger Bool Int
     | WorldEffects [WdWd] -- probably best to avoid recursive types if possible...
     | SetLSCol Point3 Int
-    | AccessTerminal (Maybe Int)
+    | AccessTerminal Int
     | UnlockInv
     | SoundStart SoundOrigin Point2 SoundID (Maybe Int)
     | MakeStartCloudAt Point3