Simplify analyser terminal

data/dodge.config.json

@@ -12,7 +12,7 @@
   "_graphics_num_shadow_casters": "NumShadowCasters20",
   "_graphics_shadow_rendering": "GeoObjShads",
   "_graphics_shadow_size": "Typical",
-  "_graphics_world_resolution": "QuarterRes",
+  "_graphics_world_resolution": "HalfRes",
   "_volume_master": 1,
   "_volume_music": 0,
   "_volume_sound": 1,

log/aGeneratedRoomLayout

@@ -1,6 +1,12 @@
 Seed: 7114951007332849727
 Room layout (compact): 
-0,1,2,3
+0,1,2,3,4,5,6
+|
++- 7,8
+|
++- 9,10
+|
+11,12,13,14
 
 Layout with room names:
 Corridor-0
@@ -10,4 +16,26 @@ Corridor-0
 defaultRoom-2
 |
 autoRect-3
+|
+autoDoor-4
+|
+Corridor-5
+|
+doorToggle-6gon-6
+|
++- triggerDoorRoom-7
+|  |
+|  autoRect-8
+|
++- triggerDoorRoom-9
+|  |
+|  autoRect-10
+|
+Corridor-11
+|
+6gon-12
+|
+defaultRoom-13
+|
+autoRect-14
 

log/attemptedSeeds

@@ -1,4 +1,4 @@
 Generating level with seed 7114951007332849727
 
 After 1 attempt(s), Successful generation of level with seed 7114951007332849727
-4 rooms in total
+15 rooms in total

log/treeCluster

@@ -2,14 +2,48 @@ Seed: 7114951007332849727
 0:teststart
 |
 1:TutDrop
+|
+2:corDoor
+|
+3:DoorTest
+|
+4:TutDrop
 
 0:0:teststart
 
 0:0:0:Corridor
 
-1:0:6gon
+1:0:TutDrop
+
+1:0:0:6gon
 |
-1:1:defaultRoom
+1:0:1:defaultRoom
 |
-1:2:autoRect
+1:0:2:autoRect
+
+2:0:corDoor
+
+2:0:0:autoDoor
+|
+2:0:1:Corridor
+
+3:0:DoorTest
+
+3:0:0:doorToggle-6gon
+|
++- 3:0:1:triggerDoorRoom
+|  |
+|  3:0:2:autoRect
+|
++- 3:0:3:triggerDoorRoom
+|  |
+|  3:0:4:autoRect
+|
+3:0:5:Corridor
+
+4:0:6gon
+|
+4:1:defaultRoom
+|
+4:2:autoRect
 

src/Dodge/Data/Terminal.hs

@@ -50,7 +50,6 @@ data TCom
     = TCInfo String String -- this may not be necessary, to revisit
     | TCBase
     | TCDamageCommand
-    | TCSensorInfo
 
 data TmWdWd
     = TmWdId

src/Dodge/Data/Terminal/Status.hs

@@ -13,6 +13,7 @@ data TerminalStatus
     | TerminalLineRead
     | TerminalTextInput {_tiText :: String}
     | TerminalPressTo {_tptString :: String}
+    | TerminalWaiting
     deriving (Eq,Show)
 
 makeLenses ''TerminalStatus

src/Dodge/Machine/Update.hs

