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
|
and if
|
||||||
devices @ membercost @ - devices ! \ remove devices that "pay" for the member
|
devices @ membercost @ - devices ! \ remove devices that "pay" for the member
|
||||||
membercount @ dup !0= if \ membercount is nonzero
|
membercount @ dup !0= if \ membercount is nonzero
|
||||||
devicerate @ swap 1 + 500 swap / - devicerate !
|
devicerate @ swap 1 + 750 swap / - devicerate !
|
||||||
else
|
else
|
||||||
devicerate @ 500 - devicerate ! drop
|
devicerate @ 750 - devicerate ! drop
|
||||||
then
|
then
|
||||||
1 membercount +! \ add a member to the count
|
1 membercount +! \ add a member to the count
|
||||||
membercount @ 2 * 5 + membercost +! \ increase the cost of buying a new member
|
membercount @ 2 * 5 + membercost +! \ increase the cost of buying a new member
|
||||||
|
|
Reference in New Issue