From ec9a89e42daa1e72c94ed1248dfc91cde25ba27a Mon Sep 17 00:00:00 2001 From: Nihilazo Date: Fri, 19 Mar 2021 20:27:08 +0000 Subject: [PATCH] some cleanup --- main.fs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/main.fs b/main.fs index cd38be9..2707061 100644 --- a/main.fs +++ b/main.fs @@ -106,8 +106,7 @@ S" you feel like throwing some stuff into the pool." set-message \ the word game-tick runs a single tick of the game : game-tick unlock update-devices - set-count-message - ; + set-count-message ; \ TODO saving \ the word exit-game exits the game. @@ -115,8 +114,6 @@ S" you feel like throwing some stuff into the pool." set-message \ the word hire-chat-member hires a chat member. -\ TODO subtract the membercost from the -\ goes negative at 12 members, seems to be doing weird stuff before that with speeds. : hire-chat-member membercost @ dup !0= swap \ checks if member cost is nonzero, leaving member cost on the stack s>f devices f@ f<= \ tests if the member cost (converted to a float) is less than the amount of devices we have @@ -134,7 +131,6 @@ S" you feel like throwing some stuff into the pool." set-message key? if key case [char] q of exit-game endof [char] h of hire-chat-member endof -\ [char] t of throw-device endof [char] D of debug-console endof endcase then ; @@ -169,7 +165,6 @@ S" you feel like throwing some stuff into the pool." set-message \ draw-actions draws a list of the actions you've unlocked. : draw-actions 1 4 at-xy -\ ." (t)hrow a device into the pool" cr 1 move-right draw-members cr 1 move-right ." (q)uit (without saving)" ;