@@ -1,9 +1,7 @@
 {-# LANGUAGE LambdaCase #-}
-module Dodge.Machine.Update (
-    updateMachine,
-) where
 
-import Dodge.Terminal.Color
+module Dodge.Machine.Update (updateMachine) where
+
 import Control.Monad
 import Data.List (partition)
 import Data.Maybe
@@ -11,9 +9,12 @@ import Dodge.Base.Collide
 import Dodge.Base.You
 import Dodge.Data.World
 import Dodge.HeldUse
+import Dodge.Item.Display
 import Dodge.Machine.Destroy
 import Dodge.Movement.Turn
 import Dodge.SoundLogic
+import Dodge.Terminal
+import Dodge.Terminal.Color
 import Geometry
 import LensHelp
 
@@ -40,6 +41,7 @@ terminalScreenGlow mc w = fromMaybe w $ do
     return $
         w & cWorld . lWorld . lights
             .:~ LSParam (_mcPos mc `v2z` 20) 30 (V3 x y z)
+
 --        w & cWorld . lWorld . tempLightSources
 --            .:~ TLS
 --                { _tlsParam = LSParam (_mcPos mc `v2z` 20) 30 (V3 x y z)
@@ -140,21 +142,32 @@ mcProximitySensorUpdate mc w = case ( _proxStatus sens
             & cWorld . lWorld . machines . ix (_mcID mc) . mcType . _McSensor . sensToggle .~ True
             & playsound dedaS
             & cWorld . lWorld . machines . ix (_mcID mc) . mcType . _McSensor . proxStatus .~ IsClose
+            & cWorld . lWorld . terminals . ix (mc ^?! mcMounts . ix OTTerminal) . tmFutureLines .:~ makeTermLine "SENSOR SUCCESS!"
     (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
+    (_, _, _, 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))
     _ -> w
   where
     playsound sid = soundContinue (MachineAltSound (_mcID mc)) (_mcPos mc) sid Nothing
     ycr = you w
     sens = mc ^?! mcType . _McSensor
 
+sensorReqToString :: ProximityRequirement -> String
+sensorReqToString = \case
+    RequireHealth x -> "HEALTH ABOVE " ++ show x
+    RequireEquipment x -> itemBaseName x
+
 mcProxTest :: Machine -> World -> Bool
 mcProxTest mc w = case mc ^? mcType . _McSensor . proxRequirement of
     Just (RequireHealth x) -> _crHP cr >= x
-    Just (RequireEquipment ct) -> any (\itm -> _itType itm == ct) 
+    Just (RequireEquipment ct) ->
-        ((\k -> w ^?! cWorld . lWorld . items . ix k) <$> _crInv cr)
+        any
+            (\itm -> _itType itm == ct)
+            ((\k -> w ^?! cWorld . lWorld . items . ix k) <$> _crInv cr)
     _ -> False
   where
     cr = you w
@@ -179,24 +192,23 @@ senseDamage threshold dt mc =
 
 sensorTypeDamages :: SensorType -> Damage -> Bool
 sensorTypeDamages = \case
-    LaserSensor -> \case 
+    LaserSensor -> \case
         Lasering{} -> True
         _ -> False
     ElectricSensor -> \case
-        Electrical {} -> True
+        Electrical{} -> True
         _ -> False
     ThermalSensor -> \case
-        Flaming {} -> True
+        Flaming{} -> True
-        Sparking {} -> True
+        Sparking{} -> True
-        Explosive {} -> True
+        Explosive{} -> True
         _ -> False
     PhysicalSensor -> \case
-        Piercing {} -> True
+        Piercing{} -> True
-        Blunt {} -> True
+        Blunt{} -> True
-        Crushing {} -> True
+        Crushing{} -> True
-        Explosive {} -> True
+        Explosive{} -> True
         _ -> False
-    
 
 --damageUsing :: DamageType -> Damage -> Either Int Int
 --damageUsing dt dm

src/Dodge/Placement/Instance/Analyser.hs

@@ -4,7 +4,7 @@ import Color
 import Dodge.Data.GenWorld
 import Dodge.Default
 import Dodge.Placement.Instance
-import Dodge.Terminal
+--import Dodge.Terminal
 import LensHelp
 
 analyser :: ProximityRequirement -> PlacementSpot -> PlacementSpot -> Placement
@@ -13,14 +13,11 @@ analyser proxreq pslight psmc = extTrigLitPos pslight $ \tp ->
         plSpot .~ psmc $
             putTerminal (dark magenta)
                 (themachine & mcMounts . at OTTrigger .~ _plMID tp)
-                tparams -- (linksensortotrigger tp)
+                tparams
   where
-    tparams = textTerminal & tmCommands .:~ TCSensorInfo
+    tparams = defaultTerminal & tmStatus .~ TerminalLineRead
-    --    linksensortotrigger tp _ mc
-    --        = triggers . ix (fromJust $ _plMID tp) .~ const (_sensToggle $ _mcSensor mc)
     themachine =
         defaultMachine & mcColor .~ aquamarine
-            --        & mcUpdate .~ mcProximitySensorUpdate
             & mcType .~ McTerminal
             & mcHP .~ 100
             & mcType .~ McSensor (defaultProximitySensor{_proxRequirement = proxreq})

src/Dodge/Placement/Instance/Terminal.hs

@@ -5,13 +5,13 @@ module Dodge.Placement.Instance.Terminal (
     terminalColor,
 ) where
 
-import Dodge.WorldEffect
 import Color
 import Data.Maybe
 import Dodge.Data.GenWorld
 import Dodge.Default
 import Dodge.LevelGen.PlacementHelper
 import Dodge.SoundLogic
+import Dodge.WorldEffect
 import Geometry
 import LensHelp
 
@@ -20,7 +20,11 @@ putTerminalImediateAccess = putTerminalFull f
   where
     f tmpl _ _ = Just $ sps0 $ PutWorldUpdate $ const $ accessTerminal (tmpl ^?! plMID . _Just)
 
-putTerminalFull ::(Placement -> Placement -> Placement -> Maybe Placement) ->  Color -> Machine -> Terminal -> 
+putTerminalFull ::
+    (Placement -> Placement -> Placement -> Maybe Placement) ->
+    Color ->
+    Machine ->
+    Terminal ->
     Placement
 putTerminalFull f col mc tm =
     ps0PushPS (PutTerminal (tm & tmExternalColor .~ col)) $
@@ -31,6 +35,7 @@ putTerminalFull f col mc tm =
                         ( PutMachine
                             (reverse $ square 10)
                             ( mc & mcMounts . at OTButton ?~ fromJust (_plMID btpl)
+                                & mcMounts . at OTTerminal .~ _plMID tmpl
                                 & mcCloseSound ?~ fridgeHumS
                             )
                             defaultSensorWall

src/Dodge/Render/HUD.hs

@@ -380,6 +380,7 @@ drawTerminalDisplay cfig tm =
         TerminalOff -> id
         TerminalDeactivated -> id
         TerminalLineRead -> id
+        TerminalWaiting -> (++ [("...",white)])
         TerminalTextInput s ->
             (++ [(getPromptTM ++ s ++ [cFilledRect], white)])
         TerminalPressTo s ->

src/Dodge/Room/Airlock.hs

@@ -3,6 +3,7 @@
 {- Rooms that contain two doors and a switch alternating both.  -}
 module Dodge.Room.Airlock where
 
+import Dodge.Placement.Instance.Analyser
 import Dodge.Annotation.Data
 import Dodge.Data.GenWorld
 import Dodge.Default.Door
@@ -35,6 +36,7 @@ decontamRoom = do
                         \_ _ -> Just $ putDoubleDoor DoorObstacle thewall (WdBlBtOn btid) (V2 0 80) (V2 40 80) 2
             , invisibleWall $ rectNSWE 60 40 (-40) (-30)
             , spanLightI (V2 (-2) 30) (V2 (-2) 70)
+            , analyser (RequireHealth 100) (PS 50 0) (PS (V2 70 50) 0)
             ]
         & rmBound .~ [rectNSWE 75 15 0 40, switchcut]
   where

src/Dodge/Room/Tutorial.hs

@@ -1,9 +1,9 @@
 module Dodge.Room.Tutorial where
 
+import Dodge.Room.Room
 import Dodge.Room.Corridor
 import Dodge.Room.Airlock
 import Dodge.Room.RoadBlock
---import Dodge.Room.Room
 import Dodge.Item.Held.Cane
 import Dodge.Item.Ammo
 import Dodge.Annotation.Data
@@ -45,10 +45,10 @@ tutAnoTree =
     OnwardList 
         [ AnTree $ return $ tToBTree "teststart" $ return $ cleatOnward corridor
         , AnTree $ tutDrop
-----        , AnTree $ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
+--        [ AnTree $ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
---        , AnTree corDoor
+        , AnTree corDoor
---        , AnTree $ tutRooms
+        , AnTree $ tutRooms
---        , AnTree $ tutDrop
+        , AnTree $ tutDrop
 ----        , AnTree $ pickupTut
 ----        , AnTree $ weaponTut
         ]

src/Dodge/Terminal.hs

@@ -6,7 +6,6 @@ module Dodge.Terminal (
     textTerminal,
     simpleTermMessage,
     damageCodeCommand,
-    sensorCommand,
     makeColorTermLine,
     makeTermPara,
     terminalReturnEffect,
@@ -16,7 +15,6 @@ module Dodge.Terminal (
     tlDoEffect,
 ) where
 
-import Dodge.Item.Display
 import Color
 import Data.Char
 import qualified Data.List as List
@@ -58,7 +56,6 @@ getCommand w tm = \case
     TCInfo x z -> PTE.singleton x (PTE.singleton "" (makeTermPara z))
     TCBase -> quitCommand <> toggleCommands tm
     TCDamageCommand -> damageCodeCommand w tm
-    TCSensorInfo -> sensorCommand w tm
 
 damageCodeCommand :: World -> Terminal -> PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
 damageCodeCommand w _ 
@@ -78,22 +75,6 @@ decodeSensorType st w = fromMaybe [] $ do
     x <- w ^? cWorld . cwGen . cwgParams . sensorCoding . ix st
     return [makeTermLine $ show x]
 
--- ugly
-sensorCommand :: World -> Terminal -> PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
-sensorCommand w tm = PTE.singleton "SENSOR" $ fromMaybe mempty $ do
-    ProximitySensor _ _ r b <- w ^? cWorld . lWorld . machines . ix (tm ^. tmMachineID) . mcType . _McSensor
-    return $ PTE.fromList
-            [ ("", makeTermPara $ sensorReqToString r b)
-            ]
-
-sensorReqToString :: ProximityRequirement -> Bool -> String
-sensorReqToString pr = \case
-    True -> "SENSOR TEST PASSED."
-    False -> "SENSOR REQUIRES: " ++ case pr of
-        RequireHealth x -> "HEALTH ABOVE " ++ show x
-        RequireEquipment x -> itemBaseName x
-    
-
 toggleCommands :: Terminal -> PTE.TrieMap Char (PTE.TrieMap Char [TerminalLine])
 toggleCommands tm 
     | null ts = mempty

src/Dodge/Terminal/Color.hs

@@ -12,3 +12,4 @@ termScreenColor tm = case tm ^. tmStatus of
     TerminalTextInput _ -> Just green
     TerminalPressTo{} -> Just green
     TerminalLineRead -> Just white
+    TerminalWaiting -> Just green

src/Dodge/Terminal/Type.hs

@@ -1,7 +1,4 @@
-module Dodge.Terminal.Type (
+module Dodge.Terminal.Type ( getPromptTM, getMaxLinesTM) where
-    getPromptTM,
-    getMaxLinesTM,
-) where
 
 getPromptTM :: String
 getPromptTM = "> "

src/Dodge/WorldEffect.hs

@@ -62,6 +62,7 @@ accessTerminal tid w = fromMaybe w $ do
         TerminalTextInput{} -> tm
         TerminalLineRead -> tm
         TerminalPressTo{} -> tm
+        TerminalWaiting{} -> tm
         TerminalOff ->
             tm
                 & tmFutureLines .~ _tmBootLines tm

tags

@@ -45,7 +45,7 @@ AimStance	src/Dodge/Data/AimStance.hs	11;"	t
 Aiming	src/Dodge/Data/Creature/Stance.hs	39;"	C
 AirFiltrationSS	src/Dodge/Data/Scenario.hs	95;"	C
 AlienContact	src/Dodge/Data/Scenario.hs	30;"	C
-AllRoomClipBoundaries	src/Dodge/Data/Config.hs	108;"	C
+AllRoomClipBoundaries	src/Dodge/Data/Config.hs	107;"	C
 AlteRifleSwitch	src/Dodge/Data/Item/Params.hs	20;"	C
 Ambush	src/Dodge/Data/ActionPlan.hs	178;"	C
 AmmoEffectSF	src/Dodge/Data/ComposedItem.hs	33;"	C
@@ -368,7 +368,7 @@ DoorObstacle	src/Dodge/Data/PathGraph.hs	50;"	C
 DoorOpen	src/Dodge/Data/Door.hs	23;"	C
 DoorPart	src/Dodge/Data/Wall/Structure.hs	14;"	C
 DoorStatus	src/Dodge/Data/Door.hs	23;"	t
-DoubleRes	src/Dodge/Data/Config.hs	98;"	C
+DoubleRes	src/Dodge/Data/Config.hs	97;"	C
 DoubleTreeNodeType	src/Dodge/Data/DoubleTree.hs	16;"	t
 DrWdId	src/Dodge/Data/WorldEffect.hs	68;"	C
 DrWdMakeDoorDebris	src/Dodge/Data/WorldEffect.hs	69;"	C
@@ -391,7 +391,7 @@ Ears	src/Dodge/Data/Creature/Perception.hs	47;"	C
 East	src/Dodge/Data/CardinalPoint.hs	7;"	C
 East8	src/Dodge/Data/CardinalPoint.hs	15;"	C
 EdgeObstacle	src/Dodge/Data/PathGraph.hs	48;"	t
-EighthRes	src/Dodge/Data/Config.hs	98;"	C
+EighthRes	src/Dodge/Data/Config.hs	97;"	C
 Eldritch	src/Dodge/Data/Scenario.hs	34;"	C
 ElectricSensor	src/Dodge/Data/Machine/Sensor/Type.hs	13;"	C
 ElectricSpark	src/Dodge/Data/Spark.hs	22;"	C
@@ -479,7 +479,7 @@ FootstepSound	src/Dodge/Data/SoundOrigin.hs	30;"	C
 ForceFieldType	src/Dodge/Data/Item/Use/Consumption/Ammo.hs	11;"	t
 ForegroundShape	src/Dodge/Data/ForegroundShape.hs	14;"	t
 FromEdge	src/Dodge/Data/Room.hs	47;"	C
-FullRes	src/Dodge/Data/Config.hs	98;"	C
+FullRes	src/Dodge/Data/Config.hs	97;"	C
 FullShadowFidelity	src/Shape/Data.hs	24;"	C
 FullSize	src/Dodge/Data/Item/Params.hs	28;"	C
 FullyVisible	src/Dodge/Data/CamouflageStatus.hs	6;"	C
@@ -507,7 +507,7 @@ GenFloat	src/Dodge/Data/GenFloat.hs	11;"	t
 GenParams	src/Dodge/Data/GenParams.hs	15;"	t
 GenWorld	src/Dodge/Data/GenWorld.hs	23;"	t
 GenericFaction	src/Dodge/Data/Creature/State.hs	15;"	C
-GeoObjShads	src/Dodge/Data/Config.hs	102;"	C
+GeoObjShads	src/Dodge/Data/Config.hs	101;"	C
 GetTo	src/Dodge/Data/ActionPlan.hs	189;"	C
 GetToPoint	src/Dodge/Data/Scenario.hs	12;"	C
 Gib	src/Dodge/Data/Prop.hs	43;"	C
@@ -536,7 +536,7 @@ HELD	src/Dodge/Data/Item/Combine.hs	17;"	C
 HOMINGMODULE	src/Dodge/Data/Item/Combine.hs	102;"	C
 HOSE	src/Dodge/Data/Item/Combine.hs	55;"	C
 HUD	src/Dodge/Data/HUD.hs	31;"	t
-HalfRes	src/Dodge/Data/Config.hs	98;"	C
+HalfRes	src/Dodge/Data/Config.hs	97;"	C
 HammerTrigger	src/Dodge/Data/TriggerType.hs	10;"	C
 HardQuit	src/Dodge/Data/Universe.hs	70;"	C
 HeavySmokeFlare	src/Dodge/Data/Muzzle.hs	33;"	C
@@ -603,7 +603,7 @@ Int2	src/Geometry/Data.hs	21;"	t
 IntID	src/Dodge/Data/Universe.hs	113;"	t
 IntImp	src/Dodge/Data/CreatureEffect.hs	20;"	t
 Intention	src/Dodge/Data/Creature.hs	69;"	t
-IntersectingRoomClipBoundaries	src/Dodge/Data/Config.hs	108;"	C
+IntersectingRoomClipBoundaries	src/Dodge/Data/Config.hs	107;"	C
 IntroScanSF	src/Dodge/Data/ComposedItem.hs	21;"	C
 IntroScanType	src/Dodge/Data/Item/Combine.hs	45;"	t
 InvInt	src/Dodge/Data/Item/Location.hs	17;"	t
@@ -857,17 +857,17 @@ NoIntImp	src/Dodge/Data/CreatureEffect.hs	20;"	C
 NoItTargeting	src/Dodge/Data/Item.hs	44;"	C
 NoItemScroll	src/Dodge/Data/Item.hs	39;"	C
 NoLightFlare	src/Dodge/Data/Muzzle.hs	31;"	C
-NoLighting	src/Dodge/Data/Config.hs	105;"	C
+NoLighting	src/Dodge/Data/Config.hs	104;"	C
 NoMouseContext	src/Dodge/Data/Input.hs	15;"	C
 NoMvType	src/Dodge/Data/Creature/Misc.hs	29;"	C
-NoObjShads	src/Dodge/Data/Config.hs	103;"	C
+NoObjShads	src/Dodge/Data/Config.hs	102;"	C
 NoParams	src/Dodge/Data/Item/Params.hs	15;"	C
 NoResurrection	src/Dodge/Data/Corpse.hs	14;"	C
 NoRightButtonState	src/Dodge/Data/RightButtonOptions.hs	16;"	C
-NoRoomClipBoundaries	src/Dodge/Data/Config.hs	108;"	C
+NoRoomClipBoundaries	src/Dodge/Data/Config.hs	107;"	C
 NoSF	src/Dodge/Data/ComposedItem.hs	29;"	C
 NoShadowFidelity	src/Shape/Data.hs	25;"	C
-NoShadows	src/Dodge/Data/Config.hs	104;"	C
+NoShadows	src/Dodge/Data/Config.hs	103;"	C
 NoSubInventory	src/Dodge/Data/HUD.hs	17;"	C
 NoTrigger	src/Dodge/Data/TriggerType.hs	11;"	C
 NoWorldEffect	src/Dodge/Data/WorldEffect.hs	23;"	C
@@ -1098,7 +1098,7 @@ PutUsingGenParams	src/Dodge/Data/GenWorld.hs	61;"	C
 PutWall	src/Dodge/Data/GenWorld.hs	54;"	C
 PutWorldUpdate	src/Dodge/Data/GenWorld.hs	59;"	C
 QFloat	src/Geometry/Data.hs	50;"	t
-QuarterRes	src/Dodge/Data/Config.hs	98;"	C
+QuarterRes	src/Dodge/Data/Config.hs	97;"	C
 QuicksaveSlot	src/Dodge/Data/SaveSlot.hs	10;"	C
 RAM	src/Dodge/Data/Item/Combine.hs	74;"	C
 RED	src/Color/Data.hs	15;"	C
@@ -1139,7 +1139,7 @@ RenderData	src/Data/Preload/Render.hs	13;"	t
 ReplaceEquipment	src/Dodge/Data/RightButtonOptions.hs	31;"	C
 RequireEquipment	src/Dodge/Data/Machine/Sensor.hs	38;"	C
 RequireHealth	src/Dodge/Data/Machine/Sensor.hs	37;"	C
-ResFactor	src/Dodge/Data/Config.hs	98;"	t
+ResFactor	src/Dodge/Data/Config.hs	97;"	t
 ResearchFacility	src/Dodge/Data/Scenario.hs	62;"	C
 ResourceFailure	src/Dodge/Data/Scenario.hs	29;"	C
 RespawnDelay	src/Dodge/Data/World.hs	59;"	C
@@ -1157,7 +1157,7 @@ RocketHoming	src/Dodge/Data/Projectile.hs	41;"	t
 RocketSmoke	src/Dodge/Data/Projectile.hs	54;"	t
 RocketSmoke	src/Dodge/Data/Cloud.hs	24;"	C
 Room	src/Dodge/Data/GenWorld.hs	100;"	t
-RoomClipping	src/Dodge/Data/Config.hs	108;"	t
+RoomClipping	src/Dodge/Data/Config.hs	107;"	t
 RoomInt	src/Dodge/Tree/Shift.hs	26;"	t
 RoomLink	src/Dodge/Data/Room.hs	23;"	t
 RoomLinkType	src/Dodge/Data/Room.hs	42;"	t
@@ -1203,7 +1203,7 @@ SelCloseButton	src/Dodge/Data/Item/Use/Consumption/LoadAction.hs	33;"	C
 SelCloseItem	src/Dodge/Data/Item/Use/Consumption/LoadAction.hs	31;"	C
 SelItem	src/Dodge/Data/SelectionList.hs	42;"	C
 SelNothing	src/Dodge/Data/Item/Use/Consumption/LoadAction.hs	29;"	C
-Select_creature	src/Dodge/Data/Config.hs	95;"	C
+Select_creature	src/Dodge/Data/Config.hs	94;"	C
 SelectedItem	src/Dodge/Data/Item/Use/Consumption/LoadAction.hs	24;"	C
 Selection	src/Dodge/Data/HUD.hs	44;"	t
 SelectionItem	src/Dodge/Data/SelectionList.hs	41;"	t
@@ -1220,7 +1220,7 @@ ShadNum	src/Picture/Data.hs	35;"	t
 Shader	src/Shader/Data.hs	51;"	t
 ShaderTexture	src/Shader/Data.hs	94;"	t
 ShadowFidelity	src/Shape/Data.hs	24;"	t
-ShadowRendering	src/Dodge/Data/Config.hs	101;"	t
+ShadowRendering	src/Dodge/Data/Config.hs	100;"	t
 Shape	src/Shape/Data.hs	53;"	t
 ShapeProp	src/Dodge/Data/Prop.hs	32;"	C
 ShapeType	src/Shape/Data.hs	16;"	t
@@ -1237,8 +1237,7 @@ Show_bound_box	src/Dodge/Data/Config.hs	80;"	C
 Show_dda_test	src/Dodge/Data/Config.hs	83;"	C
 Show_far_wall_detect	src/Dodge/Data/Config.hs	86;"	C
 Show_ms_frame	src/Dodge/Data/Config.hs	67;"	C
-Show_nodes_near_select	src/Dodge/Data/Config.hs	93;"	C
+Show_path_between	src/Dodge/Data/Config.hs	93;"	C
-Show_path_between	src/Dodge/Data/Config.hs	94;"	C
 Show_sound	src/Dodge/Data/Config.hs	69;"	C
 Show_wall_search_rays	src/Dodge/Data/Config.hs	82;"	C
 Show_walls_near_point_cursor	src/Dodge/Data/Config.hs	87;"	C
@@ -1251,7 +1250,7 @@ ShrinkGunStatus	src/Dodge/Data/Item/Params.hs	28;"	t
 Shrunk	src/Dodge/Data/Item/Params.hs	28;"	C
 SideCluster	src/Dodge/Data/RoomCluster.hs	13;"	C
 SideEffect	src/Dodge/Data/Universe.hs	64;"	t
-SixteenthRes	src/Dodge/Data/Config.hs	98;"	C
+SixteenthRes	src/Dodge/Data/Config.hs	97;"	C
 Size	src/Shape/Data.hs	28;"	t
 SkiffBaySS	src/Dodge/Data/Scenario.hs	108;"	C
 SleepingQuatersSS	src/Dodge/Data/Scenario.hs	90;"	C
@@ -1357,6 +1356,7 @@ TerminalSound	src/Dodge/Data/SoundOrigin.hs	24;"	C
 TerminalStatus	src/Dodge/Data/Terminal/Status.hs	10;"	t
 TerminalTextInput	src/Dodge/Data/Terminal/Status.hs	14;"	C
 TerminalToggle	src/Dodge/Data/Terminal.hs	44;"	t
+TerminalWaiting	src/Dodge/Data/Terminal/Status.hs	16;"	C
 Terrestrial	src/Dodge/Data/Scenario.hs	72;"	C
 TerrestrialBiome	src/Dodge/Data/Scenario.hs	76;"	t
 TeslaArc	src/Dodge/Data/TeslaArc.hs	17;"	t
@@ -2618,14 +2618,14 @@ advanceStepCounter	src/Dodge/Creature/Impulse/Movement.hs	45;"	f
 aimDelaySweep	src/Dodge/Render/Picture.hs	288;"	f
 aimStanceInfo	src/Dodge/Item/Info.hs	244;"	f
 aimTurn	src/Dodge/Creature/YourControl.hs	180;"	f
-airlock	src/Dodge/Room/Airlock.hs	21;"	f
+airlock	src/Dodge/Room/Airlock.hs	22;"	f
-airlock0	src/Dodge/Room/Airlock.hs	50;"	f
+airlock0	src/Dodge/Room/Airlock.hs	52;"	f
-airlock90	src/Dodge/Room/Airlock.hs	147;"	f
+airlock90	src/Dodge/Room/Airlock.hs	149;"	f
-airlockCrystal	src/Dodge/Room/Airlock.hs	186;"	f
+airlockCrystal	src/Dodge/Room/Airlock.hs	188;"	f
-airlockDoor	src/Dodge/Room/Airlock.hs	76;"	f
+airlockDoor	src/Dodge/Room/Airlock.hs	78;"	f
-airlockDoubleDoor	src/Dodge/Room/Airlock.hs	79;"	f
+airlockDoubleDoor	src/Dodge/Room/Airlock.hs	81;"	f
-airlockSimple	src/Dodge/Room/Airlock.hs	91;"	f
+airlockSimple	src/Dodge/Room/Airlock.hs	93;"	f
-airlockZ	src/Dodge/Room/Airlock.hs	116;"	f
+airlockZ	src/Dodge/Room/Airlock.hs	118;"	f
 allVisibleWalls	src/Dodge/Base/Collide.hs	215;"	f
 alongSegBy	src/Geometry.hs	41;"	f
 alteRifle	src/Dodge/Item/Held/Cane.hs	22;"	f
@@ -2654,7 +2654,7 @@ applyPastDamages	src/Dodge/Creature/State.hs	48;"	f
 applyPiercingDamage	src/Dodge/Creature/Damage.hs	22;"	f
 applyPosition	src/Sound.hs	111;"	f
 applyRecoil	src/Dodge/HeldUse.hs	451;"	f
-applyResFactor	src/Dodge/Data/Config.hs	111;"	f
+applyResFactor	src/Dodge/Data/Config.hs	110;"	f
 applySetTerminalString	src/Dodge/Debug/Terminal.hs	83;"	f
 applySidePush	src/Dodge/HeldUse.hs	551;"	f
 applySoundCME	src/Dodge/HeldUse.hs	441;"	f
@@ -2906,7 +2906,7 @@ cleatLabel	src/Dodge/Cleat.hs	30;"	f
 cleatOnward	src/Dodge/Cleat.hs	24;"	f
 cleatSide	src/Dodge/Cleat.hs	27;"	f
 click1S	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	582;"	f
-clickGetCreature	src/Dodge/Debug.hs	98;"	f
+clickGetCreature	src/Dodge/Debug.hs	109;"	f
 clicker	src/Dodge/Item/Scope.hs	82;"	f
 clipV	src/Geometry/Vector.hs	47;"	f
 clipZoom	src/Dodge/Update/Camera.hs	230;"	f
@@ -2915,7 +2915,7 @@ closeButtonToSelectionItem	src/Dodge/Inventory/SelectionList.hs	223;"	f
 closeItemToSelectionItem	src/Dodge/Inventory/SelectionList.hs	208;"	f
 closeItemToTextPictures	src/Dodge/Inventory/SelectionList.hs	243;"	f
 closeObjectInfo	src/Dodge/Render/HUD.hs	222;"	f
-closestCreatureID	src/Dodge/Debug.hs	107;"	f
+closestCreatureID	src/Dodge/Debug.hs	118;"	f
 closestPointOnLine	src/Geometry/Intersect.hs	281;"	f
 closestPointOnLineParam	src/Geometry/Intersect.hs	297;"	f
 closestPointOnSeg	src/Geometry/Intersect.hs	312;"	f
@@ -2959,7 +2959,7 @@ combineList	src/Dodge/Combine.hs	21;"	f
 combineRooms	src/Dodge/Room/Procedural.hs	152;"	f
 combineS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	480;"	f
 combineTree	src/Dodge/Tree/Compose.hs	66;"	f
-commandColor	src/Dodge/Terminal.hs	134;"	f
+commandColor	src/Dodge/Terminal.hs	126;"	f
 commonPrefix	src/Dodge/Debug/Terminal.hs	148;"	f
 comp	src/Quaternion.hs	65;"	f
 compactDraw	src/Dodge/LevelGen.hs	93;"	f
@@ -2973,7 +2973,7 @@ conEffects	src/Dodge/Concurrent.hs	12;"	f
 conLDTToConDT	src/Dodge/DoubleTree.hs	22;"	f
 concurrentIS	src/Dodge/Update/Input/InGame.hs	287;"	f
 connectItemS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	722;"	f
-constDPic	src/Dodge/Debug.hs	50;"	f
+constDPic	src/Dodge/Debug.hs	62;"	f
 constructEdges	src/Polyhedra.hs	34;"	f
 constructEdgesList	src/Polyhedra.hs	43;"	f
 contToIDCont	src/Dodge/LevelGen/PlacementHelper.hs	57;"	f
@@ -3127,21 +3127,19 @@ deadUpperBody	src/Dodge/Creature/Picture.hs	113;"	f
 debrisS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	684;"	f
 debrisSPic	src/Dodge/Prop/Draw.hs	20;"	f
 debrisSize	src/Dodge/Block/Debris.hs	77;"	f
-debugDraw	src/Dodge/Debug/Picture.hs	154;"	f
+debugEvent	src/Dodge/Debug.hs	27;"	f
-debugDraw'	src/Dodge/Debug/Picture.hs	165;"	f
+debugEvents	src/Dodge/Debug.hs	20;"	f
-debugEvent	src/Dodge/Debug.hs	26;"	f
+debugItem	src/Dodge/Debug.hs	30;"	f
-debugEvents	src/Dodge/Debug.hs	19;"	f
+debugList	src/Dodge/Debug.hs	105;"	f
-debugItem	src/Dodge/Debug.hs	29;"	f
-debugList	src/Dodge/Debug.hs	94;"	f
 debugMenu	src/Dodge/Menu.hs	119;"	f
 debugMenuOptions	src/Dodge/Menu.hs	122;"	f
-debugOn	src/Dodge/Data/Config.hs	152;"	f
+debugOn	src/Dodge/Data/Config.hs	151;"	f
-debugSelectCreatureList	src/Dodge/Debug.hs	77;"	f
+debugSelectCreatureList	src/Dodge/Debug.hs	88;"	f
-debugSelectCreatureMessage	src/Dodge/Debug.hs	68;"	f
+debugSelectCreatureMessage	src/Dodge/Debug.hs	79;"	f
 decodeSensorType	src/Dodge/Terminal.hs	76;"	f
 decomposeSelfTree	src/Dodge/Tree/Compose.hs	60;"	f
 decomposeTree	src/Dodge/Tree/Compose.hs	57;"	f
-decontamRoom	src/Dodge/Room/Airlock.hs	25;"	f
+decontamRoom	src/Dodge/Room/Airlock.hs	26;"	f
 decoratedBlock	src/Dodge/Placement/Instance/Block.hs	10;"	f
 decorationToShape	src/Dodge/Placement/TopDecoration.hs	9;"	f
 decreaseAwareness	src/Dodge/Creature/Perception.hs	119;"	f
@@ -3166,7 +3164,7 @@ defaultCWGen	src/Dodge/Default/World.hs	56;"	f
 defaultCWorld	src/Dodge/Default/World.hs	81;"	f
 defaultChaseMvType	src/Dodge/Creature/MoveType.hs	25;"	f
 defaultClusterStatus	src/Dodge/Default/Room.hs	38;"	f
-defaultConfig	src/Dodge/Data/Config.hs	128;"	f
+defaultConfig	src/Dodge/Data/Config.hs	127;"	f
 defaultCorpse	src/Dodge/Corpse/Make.hs	32;"	f
 defaultCraftItem	src/Dodge/Default/Item.hs	25;"	f
 defaultCreature	src/Dodge/Default/Creature.hs	12;"	f
@@ -3274,8 +3272,8 @@ doCrWdAc	src/Dodge/CreatureEffect.hs	77;"	f
 doCrWdImp	src/Dodge/CreatureEffect.hs	16;"	f
 doCrWdWd	src/Dodge/CreatureEffect.hs	20;"	f
 doDamage	src/Dodge/Creature/State.hs	42;"	f
-doDeathToggle	src/Dodge/WorldEffect.hs	85;"	f
+doDeathToggle	src/Dodge/WorldEffect.hs	86;"	f
-doDeathTriggers	src/Dodge/WorldEffect.hs	78;"	f
+doDeathTriggers	src/Dodge/WorldEffect.hs	79;"	f
 doDebugTest	src/Dodge/Update/Input/DebugTest.hs	22;"	f
 doDebugTest2	src/Dodge/Update/Input/DebugTest.hs	37;"	f
 doDebugTestF10	src/Dodge/Update/Input/DebugTest.hs	62;"	f
@@ -3326,7 +3324,7 @@ doTextInputOver	src/Dodge/Update/Input/Text.hs	15;"	f
 doTextInputOverUniverse	src/Dodge/Update/Input/Text.hs	12;"	f
 doThrust	src/Dodge/Projectile/Update.hs	182;"	f
 doTimeScroll	src/Dodge/Update.hs	208;"	f
-doTmWdWd	src/Dodge/WorldEffect.hs	88;"	f
+doTmWdWd	src/Dodge/WorldEffect.hs	89;"	f
 doWallRotate	src/Dodge/Update/Camera.hs	220;"	f
 doWdBl	src/Dodge/WorldBool.hs	10;"	f
 doWdCrBl	src/Dodge/CreatureEffect.hs	37;"	f
@@ -3359,28 +3357,28 @@ drawBaseMachine	src/Dodge/Machine/Draw.hs	55;"	f
 drawBeam	src/Dodge/Beam/Draw.hs	6;"	f
 drawBlip	src/Dodge/RadarBlip.hs	16;"	f
 drawBlock	src/Dodge/Block/Draw.hs	7;"	f
-drawBoundingBox	src/Dodge/Debug/Picture.hs	350;"	f
+drawBoundingBox	src/Dodge/Debug/Picture.hs	347;"	f
 drawBullet	src/Dodge/Bullet/Draw.hs	9;"	f
 drawButton	src/Dodge/Button/Draw.hs	10;"	f
 drawCPUShadows	src/Dodge/Render/Shadow.hs	19;"	f
 drawChasm	src/Dodge/Render/ShapePicture.hs	45;"	f
-drawCircCollisionTest	src/Dodge/Debug/Picture.hs	116;"	f
+drawCircCollisionTest	src/Dodge/Debug/Picture.hs	117;"	f
 drawCliff	src/Dodge/Render/ShapePicture.hs	48;"	f
-drawCollisionTest	src/Dodge/Debug/Picture.hs	103;"	f
+drawCollisionTest	src/Dodge/Debug/Picture.hs	102;"	f
 drawCombFilter	src/Dodge/Render/Picture.hs	268;"	f
 drawCombineInventory	src/Dodge/Render/HUD.hs	178;"	f
 drawConcurrentMessage	src/Dodge/Render/Picture.hs	69;"	f
-drawCoord	src/Dodge/Debug/Picture.hs	378;"	f
+drawCoord	src/Dodge/Debug/Picture.hs	375;"	f
 drawCorpse	src/Dodge/Corpse/Draw.hs	6;"	f
-drawCrInfo	src/Dodge/Debug/Picture.hs	399;"	f
+drawCrInfo	src/Dodge/Debug/Picture.hs	396;"	f
 drawCreature	src/Dodge/Render/ShapePicture.hs	62;"	f
-drawCreatureDisplayTexts	src/Dodge/Debug/Picture.hs	198;"	f
+drawCreatureDisplayTexts	src/Dodge/Debug/Picture.hs	197;"	f
 drawCross	src/Dodge/Render/Label.hs	24;"	f
 drawCrossCol	src/Dodge/Render/Label.hs	21;"	f
 drawCursorAt	src/Dodge/Render/List.hs	71;"	f
 drawCursorByTerminalStatus	src/Dodge/Render/Picture.hs	125;"	f
-drawDDATest	src/Dodge/Debug/Picture.hs	305;"	f
+drawDDATest	src/Dodge/Debug/Picture.hs	302;"	f
-drawDoorPaths	src/Dodge/Debug/Picture.hs	253;"	f
+drawDoorPaths	src/Dodge/Debug/Picture.hs	252;"	f
 drawDoubleLampCover	src/Dodge/Prop/Draw.hs	95;"	f
 drawDrag	src/Dodge/Render/Picture.hs	199;"	f
 drawDragDrop	src/Dodge/Render/Picture.hs	228;"	f
@@ -3393,7 +3391,7 @@ drawEnergyBall	src/Dodge/EnergyBall/Draw.hs	7;"	f
 drawEquipment	src/Dodge/Creature/Picture.hs	127;"	f
 drawExamineInventory	src/Dodge/Render/HUD.hs	194;"	f
 drawExplosiveBall	src/Dodge/EnergyBall/Draw.hs	15;"	f
-drawFarWallDetect	src/Dodge/Debug/Picture.hs	270;"	f
+drawFarWallDetect	src/Dodge/Debug/Picture.hs	269;"	f
 drawFlame	src/Dodge/Flame/Draw.hs	8;"	f
 drawFlamelet	src/Dodge/EnergyBall/Draw.hs	37;"	f
 drawFooterText	src/Dodge/Render/MenuScreen.hs	72;"	f
@@ -3402,8 +3400,8 @@ drawGapPlus	src/Dodge/Render/Picture.hs	279;"	f
 drawGib	src/Dodge/Prop/Draw.hs	39;"	f
 drawHUD	src/Dodge/Render/HUD.hs	48;"	f
 drawInputMenu	src/Dodge/Render/MenuScreen.hs	22;"	f
-drawInspectWall	src/Dodge/Debug/Picture.hs	245;"	f
+drawInspectWall	src/Dodge/Debug/Picture.hs	244;"	f
-drawInspectWalls	src/Dodge/Debug/Picture.hs	233;"	f
+drawInspectWalls	src/Dodge/Debug/Picture.hs	232;"	f
 drawInventory	src/Dodge/Render/HUD.hs	55;"	f
 drawItemChildrenConnect	src/Dodge/Render/HUD.hs	325;"	f
 drawItemConnections	src/Dodge/Render/HUD.hs	315;"	f
@@ -3426,13 +3424,13 @@ drawMenuOrHUD	src/Dodge/Render/Picture.hs	64;"	f
 drawMenuScreen	src/Dodge/Render/MenuScreen.hs	16;"	f
 drawMouseCursor	src/Dodge/Render/Picture.hs	80;"	f
 drawMouseOver	src/Dodge/Render/HUD.hs	105;"	f
-drawMousePosition	src/Dodge/Debug/Picture.hs	368;"	f
+drawMousePosition	src/Dodge/Debug/Picture.hs	365;"	f
 drawMovingShape	src/Dodge/Prop/Draw.hs	81;"	f
 drawMovingShapeCol	src/Dodge/Prop/Draw.hs	87;"	f
 drawOptions	src/Dodge/Render/MenuScreen.hs	36;"	f
-drawPathBetween	src/Dodge/Debug/Picture.hs	201;"	f
+drawPathBetween	src/Dodge/Debug/Picture.hs	200;"	f
-drawPathEdge	src/Dodge/Debug/Picture.hs	258;"	f
+drawPathEdge	src/Dodge/Debug/Picture.hs	257;"	f
-drawPathing	src/Dodge/Debug/Picture.hs	441;"	f
+drawPathing	src/Dodge/Debug/Picture.hs	438;"	f
 drawPlus	src/Dodge/Render/Picture.hs	160;"	f
 drawPointLabel	src/Dodge/Render/Label.hs	13;"	f
 drawProjectile	src/Dodge/Projectile/Draw.hs	13;"	f
@@ -3472,16 +3470,16 @@ drawTurret	src/Dodge/Machine/Draw.hs	63;"	f
 drawVerticalDoubleArrow	src/Dodge/Render/Picture.hs	211;"	f
 drawVerticalLampCover	src/Dodge/Prop/Draw.hs	71;"	f
 drawWall	src/Dodge/Wall/Draw.hs	7;"	f
-drawWallFace	src/Dodge/Debug/Picture.hs	73;"	f
+drawWallFace	src/Dodge/Debug/Picture.hs	72;"	f
-drawWallSearchRays	src/Dodge/Debug/Picture.hs	314;"	f
+drawWallSearchRays	src/Dodge/Debug/Picture.hs	311;"	f
-drawWallsNearCursor	src/Dodge/Debug/Picture.hs	222;"	f
+drawWallsNearCursor	src/Dodge/Debug/Picture.hs	221;"	f
-drawWallsNearSegment	src/Dodge/Debug/Picture.hs	128;"	f
+drawWallsNearSegment	src/Dodge/Debug/Picture.hs	129;"	f
-drawWallsNearYou	src/Dodge/Debug/Picture.hs	213;"	f
+drawWallsNearYou	src/Dodge/Debug/Picture.hs	212;"	f
 drawWeapon	src/Dodge/Creature/Volition.hs	15;"	f
-drawWlIDs	src/Dodge/Debug/Picture.hs	386;"	f
+drawWlIDs	src/Dodge/Debug/Picture.hs	383;"	f
-drawZoneCirc	src/Dodge/Debug/Picture.hs	292;"	f
+drawZoneCirc	src/Dodge/Debug/Picture.hs	291;"	f
-drawZoneCol	src/Dodge/Debug/Picture.hs	147;"	f
+drawZoneCol	src/Dodge/Debug/Picture.hs	148;"	f
-drawZoneNearPointCursor	src/Dodge/Debug/Picture.hs	285;"	f
+drawZoneNearPointCursor	src/Dodge/Debug/Picture.hs	284;"	f
 dropAll	src/Dodge/Creature/Update.hs	119;"	f
 dropExcept	src/Dodge/Creature/Action.hs	167;"	f
 dropInventoryPath	src/Dodge/HeldUse.hs	1396;"	f
@@ -3513,7 +3511,7 @@ ebEffect	src/Dodge/EnergyBall.hs	45;"	f
 ebFlicker	src/Dodge/EnergyBall.hs	70;"	f
 ebtToDamage	src/Dodge/EnergyBall.hs	93;"	f
 edgeFormatting	src/Dodge/Combine/Graph.hs	131;"	f
-edgeToPic	src/Dodge/Debug/Picture.hs	450;"	f
+edgeToPic	src/Dodge/Debug/Picture.hs	447;"	f
 effectOnEquip	src/Dodge/Equipment.hs	31;"	f
 effectOnRemove	src/Dodge/Equipment.hs	18;"	f
 eitType	src/Dodge/Data/EquipType.hs	15;"	f
@@ -3555,7 +3553,7 @@ errorNormalizeV	src/Geometry.hs	55;"	f
 errorPointInPolygon	src/Geometry.hs	47;"	f
 evaluateRandPS	src/Dodge/Placement/PlaceSpot.hs	160;"	f
 evenOddSplit	src/Dodge/Base.hs	160;"	f
-exitTerminalSubInv	src/Dodge/WorldEffect.hs	108;"	f
+exitTerminalSubInv	src/Dodge/WorldEffect.hs	109;"	f
 expandLine	src/Dodge/Picture.hs	30;"	f
 expandPolyBy	src/Dodge/LevelGen/StaticWalls.hs	91;"	f
 expandPolyByFixed	src/Dodge/LevelGen/StaticWalls.hs	97;"	f
@@ -3567,7 +3565,7 @@ explosionS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	556;"	f
 explosiveBarrel	src/Dodge/Creature/Inanimate.hs	25;"	f
 extTrigLitPos	src/Dodge/Placement/Instance/Button.hs	84;"	f
 extendAway	src/Dodge/Placement/Instance/LightSource.hs	200;"	f
-extendConeToScreenEdge	src/Dodge/Debug/Picture.hs	82;"	f
+extendConeToScreenEdge	src/Dodge/Debug/Picture.hs	81;"	f
 extraPics	src/Dodge/Render/ShapePicture.hs	96;"	f
 extraWeaponLinks	src/Dodge/Item/Grammar.hs	90;"	f
 extraWeaponLinksBelow	src/Dodge/Item/Grammar.hs	99;"	f
@@ -3703,12 +3701,12 @@ getLaserColor	src/Dodge/HeldUse.hs	703;"	f
 getLaserDamage	src/Dodge/HeldUse.hs	700;"	f
 getLaserPhaseV	src/Dodge/HeldUse.hs	697;"	f
 getLinksOfType	src/Dodge/RoomLink.hs	39;"	f
-getMaxLinesTM	src/Dodge/Terminal/Type.hs	9;"	f
+getMaxLinesTM	src/Dodge/Terminal/Type.hs	6;"	f
 getMenuMouseContext	src/Dodge/Update.hs	391;"	f
 getNodePos	src/Dodge/Path.hs	31;"	f
 getPJStabiliser	src/Dodge/HeldUse.hs	1283;"	f
 getPretty	src/AesonHelp.hs	8;"	f
-getPromptTM	src/Dodge/Terminal/Type.hs	6;"	f
+getPromptTM	src/Dodge/Terminal/Type.hs	3;"	f
 getRootItemBounds	src/Dodge/Render/HUD.hs	96;"	f
 getRootItemInvID	src/Dodge/Inventory/Location.hs	35;"	f
 getSelectedCloseObj	src/Dodge/SelectedClose.hs	14;"	f
@@ -3803,14 +3801,14 @@ heldItemAmmoSlots	src/Dodge/Item/AmmoSlots.hs	19;"	f
 heldItemBulkiness	src/Dodge/Creature/YourControl.hs	193;"	f
 heldItemInvLock	src/Dodge/HeldUse.hs	434;"	f
 heldItemMuzVel	src/Dodge/HeldUse.hs	1021;"	f
-heldItemMuzzles	src/Dodge/HeldUse.hs	182;"	f
+heldItemMuzzles	src/Dodge/HeldUse.hs	175;"	f
 heldItemRifling	src/Dodge/HeldUse.hs	1064;"	f
 heldItemSPic	src/Dodge/Item/Draw/SPic.hs	247;"	f
 heldItemWeight	src/Dodge/Creature/Statistics.hs	80;"	f
 heldPositionInfo	src/Dodge/Item/Info.hs	241;"	f
 heldTorqueAmount	src/Dodge/HeldUse.hs	578;"	f
 heldTriggerType	src/Dodge/BaseTriggerType.hs	27;"	f
-helpPara	src/Dodge/Terminal.hs	110;"	f
+helpPara	src/Dodge/Terminal.hs	102;"	f
 helpPoly3D	src/Polyhedra.hs	125;"	f
 heron	src/Geometry.hs	221;"	f
 hiToFloat	src/Dodge/Room/Modify/Girder.hs	171;"	f
@@ -3871,7 +3869,7 @@ intersectCircSegFirst	src/Geometry/Intersect.hs	353;"	f
 intersectCircSegTest	src/Geometry/Intersect.hs	346;"	f
 intersectLineLine'	src/Geometry/Intersect.hs	18;"	f
 intersectLinePlane	src/Geometry/Intersect.hs	28;"	f
-intersectLinefromScreen	src/Dodge/Debug/Picture.hs	96;"	f
+intersectLinefromScreen	src/Dodge/Debug/Picture.hs	95;"	f
 intersectSegBezquad	src/Geometry/Intersect.hs	266;"	f
 intersectSegLine	src/Geometry/Intersect.hs	117;"	f
 intersectSegLineFrom	src/Geometry/Intersect.hs	87;"	f
@@ -3896,7 +3894,7 @@ invDP	src/Dodge/ListDisplayParams.hs	30;"	f
 invDT	src/Dodge/Item/Grammar.hs	216;"	f
 invDT'	src/Dodge/Item/Grammar.hs	221;"	f
 invDimColor	src/Dodge/DisplayInventory.hs	191;"	f
-invHead	src/Dodge/Render/HUD.hs	401;"	f
+invHead	src/Dodge/Render/HUD.hs	402;"	f
 invIMDT	src/Dodge/Item/Grammar.hs	245;"	f
 invIndents	src/Dodge/Item/Grammar.hs	252;"	f
 invItemEffs	src/Dodge/Creature/State.hs	62;"	f
@@ -3922,7 +3920,7 @@ isAmmoIntLink	src/Dodge/HeldUse.hs	713;"	f
 isAnimate	src/Dodge/Creature/Test.hs	130;"	f
 isCognizant	src/Dodge/Creature/Perception.hs	106;"	f
 isConnected	src/Dodge/Inventory/Swap.hs	76;"	f
-isElectrical	src/Dodge/Machine/Update.hs	80;"	f
+isElectrical	src/Dodge/Machine/Update.hs	79;"	f
 isGroupSelectableSection	src/Dodge/Update/Input/InGame.hs	197;"	f
 isInLnk	src/Dodge/PlacementSpot.hs	169;"	f
 isJust'	src/MaybeHelp.hs	29;"	f
@@ -4063,7 +4061,7 @@ linGrad	src/Geometry/Intersect.hs	250;"	f
 line	src/Picture/Base.hs	226;"	f
 lineCol	src/Picture/Base.hs	230;"	f
 lineGeom	src/Dodge/Base.hs	32;"	f
-lineOnScreenCone	src/Dodge/Debug/Picture.hs	60;"	f
+lineOnScreenCone	src/Dodge/Debug/Picture.hs	59;"	f
 lineOrth	src/Dodge/Creature/Boid.hs	126;"	f
 lineOutputTerminal	src/Dodge/Room/Warning.hs	58;"	f
 lineSplit	src/Justify.hs	26;"	f
@@ -4080,7 +4078,7 @@ listSelectionColorPicture	src/Dodge/DisplayInventory.hs	307;"	f
 litCorridor90	src/Dodge/Room/RoadBlock.hs	26;"	f
 lmt	src/MatrixHelper.hs	43;"	f
 lnkBothAnd	src/Dodge/Room/Procedural.hs	121;"	f
-lnkMidPosInvSelsCol	src/Dodge/Render/HUD.hs	390;"	f
+lnkMidPosInvSelsCol	src/Dodge/Render/HUD.hs	391;"	f
 lnkPosDir	src/Dodge/RoomLink.hs	97;"	f
 loadDodgeConfig	src/Dodge/Config/Load.hs	9;"	f
 loadMusic	src/Dodge/SoundLogic/LoadSound.hs	30;"	f
@@ -4153,8 +4151,8 @@ makeBullet	src/Dodge/HeldUse.hs	1002;"	f
 makeButton	src/Dodge/LevelGen/Switch.hs	16;"	f
 makeByteStringShaderUsingVAO	src/Shader/Compile.hs	128;"	f
 makeCloudAt	src/Dodge/WorldEvent/Cloud.hs	7;"	f
-makeColorTermLine	src/Dodge/Terminal.hs	131;"	f
+makeColorTermLine	src/Dodge/Terminal.hs	123;"	f
-makeColorTermPara	src/Dodge/Terminal.hs	128;"	f
+makeColorTermPara	src/Dodge/Terminal.hs	120;"	f
 makeCorpse	src/Dodge/Corpse/Make.hs	13;"	f
 makeDebris	src/Dodge/Block/Debris.hs	45;"	f
 makeDebrisDirected	src/Dodge/Block/Debris.hs	48;"	f
@@ -4189,8 +4187,8 @@ makeSourcedShader	src/Shader/Compile.hs	167;"	f
 makeSpark	src/Dodge/Spark.hs	45;"	f
 makeSubmenuOption	src/Dodge/Menu/OptionType.hs	19;"	f
 makeSwitch	src/Dodge/LevelGen/Switch.hs	38;"	f
-makeTermLine	src/Dodge/Terminal.hs	116;"	f
+makeTermLine	src/Dodge/Terminal.hs	108;"	f
-makeTermPara	src/Dodge/Terminal.hs	125;"	f
+makeTermPara	src/Dodge/Terminal.hs	117;"	f
 makeTeslaArc	src/Dodge/Tesla.hs	29;"	f
 makeTeslaExplosionAt	src/Dodge/WorldEvent/Explosion.hs	40;"	f
 makeTileFromPoly	src/Tile.hs	34;"	f
@@ -4215,21 +4213,21 @@ maybeOpenConsole	src/Dodge/Update.hs	131;"	f
 maybeReadFile	src/Dodge/LoadSeed.hs	10;"	f
 maybeTakeOne	src/RandomHelp.hs	116;"	f
 maybeWarmupStatus	src/Dodge/Item/Display.hs	45;"	f
-mcApplyDamage	src/Dodge/Machine/Update.hs	115;"	f
+mcApplyDamage	src/Dodge/Machine/Update.hs	114;"	f
 mcKillBut	src/Dodge/Machine/Destroy.hs	37;"	f
 mcKillTerm	src/Dodge/Machine/Destroy.hs	29;"	f
-mcPlaySound	src/Dodge/Machine/Update.hs	105;"	f
+mcPlaySound	src/Dodge/Machine/Update.hs	104;"	f
-mcProxTest	src/Dodge/Machine/Update.hs	153;"	f
+mcProxTest	src/Dodge/Machine/Update.hs	159;"	f
-mcProximitySensorUpdate	src/Dodge/Machine/Update.hs	131;"	f
+mcProximitySensorUpdate	src/Dodge/Machine/Update.hs	130;"	f
 mcSPic	src/Dodge/Render/ShapePicture.hs	134;"	f
-mcSensorTriggerUpdate	src/Dodge/Machine/Update.hs	94;"	f
+mcSensorTriggerUpdate	src/Dodge/Machine/Update.hs	93;"	f
-mcSensorUpdate	src/Dodge/Machine/Update.hs	126;"	f
+mcSensorUpdate	src/Dodge/Machine/Update.hs	125;"	f
 mcShootAuto	src/Dodge/HeldUse.hs	1195;"	f
 mcShootLaser	src/Dodge/HeldUse.hs	1188;"	f
-mcTriggerVal	src/Dodge/Machine/Update.hs	100;"	f
+mcTriggerVal	src/Dodge/Machine/Update.hs	99;"	f
-mcTypeUpdate	src/Dodge/Machine/Update.hs	28;"	f
+mcTypeUpdate	src/Dodge/Machine/Update.hs	27;"	f
 mcUseHeld	src/Dodge/HeldUse.hs	1107;"	f
-mcUseItem	src/Dodge/Machine/Update.hs	85;"	f
+mcUseItem	src/Dodge/Machine/Update.hs	84;"	f
 megaBattery	src/Dodge/Item/Ammo.hs	55;"	f
 megaShellMag	src/Dodge/Item/Ammo.hs	44;"	f
 megaTinMag	src/Dodge/Item/Ammo.hs	23;"	f
@@ -4373,7 +4371,7 @@ numSelfTree'	src/Dodge/Tree/Compose.hs	110;"	f
 numShads	src/Picture/Data.hs	42;"	f
 numSubElements	src/Shader/Parameters.hs	39;"	f
 numTraversable	src/TreeHelp.hs	183;"	f
-obstacleColor	src/Dodge/Debug/Picture.hs	263;"	f
+obstacleColor	src/Dodge/Debug/Picture.hs	262;"	f
 obstructPathsCrossing	src/Dodge/Path.hs	138;"	f
 oldMachineBootS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	698;"	f
 onEquipWristShield	src/Dodge/Equipment.hs	36;"	f
@@ -4399,7 +4397,7 @@ orientByParentChSF	src/Dodge/Item/Orientation.hs	24;"	f
 orientChild	src/Dodge/Item/Orientation.hs	13;"	f
 orthogonalPointOnSeg	src/Geometry/Intersect.hs	321;"	f
 outLink	src/Dodge/RoomLink.hs	105;"	f
-outsideScreenPolygon	src/Dodge/Debug/Picture.hs	44;"	f
+outsideScreenPolygon	src/Dodge/Debug/Picture.hs	43;"	f
 outwardIntegers	src/Dodge/Base.hs	181;"	f
 overCol	src/Picture/Base.hs	308;"	f
 overColObj	src/Shape.hs	273;"	f
@@ -4608,8 +4606,8 @@ printColumns	src/Dodge/Tree/Shift.hs	132;"	f
 printInfo	src/Dodge/Tree/Shift.hs	145;"	f
 printInfoCheckNum	src/Dodge/Tree/Shift.hs	154;"	f
 printPartialColumns	src/Dodge/Tree/Shift.hs	135;"	f
-printPoint	src/Dodge/Debug/Picture.hs	35;"	f
+printPoint	src/Dodge/Debug/Picture.hs	34;"	f
-printRotPoint	src/Dodge/Debug/Picture.hs	38;"	f
+printRotPoint	src/Dodge/Debug/Picture.hs	37;"	f
 prismBox	src/Shape.hs	73;"	f
 prismPoly	src/Shape.hs	59;"	f
 projV	src/Geometry/Vector.hs	182;"	f
@@ -4653,16 +4651,16 @@ putBlockV	src/Dodge/Placement/Instance/Wall.hs	153;"	f
 putColorLamp	src/Dodge/Placement/Instance/LightSource.hs	203;"	f
 putDoubleDoor	src/Dodge/Placement/Instance/Door.hs	17;"	f
 putDoubleDoorThen	src/Dodge/Placement/Instance/Door.hs	21;"	f
-putImmediateMessageTerminal	src/Dodge/Placement/Instance/Terminal.hs	63;"	f
+putImmediateMessageTerminal	src/Dodge/Placement/Instance/Terminal.hs	65;"	f
 putLamp	src/Dodge/Placement/Instance/LightSource.hs	206;"	f
 putLasTurret	src/Dodge/Placement/Instance/Turret.hs	24;"	f
 putLitButOnPos	src/Dodge/Placement/Instance/Button.hs	65;"	f
 putLitButOnPosExtTrig	src/Dodge/Placement/Instance/Button.hs	103;"	f
 putLitButOnPosExtTrig'	src/Dodge/Placement/Instance/Button.hs	106;"	f
-putMessageTerminal	src/Dodge/Placement/Instance/Terminal.hs	55;"	f
+putMessageTerminal	src/Dodge/Placement/Instance/Terminal.hs	57;"	f
 putShape	src/Dodge/Room/Foreground.hs	134;"	f
 putStrLnAppend	src/Dodge/LevelGen.hs	81;"	f
-putTerminal	src/Dodge/Placement/Instance/Terminal.hs	52;"	f
+putTerminal	src/Dodge/Placement/Instance/Terminal.hs	54;"	f
 putTerminalFull	src/Dodge/Placement/Instance/Terminal.hs	23;"	f
 putTerminalImediateAccess	src/Dodge/Placement/Instance/Terminal.hs	18;"	f
 putTurret	src/Dodge/Placement/Instance/Turret.hs	11;"	f
@@ -4674,7 +4672,7 @@ qToV2	src/Quaternion.hs	56;"	f
 qToV3	src/Quaternion.hs	53;"	f
 quarterRoomSquare	src/Dodge/Room/Procedural.hs	213;"	f
 quarterRoomTri	src/Dodge/Room/Procedural.hs	177;"	f
-quitCommand	src/Dodge/Terminal.hs	113;"	f
+quitCommand	src/Dodge/Terminal.hs	105;"	f
 qz	src/Quaternion.hs	71;"	f
 rLauncher	src/Dodge/Item/Held/Launcher.hs	14;"	f
 rLauncherX	src/Dodge/Item/Held/Launcher.hs	30;"	f
@@ -4767,7 +4765,7 @@ replacePutID	src/Dodge/Placement/Instance/Wall.hs	102;"	f
 resetCrVocCoolDown	src/Dodge/Creature/Vocalization.hs	47;"	f
 resetPLUse	src/Dodge/PlacementSpot.hs	99;"	f
 resetStride	src/Dodge/Creature/State/WalkCycle.hs	24;"	f
-resetTerminal	src/Dodge/WorldEffect.hs	102;"	f
+resetTerminal	src/Dodge/WorldEffect.hs	103;"	f
 resizeFBOTO	src/Framebuffer/Update.hs	203;"	f
 resizeFBOTO3	src/Framebuffer/Update.hs	175;"	f
 resizeRBO	src/Framebuffer/Update.hs	87;"	f
@@ -4899,7 +4897,7 @@ screenPosAbs	src/Dodge/ScreenPos.hs	15;"	f
 screenToWorldPos	src/Dodge/Base/Coordinate.hs	51;"	f
 scrollAugInvSel	src/Dodge/Inventory.hs	190;"	f
 scrollAugNextInSection	src/Dodge/Inventory.hs	203;"	f
-scrollDebugInfoInt	src/Dodge/Debug.hs	62;"	f
+scrollDebugInfoInt	src/Dodge/Debug.hs	73;"	f
 scrollRBOption	src/Dodge/Update/Scroll.hs	202;"	f
 scrollSelectionSections	src/Dodge/SelectionSections.hs	28;"	f
 scrollTimeBack	src/Dodge/Update.hs	218;"	f
@@ -4920,24 +4918,24 @@ sectionsSizes	src/Dodge/DisplayInventory.hs	206;"	f
 seedStartMenu	src/Dodge/Menu.hs	82;"	f
 seedStartOptions	src/Dodge/Menu.hs	85;"	f
 segOnCirc	src/Geometry.hs	114;"	f
-selNumPos	src/Dodge/Render/HUD.hs	450;"	f
+selNumPos	src/Dodge/Render/HUD.hs	451;"	f
-selNumPosCardinal	src/Dodge/Render/HUD.hs	473;"	f
+selNumPosCardinal	src/Dodge/Render/HUD.hs	474;"	f
 selSecDrawCursor	src/Dodge/Render/List.hs	126;"	f
 selSecDrawCursorAt	src/Dodge/Render/List.hs	104;"	f
-selSecSelCol	src/Dodge/Render/HUD.hs	504;"	f
+selSecSelCol	src/Dodge/Render/HUD.hs	505;"	f
 selSecSelSize	src/Dodge/SelectionSections.hs	143;"	f
 selSecYint	src/Dodge/SelectionSections.hs	152;"	f
-selectCreatureDebugItem	src/Dodge/Debug.hs	54;"	f
+selectCreatureDebugItem	src/Dodge/Debug.hs	65;"	f
 selectedItemScroll	src/Dodge/Update/Scroll.hs	51;"	f
 sensAboveDoor	src/Dodge/Room/SensorDoor.hs	52;"	f
 sensInsideDoor	src/Dodge/Room/SensorDoor.hs	58;"	f
-senseDamage	src/Dodge/Machine/Update.hs	162;"	f
+senseDamage	src/Dodge/Machine/Update.hs	168;"	f
 sensorCommand	src/Dodge/Terminal.hs	82;"	f
-sensorReqToString	src/Dodge/Terminal.hs	89;"	f
+sensorReqToString	src/Dodge/Machine/Update.hs	154;"	f
 sensorRoom	src/Dodge/Room/SensorDoor.hs	25;"	f
 sensorRoomRunPast	src/Dodge/Room/SensorDoor.hs	45;"	f
 sensorSPic	src/Dodge/Machine/Draw.hs	68;"	f
-sensorTypeDamages	src/Dodge/Machine/Update.hs	180;"	f
+sensorTypeDamages	src/Dodge/Machine/Update.hs	186;"	f
 sentinelAI	src/Dodge/Creature/SentinelAI.hs	20;"	f
 sentinelExtraWatchUpdate	src/Dodge/Creature/SentinelAI.hs	83;"	f
 sentinelFireType	src/Dodge/Creature/SentinelAI.hs	50;"	f
@@ -5053,6 +5051,7 @@ shotgunS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	708;"	f
 shoulderHeight	src/Dodge/Item/HeldOffset.hs	69;"	f
 shoulderSH	src/Dodge/Creature/Picture.hs	124;"	f
 showAttachItem	src/Dodge/Item/Display.hs	92;"	f
+showEnabledDebugs	src/Dodge/Debug/Picture.hs	155;"	f
 showEquipItem	src/Dodge/Item/Display.hs	107;"	f
 showInt	src/Dodge/Item/Info.hs	75;"	f
 showIntsString	src/Dodge/Tree/Compose.hs	129;"	f
@@ -5068,7 +5067,7 @@ shuffleRoomPos	src/Dodge/Layout.hs	78;"	f
 shuffleTail	src/RandomHelp.hs	59;"	f
 sigmoid	src/Dodge/Base.hs	151;"	f
 simpleCrSprings	src/Dodge/Update.hs	868;"	f
-simpleTermMessage	src/Dodge/Terminal.hs	184;"	f
+simpleTermMessage	src/Dodge/Terminal.hs	176;"	f
 sineRaisePitchOneSecS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	680;"	f
 sineRaisePitchTwoSecS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	472;"	f
 singleAmmo	src/Dodge/Item/AmmoSlots.hs	62;"	f
@@ -5111,7 +5110,7 @@ soundMultiFrom	src/Dodge/SoundLogic.hs	187;"	f
 soundOriginIDsAt	src/Dodge/WorldEvent/Sound.hs	18;"	f
 soundOriginsIDsAt	src/Dodge/WorldEvent/Sound.hs	13;"	f
 soundPathList	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	296;"	f
-soundPic	src/Dodge/Debug/Picture.hs	355;"	f
+soundPic	src/Dodge/Debug/Picture.hs	352;"	f
 soundStart	src/Dodge/SoundLogic.hs	118;"	f
 soundToOnomato	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	150;"	f
 soundToVol	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	4;"	f
@@ -5216,8 +5215,8 @@ t	src/ShortShow.hs	44;"	f
 tEast	src/Dodge/Room/Corridor.hs	90;"	f
 tToBTree	src/Dodge/Tree/Compose.hs	92;"	f
 tWest	src/Dodge/Room/Corridor.hs	115;"	f
-tabComplete	src/Dodge/Terminal.hs	137;"	f
+tabComplete	src/Dodge/Terminal.hs	129;"	f
-tabComplete'	src/Dodge/Terminal.hs	143;"	f
+tabComplete'	src/Dodge/Terminal.hs	135;"	f
 takeN	src/RandomHelp.hs	44;"	f
 takeNMore	src/RandomHelp.hs	41;"	f
 takeOne	src/RandomHelp.hs	22;"	f
@@ -5247,10 +5246,10 @@ teleS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	528;"	f
 termScreenColor	src/Dodge/Terminal/Color.hs	8;"	f
 termSoundLine	src/Dodge/Terminal.hs	46;"	f
 termTextColor	src/Dodge/Terminal.hs	49;"	f
-terminalColor	src/Dodge/Placement/Instance/Terminal.hs	71;"	f
+terminalColor	src/Dodge/Placement/Instance/Terminal.hs	73;"	f
-terminalReturnEffect	src/Dodge/Terminal.hs	188;"	f
+terminalReturnEffect	src/Dodge/Terminal.hs	180;"	f
 terminalSPic	src/Dodge/Machine/Draw.hs	27;"	f
-terminalScreenGlow	src/Dodge/Machine/Update.hs	35;"	f
+terminalScreenGlow	src/Dodge/Machine/Update.hs	34;"	f
 terminalShape	src/Dodge/Machine/Draw.hs	30;"	f
 terminalWheelEvent	src/Dodge/Update/Scroll.hs	131;"	f
 teslaGun	src/Dodge/Item/Held/BatteryGuns.hs	19;"	f
@@ -5303,8 +5302,8 @@ tingS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	574;"	f
 tinitusS	src/Dodge/SoundLogic/ExternallyGeneratedSounds.hs	566;"	f
 titleOptionsMenu	src/Dodge/Menu.hs	102;"	f
 titleOptionsNoWrite	src/Dodge/Menu.hs	105;"	f
-tlDoEffect	src/Dodge/Terminal.hs	122;"	f
+tlDoEffect	src/Dodge/Terminal.hs	114;"	f
-tlSetStatus	src/Dodge/Terminal.hs	119;"	f
+tlSetStatus	src/Dodge/Terminal.hs	111;"	f
 tmUpdate	src/Dodge/Update.hs	487;"	f
 toBinary	src/Dodge/Inventory/SelectionList.hs	141;"	f
 toBothLnk	src/Dodge/RoomLink.hs	121;"	f
@@ -5319,7 +5318,7 @@ toV2	src/Geometry/Data.hs	54;"	f
 toV3	src/Geometry/Data.hs	57;"	f
 toV4	src/Geometry/Data.hs	60;"	f
 toggleCombineInv	src/Dodge/DisplayInventory.hs	316;"	f
-toggleCommands	src/Dodge/Terminal.hs	97;"	f
+toggleCommands	src/Dodge/Terminal.hs	89;"	f
 toggleEquipmentAt	src/Dodge/Creature/Impulse/UseItem.hs	67;"	f
 toggleExamineInv	src/Dodge/Creature/Impulse/UseItem.hs	105;"	f
 toggleJust	src/MaybeHelp.hs	41;"	f
@@ -5335,7 +5334,7 @@ topTestPart	src/Dodge/TestString.hs	71;"	f
 torch	src/Dodge/Item/Held/Utility.hs	23;"	f
 torchShape	src/Dodge/Item/Draw/SPic.hs	290;"	f
 torqueAmount	src/Dodge/HeldUse.hs	573;"	f
-torqueCr	src/Dodge/WorldEffect.hs	71;"	f
+torqueCr	src/Dodge/WorldEffect.hs	72;"	f
 torso	src/Dodge/Creature/Picture.hs	102;"	f
 tractCr	src/Dodge/TractorBeam/Update.hs	27;"	f
 tractFlIt	src/Dodge/TractorBeam/Update.hs	22;"	f
@@ -5502,7 +5501,7 @@ updateLasers	src/Dodge/Update.hs	437;"	f
 updateLeftParentSF	src/Dodge/Item/Grammar.hs	170;"	f
 updateLinearShockwave	src/Dodge/LinearShockwave/Update.hs	8;"	f
 updateLongPressInGame	src/Dodge/Update/Input/InGame.hs	439;"	f
-updateMachine	src/Dodge/Machine/Update.hs	20;"	f
+updateMachine	src/Dodge/Machine/Update.hs	19;"	f
 updateMagnets	src/Dodge/Update.hs	329;"	f
 updateMouseClickInGame	src/Dodge/Update/Input/InGame.hs	203;"	f
 updateMouseContext	src/Dodge/Update.hs	342;"	f
@@ -5544,7 +5543,7 @@ updateTeslaArc	src/Dodge/Update.hs	587;"	f
 updateTeslaArcs	src/Dodge/Update.hs	584;"	f
 updateTractorBeam	src/Dodge/TractorBeam/Update.hs	8;"	f
 updateTractorBeams	src/Dodge/Update.hs	655;"	f
-updateTurret	src/Dodge/Machine/Update.hs	50;"	f
+updateTurret	src/Dodge/Machine/Update.hs	49;"	f
 updateUniverse	src/Dodge/Update.hs	79;"	f
 updateUniverseFirst	src/Dodge/Update.hs	90;"	f
 updateUniverseLast	src/Dodge/Update.hs	141;"	f
@@ -5614,8 +5613,8 @@ verticalPipe	src/Dodge/Picture.hs	19;"	f
 verticalPipe	src/Dodge/Placement/Instance/Pipe.hs	6;"	f
 verticalWire	src/Dodge/Wire.hs	24;"	f
 vgunMuzzles	src/Dodge/HeldUse.hs	333;"	f
-viewBoundaries	src/Dodge/Debug/Picture.hs	323;"	f
+viewBoundaries	src/Dodge/Debug/Picture.hs	320;"	f
-viewClipBounds	src/Dodge/Debug/Picture.hs	332;"	f
+viewClipBounds	src/Dodge/Debug/Picture.hs	329;"	f
 viewDistanceFromItems	src/Dodge/Update/Camera.hs	194;"	f
 viewTarget	src/Dodge/Creature/ReaderUpdate.hs	146;"	f
 violet	src/Color.hs	21;"	f