nihilazo
/
javapool
Archived
2
2
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

some cleanup

This commit is contained in:
Nico 2021-03-19 20:27:08 +00:00
parent 1770841753
commit ec9a89e42d
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
main.fs
View File

@ -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 \ the word game-tick runs a single tick of the game
: game-tick unlock : game-tick unlock
update-devices update-devices
set-count-message set-count-message ;
;
\ TODO saving \ TODO saving
\ the word exit-game exits the game. \ 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. \ 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 : hire-chat-member
membercost @ dup !0= swap \ checks if member cost is nonzero, leaving member cost on the stack 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 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 key? if key case
[char] q of exit-game endof [char] q of exit-game endof
[char] h of hire-chat-member endof [char] h of hire-chat-member endof
\ [char] t of throw-device endof
[char] D of debug-console endof [char] D of debug-console endof
endcase then ; 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 draws a list of the actions you've unlocked.
: draw-actions : draw-actions
1 4 at-xy 1 4 at-xy
\ ." (t)hrow a device into the pool" cr 1 move-right
draw-members cr 1 move-right draw-members cr 1 move-right
." (q)uit (without saving)" ; ." (q)uit (without saving)" ;