Tweak tutorial messages

log/aGeneratedRoomLayout

@@ -1,4 +1,4 @@
-Seed: 8032054640819015688
+Seed: 7114951007332849727
 Room layout (compact): 
 0,1,2,3
 |

log/attemptedSeeds

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

log/treeCluster

@@ -1,4 +1,4 @@
-Seed: 8032054640819015688
+Seed: 7114951007332849727
 0:TutStartRez
 |
 1:corDoor

saveSlot/seed

@@ -1 +1 @@
-8032054640819015688
+7114951007332849727

src/Dodge/Placement/Instance/Analyser.hs

@@ -4,7 +4,6 @@ import Color
 import Dodge.Data.GenWorld
 import Dodge.Default
 import Dodge.Placement.Instance
---import Dodge.Terminal
 import LensHelp
 
 analyser :: ProximitySensorType -> PlacementSpot -> PlacementSpot -> Placement

src/Dodge/Render/HUD.hs

@@ -381,7 +381,7 @@ drawTerminalDisplay lw cfig tm =
         TerminalTextInput s ->
             (++ [(getPromptTM ++ s ++ [cFilledRect], white)])
         TerminalPressTo s ->
-            (++ [("<" ++ s ++ ">", white)])
+            (++ [(s, white)])
     spincurs = clockCycle 4 (V.fromList ["/","-","\\","|"]) lw
 
 lnkMidPosInvSelsCol :: Config -> World -> Int -> Color -> [Int] -> Picture

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 "HOLD [CAPS] AND SCROLL"
-        , makeTermLine "     OR                }~ TO REARRANGE INVENTORY ITEMS"
+        , makeTermLine "     OR CLICK AND DRAG TO REARRANGE INVENTORY ITEMS"
-        , makeTermLine "        CLICK AND DRAG/"
         , 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")
+                            <> tlSetStatus (TerminalPressTo "QUIT")
-                            <> tlDoEffect
+                            <> tlDoEffect TmWdWdPowerDownTerminal
-                                (TmWdWdLeaveTerminal "USE [WASD] TO MOVE")
+--                            <> 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")
+        <> tlSetStatus (TerminalPressTo "USE [SPACE] TO INTERACT WITH NEARBY OBJECTS")
-        <> [ makeTermLine "USE [SPACE] TO INTERACT"
+        <> [ makeTermLine "USE [SPACE] TO INTERACT WITH NEARBY OBJECTS"
            , makeTermLine ""
+           , makeTermLine "USE  [W]"
+           , makeTermLine "   [A] [S]"
+           , makeTermLine "     [D]  TO MOVE"
            ]