title & nag screen, some level 5 tweaks

gameboot.jor

@@ -1,7 +1,7 @@
 : blah ' seremit task-emit ! ;
 blah
 
-1 const DEV
+0 const DEV
 
 : devon 1 ' DEV redefine ;
 
@@ -43,3 +43,4 @@ intern end.jor
 
 lev00005.jor loadlevel
 
+draw unfuck load-footer

lev00005.jor

@@ -78,18 +78,25 @@ d2 :noname
   if
     move-player
     W mr
+    1 glitchlevel !
     rexx say" daaAiisSyyy, daAAIIsYY..." hide-footer
+    2 glitchlevel !
     W mr
     W mr
     rexx say" gIVe mE YOur AnSwerR\doOO0OO0o0oooOO..." hide-footer
     N mr
     N mr
+    4 glitchlevel !
+    1 quaking !
     rexx say" uh oh" hide-footer
     Rexx entity>pos world>tile -1 -1 +pos
     dup 3 + for dup over 3 + i >rot for i over ( x y )
       tile randomrubble swap b! invalidate-map 1 sleep
     next drop next drop
     -100 -100 Rexx entity.pos!
+    0 glitchlevel !
+    5 sleep
+    0 quaking !
     drop EVNOP
   then chain-listener ;
 

neutnag.bin

@@ -0,0 +1 @@
+         ßßÛÛÜÜ                           ÜÜÛÛÜ                                                                              ßßß                                   ²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x       ²x²x xú úú úú úCpÿpApÿpNpÿp'p pTpÿpÿpÿpGpÿpEpÿpTpÿpÿpÿpEpÿpNpÿpOpÿpUpÿpGpÿpHpÿpÿpÿpNpÿpEpÿpUpÿpTpÿpÿpÿpTpÿpOpÿpWpÿpEpÿpRpÿp?p xú xú xú x²x²x       ²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x       ²x²x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x²x²x    ÜÛܲx²x x xOqKq,q qsqoq qyqoquq'qvqeq qsqoqlqvqeqdq qtqhqeq qfqiqrqsqtq qfqlqoqoqrq qaqnqdq qmqaqdqeq qyqoquqrq qwqaqyq qtqoq qsqaqfqeqtqyq x x x²x²x    ß  ²x²x x xfqoqrq qnqoqwq.qÿqBquqtq qtqhqeqrqeq qaqrqeq qmqoqrqeq qmqiqnqdq-qbqeqnqdqiqnqgq qfqlqoqoqrqsq qtqoq qcqlqeqaqrq quqnqtqiqlq q q q x x²x²x ÜÜÛ   ²x²x x xJqaqyqeq,q qGqoqrqdq qaqnqdq qNqequqtq qaqrqeq qaqbqlqeq qtqoq qeqsqcqaqpqeq qtqhqeq qtqoqwqeqrq qaqnqdq qmqaqkqeq qtqhqeqiqrq x x x x²x²x  ß    ²x²x x xwqaqyq qtqoq qfqrqeqeqdqoqmq.q qR±e±g±i±s±t±e±r± ±t±o±d±a±y± qtqoq qrqeqcqeqiqvqeq qtqwqoq qmqoqrqeq qeqpqiqsqoqdqeqsq qfqiqlqlqeqdq x²x²x       ²x²x x xtqoq qtqhqeq qbqrqiqmq qwqiqtqhq qmqoqrqeq qtqrqiqcqkqsq,q qtqrqaqpqsq,q qaqnqdq qsquqrqpqrqiqsqeqsq!q x x x x x x x x x x x x x x x x²x²x       ²x²x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x²x²x       ²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x       ²x²x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x²x²x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x x²x²x       ²x²x x xPslsesassses ssspsescsisfsys swshsestshsesrs sysosus x x x²x²x x x tStEtEtÿtOtRtDtEtRtItNtGt.tTtXtTtÿtFtOtRtÿtDtEtTtAtItLtSt!t x x x x²x²x       ²x²x x xrsesqsusisrses sas s3s.s5s"s sosrs s5s.s2s5s"s x x x x x x²x²x x t tYtotut tdtotnt'ttt twtatnttt tttot tmtitstst totuttt totnt x x x x²x²x       ²x²x x xfslsospspsys swshsesns sysosus sssesnsds sisns sysosusrs x²x²x x x xtthtet tntetxttt tetxtctitttitntgt tetptitstotdtetst:t p p p p x x²x²x       ²x²x x xrsesgsissstsrsastsisosns sfseses!s x x x x x x x x x x x x²x²x x x p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p p x x²x²xÛÜÜ    ²x²x x x x xß     x x x x x x x x x x x xßpÛpÛpÛpÛp x x x x x²x²x x x x 1E1P1I1S1O1D1E1ÿ121:1ÿ1T1H1E1ÿ1L1E1A1N1I1N1G1ÿ1T1O1W1E1R1 1Üp x x²x²x       ²x²x x x x xÛqÜÜÜÛq x x x?{?s?{?s?{ x x x xÛpÛpÜpÛpÛp x x x x x²x²x x x x 1E1P1I1S1O1D1E1ÿ131:1ÿ1T1H1E1ÿ1I1-1F1E1L1L1ÿ1T1O1W1E1R1?1 1Ûp x x²x²x       ²x²x x x x xßqßßqßßq x x x x x x x x x x x xßpßpßxßpßp x x x x x²x²x x x x xßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßpßp x x²x²x       ²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x²x              ÜÜÜ                                 ÜÜ                                           ßßß                              ßßßßß                                                                                                               

testbed.c

@@ -1,5 +1,6 @@
 #include <stdio.h>
 #include <stdlib.h>
+#include <conio.h>
 #include <dos.h>
 #include <alloc.h>
 #include <ctype.h>
@@ -172,6 +173,14 @@ void f_reloadportraits() {
   blitMemToVid(OFF_PORTRAITS, portraits, PORTRAIT_STRIDE >> 2, NUM_PORTRAITS);
 }
 
+void shownag() {
+  FILE *f;
+  vid_cleanup();
+  f = fopen("NEUTNAG.BIN", "rb");
+  freadfar(f, MK_FP(0xb800, 0), 4000);
+  gotoxy(1, 24);
+}
+
 void game_init() {
   FILE *f;
   TifImageMeta_t meta;
@@ -181,16 +190,16 @@ void game_init() {
   mouse_init();
 
   setEGAMode();
-  atexit(vid_cleanup);
+  atexit(shownag);
 
   kbd_init();
   timer_init(TIMER_30HZ);
   text_init();
 
-  tile_init();
+  f = fopen("TITLE.TIF", "rb");
-  fillMap();
+  meta = tifLoadMeta(f);
-
+  tifLoadEGA(f, meta, 0, 200, 320);
-  f_load_footer();
+  fclose(f);
 
   f = fopen("sprite.gfx", "rb");
   freadfar(f, sprites, NUM_SPRITES * SPRITE_STRIDE * 2);
@@ -741,6 +750,7 @@ void do_repl(char *exe) {
 int main(int argc, char *argv[]) {
   cell tick, draw;
   char *bootjor = "gameboot.jor";
+
   if (argc > 1) {
     bootjor = argv[1];
   }