more dumb cheats

cheat.jor

@@ -12,6 +12,7 @@
     0 r@ !
   then rdrop ;
 
+' noclip cheat NTSPISPOPD
 :noname :|
    disk :|
      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 6" :| hide-footer 6 queue-level |; yield
    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
 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
   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

defs.jor

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

entity.jor

@@ -96,6 +96,8 @@ array frames
   create b, dup b, 0 for b, next
   does> ( dir a -- ) swap drop lookup-frame ;
 
+var neut-chuck
+
 -1 defsingle {blank}
 0 defsingle {gord-floor}
 1 defsingle {gord-sit}
@@ -104,11 +106,13 @@ array frames
 2 defstatic {jaye-stand}
 2 3 2 5 defanim {jaye-walk}
 4 defstatic {duck}
-13 14 2 5 defmulti {neut}
+13 14 2 5 defmulti {neut-real}
 19 20 2 5 defmulti {libb}
 5 defstatic {rexx}
+21 defsingle {chuck}
+: {neut} neut-chuck @ if {chuck} else {neut-real} then ;
 
 : 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
   then ;

footer.jor

@@ -111,7 +111,8 @@ var cchoose
 : character ( iportrait color ) create , ,
   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
 3 LBLUE character jaye userword
 5 CYAN character gord userword
@@ -119,6 +120,7 @@ var cchoose
 4 LGREEN character term userword
 8 RED character libb 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
   8 portraity 16 portraity 24 portraity 32 portraity ; userword

game.jor

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

testbed.c

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