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

Tweak ledge room, rename roomRectAutoLinks

Browse Source
This commit is contained in:
justin
2026-02-02 10:44:27 +00:00
parent f3aaf8ba57
commit 3b7e33cab8
15 changed files with 34 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/Tutorial.hs
+12 -12
View File
@@ -101,7 +101,7 @@ tutDrop = do
i <- nextLayoutInt
--let y = decontamRoom i
(j, y) <- setRoomInt (decontamRoom i)
rm <- roomRectAutoLinks 40 100
rm <- roomRectAutoLights 40 100
return $
tToBTree "TutDrop" $
treePost
@@ -134,7 +134,7 @@ cChasm :: State LayoutVars Room
cChasm = do
x <- state $ randomR (150, 300)
y <- state $ randomR (150, 300)
roomRectAutoLinks x y
roomRectAutoLights x y
<&> rmLinks %~ setOutLinks (isCornerLink NorthWest)
<&> rmLinks %~ setInLinks (isCornerLink SouthWest)
<&> rmPmnts <>~ [sps0 $ putConvexChasm (rectNSWE (y -50) 50 0 (x -50))]
@@ -143,7 +143,7 @@ lChasm :: State LayoutVars Room
lChasm = do
x <- state $ randomR (150, 300)
y <- state $ randomR (150, 300)
roomRectAutoLinks x y
roomRectAutoLights x y
<&> rmLinks %~ setOutLinks (isCornerLink NorthWest)
<&> rmLinks %~ setInLinks (isCornerLink SouthEast)
<&> rmPmnts <>~ [sps0 $ putConvexChasm (rectNSWE (y -50) 0 0 (x -50))]
@@ -153,7 +153,7 @@ zChasm :: Float -> State LayoutVars Room
zChasm z = do
x <- state $ randomR (150, 300)
y <- state $ randomR (150, 300)
roomRectAutoLinks x y
roomRectAutoLights x y
<&> rmLinks %~ setOutLinks (isCornerLink NorthWest)
<&> rmLinks %~ setInLinks (isCornerLink SouthEast)
<&> rmPath %~ addNodesCrossing (V2 0 (y/2),V2 x (y/2))
@@ -166,7 +166,7 @@ midChasm :: State LayoutVars Room
midChasm = do
x <- state $ randomR (200, 300)
y <- state $ randomR (200, 300)
r <- roomRectAutoLinks x y
r <- roomRectAutoLights x y
cs <- join $ takeOne [cenoct x y, censquare x y]
shuffleLinks $
r
@@ -185,7 +185,7 @@ midChasmPlatform :: State LayoutVars Room
midChasmPlatform = do
x <- state $ randomR (250, 300)
y <- state $ randomR (250, 300)
r <- roomRectAutoLinks x y
r <- roomRectAutoLights x y
cs <- join $ takeOne [censquare x y]
shuffleLinks $
r
@@ -239,17 +239,17 @@ midChasmSpit :: State LayoutVars Room
midChasmSpit = do
let x = 300
y = 300
r <- roomRectAutoLinks x y
r <- roomRectAutoLights x y
cs <- join $ takeOne [censquare x y]
shuffleLinks $
r
& rmLinks %~ setOutLinks
(\rl -> isMidEdgeLink r South rl
|| isMidEdgeLink r West rl
(\rl -> isMidEdgeLink r North rl
|| isMidEdgeLink r East rl
|| isMidEdgeLink r West rl
)
& rmLinks %~ setInLinks (isMidEdgeLink r South)
& rmPmnts <>~ cs
& rmPmnts .~ cs
where
censquare x y = do
z <- state $ randomR (40, 60)
@@ -396,8 +396,8 @@ tutHub = do
, makeTermLine "---------------------------------------------"
, makeTermLine ""
]
r x = roomRectAutoLinks 100 100 <&> rmPmnts .:~ sps (PS 50 0) (PutFlIt x)
ammoroom x = roomRectAutoLinks 100 100 <&> rmPmnts .:~ sps (PS 50 0) (PutFlIt x)
r x = roomRectAutoLights 100 100 <&> rmPmnts .:~ sps (PS 50 0) (PutFlIt x)
ammoroom x = roomRectAutoLights 100 100 <&> rmPmnts .:~ sps (PS 50 0) (PutFlIt x)
itemshiftterminal =
putMessageTerminal
(defaultTerminal & tmBootLines .~ ss' <> tlSetStatus (TerminalPressTo "QUIT") <> tlDoEffect TmWdWdPowerDownTerminal)