make chat members more powerful
This commit is contained in:
parent
b201be5655
commit
bbf6d78f08
4
main.fs
4
main.fs
|
@ -98,9 +98,9 @@ S" you feel like throwing some stuff into the pool." set-message
|
|||
and if
|
||||
devices @ membercost @ - devices ! \ remove devices that "pay" for the member
|
||||
membercount @ dup !0= if \ membercount is nonzero
|
||||
devicerate @ swap 1 + 500 swap / - devicerate !
|
||||
devicerate @ swap 1 + 750 swap / - devicerate !
|
||||
else
|
||||
devicerate @ 500 - devicerate ! drop
|
||||
devicerate @ 750 - devicerate ! drop
|
||||
then
|
||||
1 membercount +! \ add a member to the count
|
||||
membercount @ 2 * 5 + membercost +! \ increase the cost of buying a new member
|
||||
|
|
Reference in New Issue