From b201be5655b08cbeb2758211f08457c5cb1375f0 Mon Sep 17 00:00:00 2001 From: Nihilazo Date: Thu, 18 Mar 2021 20:07:03 +0000 Subject: [PATCH] disable throwing --- main.fs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/main.fs b/main.fs index ae5f032..0b3b531 100644 --- a/main.fs +++ b/main.fs @@ -9,7 +9,7 @@ \ some of these values (member cost, device count) have two cells. \ the second cell is used to store if the value has changed or not. -\ for flexibility, these all take an offset of the cell the flag is stored in. +\ for flexibility, these all take an offset of the cell the flag is stored in, so multiple values can be before the flag. \ this is useful as it means we only redraw the display if a relevant value has changed. \ the word "changed" sets one of these values as being changed. : changed ( addr offset -- ) cells + -1 swap ! ; @@ -116,14 +116,14 @@ S" you feel like throwing some stuff into the pool." set-message page ; \ throw-device throws a device into the pool. -: throw-device 1 devices +! devices 1 changed ; +\ : throw-device 1 devices +! devices 1 changed ; \ the word handle-input handles input every time around the game loop. : handle-input key? if key case [char] q of exit-game endof [char] h of hire-chat-member endof - [char] t of throw-device endof +\ [char] t of throw-device endof [char] D of debug-console endof endcase then ; @@ -158,7 +158,7 @@ S" you feel like throwing some stuff into the pool." set-message \ draw-actions draws a list of the actions you've unlocked. : draw-actions 1 4 at-xy - ." (t)hrow a device into the pool" cr 1 move-right +\ ." (t)hrow a device into the pool" cr 1 move-right draw-members cr 1 move-right ." (q)uit (without saving)" ;