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

add more comments

This commit is contained in:
Nico 2021-03-17 18:04:15 +00:00
parent 2ab884d0ef
commit 86f256ee45
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
main.fs
View File

@ -48,13 +48,13 @@ variable membercount
\ the word hire-chat-member hires a chat member. \ the word hire-chat-member hires a chat member.
: hire-chat-member : hire-chat-member
membercost @ dup !0= swap membercost @ dup !0= swap \ checks if member cost is nonzero, leaving member cost on the stack
devices @ <= devices @ <= \ tests if the member cost is less than the amount of devices we have
and if and if
devices @ membercost @ - devices ! devices @ membercost @ - devices ! \ remove devices that "pay" for the members
devicerate @ 500 - devicerate ! devicerate @ 500 - devicerate ! \ increase the device rate by 500
1 membercount +! 1 membercount +! \ add a member to the count
membercount @ 2 * 5 + membercost +! membercount @ 2 * 5 + membercost +! \ increase the cost of buying a new member
then ; then ;
@ -69,7 +69,8 @@ variable membercount
\ TODO make this be devices/s \ TODO make this be devices/s
: print-rate : print-rate
2 set-precision 2 set-precision
." (" devicerate @ s>f 1000e f/ 1e fswap f/ f. ." devices/second)" ; \ first convert to floating point, divide by 1000 to get seconds from milliseconds, then do 1/n to get the devices/second from seconds/device
." (" devicerate @ s>f 1000e f/ 1e fswap f/ f. ." devices/second)" ;
\ draw-devices draws the number of devices on the screen. \ draw-devices draws the number of devices on the screen.
: draw-devices : draw-devices
@ -83,7 +84,7 @@ variable membercount
\ 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 3 at-xy 1 3 at-xy
membercost @ dup !0= if membercost @ dup !0= if \ if membercost is non-zero (members have been unlocked)
." (h)ire a chat member [" . ." Devices] (you have " membercount @ . ." chat members helping you)" cr ." (h)ire a chat member [" . ." Devices] (you have " membercount @ . ." chat members helping you)" cr
else drop then else drop then
1 move-right ." (q)uit" ; 1 move-right ." (q)uit" ;