35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
|
: current-cheatchar ( p -- c )
|
||
|
|
dup @ swap cell + @ + b@ ;
|
||
|
|
: cheat create 0 , latest wordname , ,
|
||
|
|
does> ( c p -- )
|
||
|
|
>r r@ current-cheatchar = if
|
||
|
|
1 r@ +!
|
||
|
|
r@ current-cheatchar 0 = if
|
||
|
|
0 r@ !
|
||
|
|
r@ 2 cells + @ execute
|
||
|
|
then
|
||
|
|
else
|
||
|
|
0 r@ !
|
||
|
|
then rdrop ;
|
||
|
|
|
||
|
|
:noname :|
|
||
|
|
disk :|
|
||
|
|
s" I don't wanna cheat" ' noop yield
|
||
|
|
s" Jump to level 1" :| hide-footer 1 queue-level |; yield
|
||
|
|
s" Jump to level 2" :| hide-footer 2 queue-level |; yield
|
||
|
|
s" Jump to level 3" :| hide-footer 3 queue-level |; yield
|
||
|
|
s" Jump to level 4" :| hide-footer 4 queue-level |; yield
|
||
|
|
s" Jump to level 5" :| hide-footer 5 queue-level |; yield
|
||
|
|
s" Jump to level 6" :| hide-footer 6 queue-level |; yield
|
||
|
|
done |; choose
|
||
|
|
|; sched ; cheat NTCHEAT
|
||
|
|
|
||
|
|
array letterkeys
|
||
|
|
30 b, 48 b, 46 b, 32 b, 18 b, 33 b, 34 b, 35 b, 23 b, 36 b, 37 b, 38 b, 50 b,
|
||
|
|
49 b, 24 b, 25 b, 16 b, 19 b, 31 b, 20 b, 22 b, 47 b, 17 b, 45 b, 21 b, 44 b,
|
||
|
|
|
||
|
|
: letter-typed
|
||
|
|
0 0 26 for letterkeys i + b@ key-released if drop i 65 + then next ;
|
||
|
|
|
||
|
|
:noname letter-typed dup if NTCHEAT else drop then ; ' cheat-tick redefine
|