2020-03-25 03:46:09 +00:00
|
|
|
( L E V E L 0 0 0 0 6 )
|
|
|
|
|
|
2020-03-28 20:58:47 +00:00
|
|
|
objects: O
|
|
|
|
|
|
|
|
|
|
2 const ^1
|
|
|
|
|
30 const code-y
|
|
|
|
|
20 const code-x
|
|
|
|
|
|
|
|
|
|
: wait-for-digit ( -- n )
|
|
|
|
|
0 begin suspend ^1 dup 11 + for i key-pressed if drop i then next dup until
|
|
|
|
|
^1 - 1 + dup 10 = if drop 0 then ;
|
|
|
|
|
: draw-digit ( x n -- ) code-y swap 48 + text-color @ textc ;
|
|
|
|
|
: code-digit ( code x -- code )
|
|
|
|
|
wait-for-digit swap code-x + over draw-digit swap 10 * + ;
|
|
|
|
|
|
|
|
|
|
: read-code ( -- n )
|
|
|
|
|
WHITE text-color !
|
|
|
|
|
s" ####" code-x code-y textxy
|
|
|
|
|
0 0 code-digit
|
|
|
|
|
1 code-digit
|
|
|
|
|
2 code-digit
|
|
|
|
|
3 code-digit ;
|
|
|
|
|
|
|
|
|
|
var pady-introduced
|
|
|
|
|
: keypad-code responder entity.user cell + @ ;
|
|
|
|
|
: keypad create-extra-linked-object
|
|
|
|
|
:| dup EVTOUCH = if
|
|
|
|
|
pady-introduced @ not if
|
|
|
|
|
pady say" Hello, stranger! I'm Pady,\the friendly keypad lock!"
|
|
|
|
|
jaye say" I need to get through this\door, Pady."
|
|
|
|
|
pady say" You didn't say the magic\word, stranger!"
|
|
|
|
|
1 pady-introduced !
|
|
|
|
|
then
|
|
|
|
|
isneut? if move-player then
|
|
|
|
|
PAD-OFF responder>tile? if
|
|
|
|
|
runon pady say" Enter your 4-digit door code!\And have a super day!"
|
|
|
|
|
read-code keypad-code = if
|
|
|
|
|
pady say" That's right! Hooray!\You get a gold star!"
|
|
|
|
|
drop EVACT
|
|
|
|
|
else
|
|
|
|
|
pady say" Ohhh, sorry! That's not it.\Better luck next time!"
|
|
|
|
|
then
|
|
|
|
|
else
|
|
|
|
|
pady say" Oh hi again! I missed you too!"
|
|
|
|
|
then
|
|
|
|
|
then
|
|
|
|
|
dup PAD-ON PAD-OFF handle-onoff
|
|
|
|
|
PAD-ON handle-link |; listener! ;
|
|
|
|
|
|
|
|
|
|
3 1 door d1
|
|
|
|
|
17 1 door d2
|
|
|
|
|
4 11 door d3
|
|
|
|
|
10 9 door d4
|
|
|
|
|
|
|
|
|
|
1234 ' d1 3 2 keypad k1
|
|
|
|
|
-1 ' d2 17 2 keypad k2 ( must be hacked )
|
|
|
|
|
3456 ' d3 4 10 keypad k3
|
|
|
|
|
|
|
|
|
|
LEV_END 13 12 exitdoor dx
|
|
|
|
|
' dx 14 12 scanner sx
|
|
|
|
|
|
|
|
|
|
:noname O
|
2020-03-25 03:46:09 +00:00
|
|
|
5 1 tile>world Jaye entity.pos!
|
|
|
|
|
4 0 tile>world Neut entity.pos!
|
|
|
|
|
with-gord
|
|
|
|
|
; ' onload redefine
|
