justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Tweak tutorial messages

Browse Source
This commit is contained in:
justin
2025-09-20 01:56:34 +01:00
parent b270e18556
commit 4179115023
8 changed files with 30 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
log/aGeneratedRoomLayout
+1 -1
View File
@@ -1,4 +1,4 @@
Seed: 8032054640819015688
Seed: 7114951007332849727
Room layout (compact):
0,1,2,3
|
log/attemptedSeeds
+2 -2
View File
@@ -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 -1
View File
@@ -1,4 +1,4 @@
Seed: 8032054640819015688
Seed: 7114951007332849727
0:TutStartRez
|
1:corDoor
saveSlot/LevelStart0
+1 -1
View File
File diff suppressed because one or more lines are too long
saveSlot/seed
+1 -1
View File
@@ -1 +1 @@
8032054640819015688
7114951007332849727
src/Dodge/Placement/Instance/Analyser.hs
-1
View File
@@ -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
+1 -1
View File
@@ -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
+23 -12
View File
@@ -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"
]