From 4f6a14731a145eb4dc5adc1fb50033d5cb181363 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sun, 11 Jun 2023 20:31:57 -0700
Subject: [PATCH] (lander) Starting platforms

---
 gui/lander/lander.tal | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/gui/lander/lander.tal b/gui/lander/lander.tal
index a3ae59e..64d75fe 100644
--- a/gui/lander/lander.tal
+++ b/gui/lander/lander.tal
@@ -35,7 +35,18 @@
 
 	#0100 .pos/x STZ2
 	#00a0 .pos/y STZ2
+
 	set-terrain
+
+	draw-stage
+	( draw platform )
+	#04 create-platform #01 SUB #00 SWP #30 SFT2 STH2
+	#0004 #30 SFT2
+	STH2kr
+	#0005 #30 SFT2
+	STH2r
+		#43 draw-line
+
 	redraw
 
 BRK
@@ -66,7 +77,6 @@ BRK
 	apply-force
 	( .force/y LDZ2 phex #0a18 DEO )
 	redraw
-	draw-stage
 
 BRK
 
@@ -131,8 +141,8 @@ JMP2r
 	.stage/w LDZ INC INC #00
 	&loop
 		( height/2 ) .stage/h LDZ #01 SFT
-		( rand ) prng #0a SFT2 NIP ADD #01 SFT
-		( v offset ) #10 ADD
+		( rand ) prng #0260 DIV2 NIP ADD #01 SFT
+		( v offset ) #00 ADD
 		( store ) OVR #00 SWP ;terrain ADD2 STA
 		INC GTHk ,&loop JCN
 	POP2
@@ -147,7 +157,7 @@ JMP2r
 
 @soften ( -- )
 
-	.stage/w LDZ #00
+	.stage/w LDZ INC #00
 	&loop2
 		( a ) #00 OVR ;terrain ADD2 LDA STH
 		( b ) #00 OVR INC ;terrain ADD2 LDA STH
@@ -219,7 +229,7 @@ JMP2r
 		( b )
 		OVR2 #0008 ADD2
 		STH2r INC2 LDA #01 SUB #00 SWP #30 SFT2
-			#43 draw-line
+			#41 draw-line
 		INC GTHk ?&loop
 	POP2