From d0444cfc80fb1efaa1fedb917114c9484619c6db Mon Sep 17 00:00:00 2001 From: nihilazo Date: Thu, 18 Mar 2021 15:29:55 +0000 Subject: [PATCH] added throw command --- main.fs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/main.fs b/main.fs index ff58bac..ab47db5 100644 --- a/main.fs +++ b/main.fs @@ -118,12 +118,16 @@ S" you feel like throwing some stuff into the pool." set-message page ." Entering debug/cheat mode!" page ; - + +\ throw-device throws a device into the pool. +: throw-device 1 devices +! devices 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] D of debug-console endof endcase then ; @@ -158,6 +162,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 draw-members cr 1 move-right ." (q)uit (without saving)" ;