Add text messages on loading screens

src/Dodge/Room/Tutorial.hs

@@ -263,8 +263,8 @@ tutHub = do
             =<< roomNgon 6 100
     bcor <- treeAttachDeep (return door) <$> blockedCorridor
     --bcor <- treeAttachDeep (return door) <$> return (return $ cleatOnward door)
-    r1 <- r burstRifle <&> rmPmnts .:~ t
-    r2 <- r (drumMag & itConsumables ?~ 90)
+    r1 <- r burstRifle <&> rmPmnts .:~ itemshiftterminal
+    r2 <- ammoroom (drumMag & itConsumables ?~ 90) -- <&> rmPmnts .:~ tutorialterminal
     --r2 <- r (tinMag & itConsumables ?~ 500)
     return $
         tToBTree "DoorTest" $
@@ -290,7 +290,8 @@ tutHub = do
         , makeTermLine ""
         ]
     r x = roomRectAutoLinks 100 100 <&> rmPmnts .:~ sps (PS 50 0) (PutFlIt x)
-    t =
+    ammoroom x = roomRectAutoLinks 100 100 <&> rmPmnts .:~ sps (PS 50 0) (PutFlIt x)
+    itemshiftterminal =
         putMessageTerminal
             terminalColor
             (defaultTerminal & tmBootLines .~ ss' <> tlSetStatus (TerminalPressTo "QUIT") <> tlDoEffect TmWdWdPowerDownTerminal)