diff --git a/main.fs b/main.fs index 56847c9..c1665d3 100644 --- a/main.fs +++ b/main.fs @@ -43,10 +43,6 @@ variable count-messages-shown \ set an initial message S" you feel like throwing some stuff into the pool." set-message -\ FOR DEBUGGING PURPOSES - some sets that skip into the future -\ 40 devices ! -\ 10 membercost ! - \ any-change? leaves a -1 on the stack if any value has changed, 0 otherwise : any-change? ( -- flag ) membercost 1 changed? devices 1 changed? message 2 changed? or or ; \ clear-all clears the change flag on all values. @@ -112,8 +108,8 @@ S" you feel like throwing some stuff into the pool." set-message \ TODO write debug mode. Ideally this could just be a forth console. : debug-console page - ." Entering debug/cheat mode!" - page ; + ." Entering debug/cheat mode! use `init` to restart the game." + quit ; \ throw-device throws a device into the pool. \ : throw-device 1 devices +! devices 1 changed ; @@ -169,4 +165,6 @@ S" you feel like throwing some stuff into the pool." set-message : game-loop begin game-tick handle-input draw-screen 0 until ; \ clear the screen and start the game -page hide-cursor game-loop +: init page hide-cursor game-loop ; + +init