more dumb cheats

This commit is contained in:
Jeremy Penner 2020-09-06 14:54:08 -04:00
parent 3de0b6fb83
commit 886daf0463
34 changed files with 30 additions and 6 deletions

BIN
boot.jim

Binary file not shown.

BIN
cheat.jim

Binary file not shown.

View file

@ -12,6 +12,7 @@
0 r@ ! 0 r@ !
then rdrop ; then rdrop ;
' noclip cheat NTSPISPOPD
:noname :| :noname :|
disk :| disk :|
s" I don't wanna cheat" ' noop yield s" I don't wanna cheat" ' noop yield
@ -22,7 +23,15 @@
s" Jump to level 5" :| hide-footer 5 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 s" Jump to level 6" :| hide-footer 6 queue-level |; yield
done |; choose done |; choose
|; sched ; cheat NTCHEAT |; sched ; cheat NTXYZZY
:noname :|
neut-chuck @ not dup neut-chuck ! if
neut say" Chuck Mode enabled!\* W H I N N Y *"
else
neut say" Chuck Mode disabled.\Beep boop."
then
|; sched ; cheat NTCHUCK
array letterkeys 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, 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,
@ -31,4 +40,10 @@ array letterkeys
: letter-typed : letter-typed
0 0 26 for letterkeys i + b@ key-released if drop i 65 + then next ; 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 :noname
:| letter-typed dup if
dup NTSPISPOPD
dup NTCHUCK
dup NTXYZZY
then drop |; ' cheat-tick redefine
; ' onload redefine

BIN
debug.jim

Binary file not shown.

BIN
defs.jim

Binary file not shown.

View file

@ -128,8 +128,9 @@
: tasks.s : tasks.s
tasks links each tasks links each
dup .wordin s" : " type dup dup . .wordin s" : " type
dup task-sp @ over task-stack ( task stackLim stack ) dup task-sp @ over task-stack ( task stackLim stack )
2dup . . s" : " type
begin 2dup > while dup @ . cell + repeat begin 2dup > while dup @ . cell + repeat
cr drop drop more ; userword cr drop drop more ; userword

BIN
end.jim

Binary file not shown.

Binary file not shown.

View file

@ -96,6 +96,8 @@ array frames
create b, dup b, 0 for b, next create b, dup b, 0 for b, next
does> ( dir a -- ) swap drop lookup-frame ; does> ( dir a -- ) swap drop lookup-frame ;
var neut-chuck
-1 defsingle {blank} -1 defsingle {blank}
0 defsingle {gord-floor} 0 defsingle {gord-floor}
1 defsingle {gord-sit} 1 defsingle {gord-sit}
@ -104,11 +106,13 @@ array frames
2 defstatic {jaye-stand} 2 defstatic {jaye-stand}
2 3 2 5 defanim {jaye-walk} 2 3 2 5 defanim {jaye-walk}
4 defstatic {duck} 4 defstatic {duck}
13 14 2 5 defmulti {neut} 13 14 2 5 defmulti {neut-real}
19 20 2 5 defmulti {libb} 19 20 2 5 defmulti {libb}
5 defstatic {rexx} 5 defstatic {rexx}
21 defsingle {chuck}
: {neut} neut-chuck @ if {chuck} else {neut-real} then ;
: sprite-bob ( x y sprindex -- x y sprindex ) : sprite-bob ( x y sprindex -- x y sprindex )
dup 13 >= over 20 <= and if dup 13 >= over 21 <= and if
>rot 2dup + ticks + 40 % 20 < if 1 + then <rot >rot 2dup + ticks + 40 % 20 < if 1 + then <rot
then ; then ;

Binary file not shown.

View file

@ -111,7 +111,8 @@ var cchoose
: character ( iportrait color ) create , , : character ( iportrait color ) create , ,
does> dup @ text-color ! cell + @ draw-portrait ; does> dup @ text-color ! cell + @ draw-portrait ;
0 LGREEN character neut userword 0 LGREEN character neut-char
2 BROWN character chuck-char
1 YELLOW character rexx userword 1 YELLOW character rexx userword
3 LBLUE character jaye userword 3 LBLUE character jaye userword
5 CYAN character gord userword 5 CYAN character gord userword
@ -119,6 +120,7 @@ var cchoose
4 LGREEN character term userword 4 LGREEN character term userword
8 RED character libb userword 8 RED character libb userword
9 BLUE character disk userword 9 BLUE character disk userword
: neut neut-chuck @ if chuck-char else neut-char then ; userword
: noone WHITE text-color ! s" " dup dup dup : noone WHITE text-color ! s" " dup dup dup
8 portraity 16 portraity 24 portraity 32 portraity ; userword 8 portraity 16 portraity 24 portraity 32 portraity ; userword

BIN
game.jim

Binary file not shown.

View file

@ -293,6 +293,7 @@ var quaking
Jaye draw-entity Jaye draw-entity
player.state HASNEUT f@ if Neut draw-entity then player.state HASNEUT f@ if Neut draw-entity then
Libb entity-present? if Libb draw-entity then Libb entity-present? if Libb draw-entity then
visible-objects@ if visible-objects@ if
visible-objects@ links each dup obj-entity draw-entity more visible-objects@ links each dup obj-entity draw-entity more
then then

BIN
input.jim

Binary file not shown.

BIN
jiles.jim

Binary file not shown.

BIN
job.jim

Binary file not shown.

BIN
jopl.jim

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
level.jim

Binary file not shown.

BIN
map.jim

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
sound.jim

Binary file not shown.

Binary file not shown.

BIN
state.jim

Binary file not shown.

View file

@ -807,6 +807,7 @@ void f_paintbuf() {
void f_setedittarget() { void f_setedittarget() {
editTarget = TOP().i; editTarget = TOP().i;
DROP(1);
} }
void f_getedittarget() { void f_getedittarget() {

BIN
timer.jim

Binary file not shown.

BIN
title.jim

Binary file not shown.