ending screen!

end.jor

@@ -1,9 +1,26 @@
 ( E N D )
 
-:noname
-  s" end.map" load-map
-  7 11 tile>world Jaye entity.pos!
-  6 12 tile>world Neut entity.pos!
-  with-gord
+: line" [ ' s" , ] :| 20 center 10 texty +! |; , ; immediate
+: end-tick
+  fuck s" endep1" loadscr
+  ^ENTER wait-key
+  WHITE text-color !
+  35 15 2 10 box
+  20 texty ! 4 textleft !
+  line" Jaye and Gord have found their"
+  line" way to the elevator!"
+  line" But have they found their way"
+  line" to freedom?"
+  line" Are there others in the building"
+  line" in need of help?"
+  line" And what fates awaits Neut and"
+  line" their shifty new friend Libb?"
+  10 texty +!
+  line" Register today to find out!!"
+  ^ENTER wait-key
+  quit ;
 
+:noname
+  ' noop ' draw redefine
+  ' end-tick ' tick redefine
 ; ' onload redefine

game.jor

@@ -27,8 +27,6 @@ var player.prevdir
 32 const GORDSIT userword
 64 const HASLIBB userword
 
-1 player.state HASNEUT f!
-
 : noclip player.state NOCLIP fnot! ; userword
 
 var posessed-rexx
@@ -483,6 +481,8 @@ Gord @ const gord-listener
 : chain-gord-listener gord-listener execute ;
 
 :noname
+  HASNEUT player.state !
+  human-view
   0 objects ! 0 ticking-objects ! 0 visible-objects !
   Gord gord-listener listener!
   ' noop ' on-gord-sit redefine

jorth.h

@@ -1,7 +1,7 @@
 
 #include <stdio.h>
 
-#define MEM_SIZE 32768
+#define MEM_SIZE 33792
 #define STACK_SIZE 64
 #define RSTACK_SIZE 64
 

title.jor

@@ -17,18 +17,21 @@
 : strlen ( s -- n ) 0 swap begin dup b@ while 1 + swap 1 + swap repeat drop ;
 : titles ( s -- ) begin dup b@ dup while titlec 1 + repeat drop drop ;
 : optionbg ( c -- ) dup 10 textx ! titlec 27 textx ! titlec ;
-: option ( s -- ) dup strlen 1 >> 19 swap - textx ! titles ;
+: center ( s dx ) over strlen 1 >> - textx ! titles ;
+: option ( s -- ) 19 center ;
 
 intern save.sav
 
 var savedlevel
+defer redraw-menu
+: show-title-bg s" title" loadscr ;
+: startgame ( n -- ) show-title-bg s" start.jor" loadjor ;
+: help s" help" loadscr ^ENTER wait-key show-title-bg redraw-menu ;
 
-: startgame ( n -- ) s" title" loadscr s" start.jor" loadjor ;
 : menu-opts
   s" New Game" :| 1 startgame |; yield
   s" Continue" savedlevel @ if :| savedlevel @ startgame |; else 0 then yield
-  s" Help" 0 yield
-  s" Register" 0 yield
+  s" Help" ' help yield
   s" Quit" ' quit yield
   done ;
 var menu-selected
@@ -42,7 +45,7 @@ var menu-selected
     dup menu-selected @ = if 15 else sp then optionbg
     1 +
   more drop ;
-: redraw-menu WHITE text-color ! 21 11 8 72 box draw-menu ;
+:noname WHITE text-color ! 21 9 8 72 box draw-menu ; ' redraw-menu redefine
 
 : exec-selected 0 menu-opts each swap drop
     over menu-selected @ = if
@@ -55,7 +58,7 @@ var menu-selected
 
 :noname
   save.sav open fget close savedlevel !
-  fuck 0 split-screen s" title" loadscr redraw-menu
+  fuck 0 split-screen show-title-bg redraw-menu
   :| ^ENTER key-pressed if exec-selected then
      ^UP    key-pressed if -1 menu-select then
      ^DOWN  key-pressed if  1 menu-select then