From bbf6d78f08d82b907db68558952a2d0e54d7d563 Mon Sep 17 00:00:00 2001 From: Nihilazo Date: Thu, 18 Mar 2021 20:32:07 +0000 Subject: [PATCH] make chat members more powerful --- main.fs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/main.fs b/main.fs index 0b3b531..56847c9 100644 --- a/main.fs +++ b/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