Tweak tutorial messages

src/Dodge/Room/Tutorial.hs

@@ -114,18 +114,26 @@ tutRooms = do
             & plSpot .~ rprBoolShift isUnusedLnk 
                 (\(p, a) -> (p + 10 *.* unitVectorAtAngle (a - pi/2), a))
     ss' =
-        [ makeTermLine "HOLD [CAPS] AND SCROLL\\"
-        , makeTermLine "     OR                }~ TO REARRANGE INVENTORY ITEMS"
-        , makeTermLine "        CLICK AND DRAG/"
+        [ makeTermLine "HOLD [CAPS] AND SCROLL"
+        , makeTermLine "     OR CLICK AND DRAG TO REARRANGE INVENTORY ITEMS"
         , makeTermLine ""
         , makeTermLine "AMMO MAGS ARE TYPICALLY LOADED BENEATH WEAPONS"
         , makeTermLine "               .-------."
         , makeTermLine "  BURSTRIFLE   |DRUMMAG|"
-        , makeTermLine "        <--------------'"
+        , makeTermLine "        <------^-------^"
+        , makeTermLine ""
+        , makeTermLine "HOLD [RMB] TO AIM"
+        , makeTermLine "*AND* THEN TAP [LMB] TO FIRE LOADED WEAPONS"
+        ]
+
+sensorTut :: [TerminalLine]
+sensorTut =
+        [ makeTermLine "SOME TERMINALS DETECT EXTERNAL CONDITIONS"
+        , makeTermLine "WHILE WORKING THESE DISPLAY SPINNING SYMBOL"
+        , makeTermLine ""
+        , makeTermLine "**CAUTION**"
+        , makeTermLine "THE CONDITIONS AND ANY EFFECTS MAY BE HIDDEN"
         , makeTermLine ""
-        , makeTermLine "HOLD [RMB]\\"
-        , makeTermLine "  AND TAP }~ TO FIRE LOADED WEAPONS"
-        , makeTermLine " TAP [LMB]/"
         ]
 
 tutRezBox :: RandomGen g => State g Room
@@ -138,9 +146,9 @@ tutRezBox = do
                    , Placement (PS 0 0) PutNothing Nothing $ \w _ -> Just $ putImmediateMessageTerminal
                         terminalColor
                         ( defaultTerminal & tmBootLines .~ s w
-                            <> tlSetStatus (TerminalPressTo "USE [WASD] TO MOVE")
-                            <> tlDoEffect
-                                (TmWdWdLeaveTerminal "USE [WASD] TO MOVE")
+                            <> tlSetStatus (TerminalPressTo "QUIT")
+                            <> tlDoEffect TmWdWdPowerDownTerminal
+--                            <> tlDoEffect (TmWdWdLeaveTerminal "QUIT")
                         )
                         & plSpot .~ PS (V2 20 0) 0
                    ]
@@ -155,7 +163,10 @@ tutorialMessage1 i =
     [ makeTermLine $ "WELCOME TO ENVIRONMENT " ++ show i
     , makeTermLine ""
     ]
-        <> tlSetStatus (TerminalPressTo "USE [SPACE] TO INTERACT")
-        <> [ makeTermLine "USE [SPACE] TO INTERACT"
+        <> tlSetStatus (TerminalPressTo "USE [SPACE] TO INTERACT WITH NEARBY OBJECTS")
+        <> [ makeTermLine "USE [SPACE] TO INTERACT WITH NEARBY OBJECTS"
            , makeTermLine ""
+           , makeTermLine "USE  [W]"
+           , makeTermLine "   [A] [S]"
+           , makeTermLine "     [D]  TO MOVE"
            ]