diff --git a/boot.jim b/boot.jim index 41bafc2..7b334ac 100755 Binary files a/boot.jim and b/boot.jim differ diff --git a/debug.jim b/debug.jim index 74576c5..2fa93e3 100755 Binary files a/debug.jim and b/debug.jim differ diff --git a/defs.jim b/defs.jim index 808ed19..77009d4 100755 Binary files a/defs.jim and b/defs.jim differ diff --git a/end.jim b/end.jim new file mode 100755 index 0000000..19fdf50 Binary files /dev/null and b/end.jim differ diff --git a/end.jor b/end.jor index 8fcc862..af9e872 100755 --- a/end.jor +++ b/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 diff --git a/endep1.gfx b/endep1.gfx new file mode 100755 index 0000000..fa322cb Binary files /dev/null and b/endep1.gfx differ diff --git a/endep1.tif b/endep1.tif new file mode 100755 index 0000000..64f842a Binary files /dev/null and b/endep1.tif differ diff --git a/entity.jim b/entity.jim index a10f837..8e559b3 100755 Binary files a/entity.jim and b/entity.jim differ diff --git a/footer.jim b/footer.jim index 0a7a55d..a4dec03 100755 Binary files a/footer.jim and b/footer.jim differ diff --git a/game.jim b/game.jim index 55e9890..cf4d8fb 100755 Binary files a/game.jim and b/game.jim differ diff --git a/game.jor b/game.jor index 7cb2af5..4574162 100755 --- a/game.jor +++ b/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 diff --git a/help.gfx b/help.gfx new file mode 100755 index 0000000..4a4b37e Binary files /dev/null and b/help.gfx differ diff --git a/help.tif b/help.tif new file mode 100755 index 0000000..ae4543b Binary files /dev/null and b/help.tif differ diff --git a/input.jim b/input.jim index 9298ae5..91b9ec3 100755 Binary files a/input.jim and b/input.jim differ diff --git a/jiles.jim b/jiles.jim index cdbc1e6..d2cc609 100755 Binary files a/jiles.jim and b/jiles.jim differ diff --git a/job.jim b/job.jim index 545a3e0..cbb34c6 100755 Binary files a/job.jim and b/job.jim differ diff --git a/jorth.h b/jorth.h index 6e9353f..c386d4c 100755 --- a/jorth.h +++ b/jorth.h @@ -1,7 +1,7 @@ #include -#define MEM_SIZE 32768 +#define MEM_SIZE 33792 #define STACK_SIZE 64 #define RSTACK_SIZE 64 diff --git a/lev00001.jim b/lev00001.jim index 9064921..8dd1ee3 100755 Binary files a/lev00001.jim and b/lev00001.jim differ diff --git a/lev00002.jim b/lev00002.jim index a4d10c0..d505077 100755 Binary files a/lev00002.jim and b/lev00002.jim differ diff --git a/lev00003.jim b/lev00003.jim index a97521b..c5ab01b 100755 Binary files a/lev00003.jim and b/lev00003.jim differ diff --git a/lev00004.jim b/lev00004.jim index 70f2b34..734163e 100755 Binary files a/lev00004.jim and b/lev00004.jim differ diff --git a/lev00005.jim b/lev00005.jim index acab31f..bdca3df 100755 Binary files a/lev00005.jim and b/lev00005.jim differ diff --git a/lev00006.jim b/lev00006.jim index 7869717..bec9ccb 100755 Binary files a/lev00006.jim and b/lev00006.jim differ diff --git a/level.jim b/level.jim index 32aa762..8f49fef 100755 Binary files a/level.jim and b/level.jim differ diff --git a/map.jim b/map.jim index 1436861..5224eae 100755 Binary files a/map.jim and b/map.jim differ diff --git a/neuttowr.exe b/neuttowr.exe index 4bf375c..e7d5b68 100755 Binary files a/neuttowr.exe and b/neuttowr.exe differ diff --git a/neuttowr.prj b/neuttowr.prj index 897ed73..b5277a5 100755 Binary files a/neuttowr.prj and b/neuttowr.prj differ diff --git a/save.sav b/save.sav new file mode 100755 index 0000000..ac7ac5f Binary files /dev/null and b/save.sav differ diff --git a/state.jim b/state.jim index b3514c4..98ce09e 100755 Binary files a/state.jim and b/state.jim differ diff --git a/timer.jim b/timer.jim index e3c9c62..fa15999 100755 Binary files a/timer.jim and b/timer.jim differ diff --git a/title.jim b/title.jim index 67a41d2..77e6864 100755 Binary files a/title.jim and b/title.jim differ diff --git a/title.jor b/title.jor index 4ff5934..8ca0e08 100755 --- a/title.jor +++ b/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