make chat members more powerful

This commit is contained in:
Nico 2021-03-18 20:32:07 +00:00
parent b201be5655
commit bbf6d78f08
1 changed files with 2 additions and 2 deletions

View File

@ -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