make unlocking functions clearer

This commit is contained in:
Nico 2021-04-01 14:24:19 +01:00
parent d7ccec8595
commit f2c33f880f
1 changed files with 5 additions and 5 deletions

10
main.fs
View File

@ -79,14 +79,17 @@ S" you feel like throwing some stuff into the pool." set-message
\ the word f!0= tests if a floating thing is non-zero
: f!0= ( r -- flag ) f0= 0= ;
\ the word can-afford? tests if you could afford n of a currency.
: can-afford? ( n currency -- flag ) f@ s>f f>= ;
\ the world unlock-members tests to see if hiring chat members can be unlocked. if so, they are unlocked.
: unlock-members
devices f@ ftrunc 5e f= membercost @ 0= and if
5 devices can-afford? membercost @ 0= and if
10 membercost !
S" A friendly townie wants to help out." set-message then ;
: unlock-constructs
devices f@ ftrunc 30e f= constructcost @ 0= and if
30 devices can-afford? constructcost @ 0= and if
40 constructcost !
S" You figure out that you can probably hack these devices." set-message then ;
@ -126,9 +129,6 @@ S" you feel like throwing some stuff into the pool." set-message
\ the word exit-game exits the game.
: exit-game page show-cursor bye ;
\ the word can-afford? tests if you could afford n of a currency.
: can-afford? ( n currency -- flag ) f@ s>f f>= ;
\ the word pay pays an amount of a currency.
: pay ( n currency -- ) dup f@ swap s>f ( fswap ) f- f! ;