some cleanup
This commit is contained in:
parent
1770841753
commit
ec9a89e42d
7
main.fs
7
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)" ;
|
||||
|
||||
|
|
Reference in New Issue