From d6e037bb5c469f5e9e87b73e2497d8b2c8a216cb Mon Sep 17 00:00:00 2001
From: nihilazo <nico@itwont.work>
Date: Mon, 22 Mar 2021 10:32:36 +0000
Subject: [PATCH] make drawing commands pass position through the stack

---
 main.fs | 39 +++++++++++++++++++++++++++------------
 1 file changed, 27 insertions(+), 12 deletions(-)

diff --git a/main.fs b/main.fs
index 6d06d59..55f8474 100644
--- a/main.fs
+++ b/main.fs
@@ -164,6 +164,9 @@ S" you feel like throwing some stuff into the pool." set-message
         [char] b of build-construct endof
         [char] D of debug-console endof
     endcase then ;
+ 
+\ inc-y increments the y coordinate being drawn at.
+: inc-y 1 + ;
 
 \ print-rate prints the current device output rate on the screen.
 : print-rate 
@@ -172,21 +175,25 @@ S" you feel like throwing some stuff into the pool." set-message
 	." (" devices/tick 1000e f* f. ." devices/second)" ; 
 
 \ draw-message draws the stored message on the screen.
-: draw-message
-	1 2 at-xy
-	clear-line get-message type ;
+: draw-message ( x y -- x y )
+	2dup at-xy
+	clear-line get-message type 
+	inc-y ;
 	
 \ draw-devices draws the number of devices on the screen.
-: draw-devices 
+: draw-devices ( x y -- x y )
+	2dup at-xy
 	devices f@ f>s dup
-	1 1 at-xy
 	clear-line
 	1 = if ." There is 1 device in the javapool." drop else
 	." There are " . ." devices in the javapool." then 
-	space print-rate ;
+	space print-rate 
+	\ increment y position
+	inc-y ;
 
 \ draw-constructs draws the option for building a construct
-: draw-constructs
+: draw-constructs ( x y -- x y )
+	2dup at-xy
 	clear-line
 	constructcost @ dup !0= if
 		." (b)uild a device-throwing construct [" . ." Devices]"
@@ -194,22 +201,30 @@ S" you feel like throwing some stuff into the pool." set-message
 	else drop then ;
 
 \ draw-members draws the option for hiring a chat member
-: draw-members 
+: draw-members ( x y -- x y )
+	2dup at-xy
 	clear-line
 	membercost @ dup !0= if  \ if membercost is non-zero (members have been unlocked)
 		." (h)ire a chat member [" . ." Devices]"
 		space ." (" membercount @ 0 .R ." )"
-	else drop then ;
+	else drop then 
+	inc-y ;
 
 \ draw-actions draws a list of the actions you've unlocked.
 : draw-actions
-	1 4 at-xy
+	2dup at-xy
 	draw-members cr 1 move-right
 	draw-constructs cr 1 move-right
-	." (q)uit (without saving)" ;
+	." (q)uit (without saving)"
+	\ add 1 to y
+	1 + ;
+
+\ clear-xy clears the x and y positions from the stack
+: clear-xy ( x y -- ) drop drop ;
 
 \ draw-screen redraws the screen, but only if there's been a change.
-: draw-screen  any-change? if draw-devices draw-actions draw-message clear-all then ;
+\ 1 1 is the starting position to draw from.
+: draw-screen  any-change? if 1 1 draw-devices draw-message draw-actions clear-xy clear-all then ;
 \ : draw-screen clear-all ;
 
 \ main game loop