added throw command
This commit is contained in:
parent
699603d466
commit
d0444cfc80
7
main.fs
7
main.fs
|
@ -118,12 +118,16 @@ S" you feel like throwing some stuff into the pool." set-message
|
||||||
page
|
page
|
||||||
." Entering debug/cheat mode!"
|
." Entering debug/cheat mode!"
|
||||||
page ;
|
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.
|
\ the word handle-input handles input every time around the game loop.
|
||||||
: handle-input
|
: handle-input
|
||||||
key? if key case
|
key? if key case
|
||||||
[char] q of exit-game endof
|
[char] q of exit-game endof
|
||||||
[char] h of hire-chat-member endof
|
[char] h of hire-chat-member endof
|
||||||
|
[char] t of throw-device endof
|
||||||
[char] D of debug-console endof
|
[char] D of debug-console endof
|
||||||
endcase then ;
|
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 draws a list of the actions you've unlocked.
|
||||||
: draw-actions
|
: draw-actions
|
||||||
1 4 at-xy
|
1 4 at-xy
|
||||||
|
." (t)hrow a device into the pool" cr 1 move-right
|
||||||
draw-members cr 1 move-right
|
draw-members cr 1 move-right
|
||||||
." (q)uit (without saving)" ;
|
." (q)uit (without saving)" ;
|
||||||
|
|
||||||
|
|
Reference in New Issue