wormedit 0.5.2103

diff --git a/wormedit.pas b/wormedit.pas
index 39aa846c00c495a83e18cfc8ed590928594e8032..d56ea6b94e003bc40d64848336e0c7c14cf15c95 100644 (file)
--- a/wormedit.pas
+++ b/wormedit.pas
@@ -37,15 +37,16 @@ TYPE ONELEVEL = RECORD
        END; {OBJ}
      END; {ONELEVEL}
 
        END; {OBJ}
      END; {ONELEVEL}
 

-CONST GAMETYPE:ARRAY[1..8]OF STRING[12] =
+CONST GAMETYPE:ARRAY[1..9]OF STRING[12] =

        ('SINGLEPLAYER','PEAWORM','TRON','DEATHMATCH',
        ('SINGLEPLAYER','PEAWORM','TRON','DEATHMATCH',

-        'FOODMATCH','TIMEMATCH','RACE','CTF');
+        'FOODMATCH','MULTIFOODM','TIMEMATCH','RACE','CTF');

 
       OBJTYPE:ARRAY[0..4]OF STRING[8] =
        ('NONE','LINE','FAT LINE','BAR','CIRCLE');
 
 
       OBJTYPE:ARRAY[0..4]OF STRING[8] =
        ('NONE','LINE','FAT LINE','BAR','CIRCLE');
 

-      ENDTYPE:ARRAY[0..1]OF STRING[8] =
-       ('NONE','MESSAGE');
+      ENDTYPES = 2;
+      ENDTYPE:ARRAY[0..ENDTYPES]OF STRING[12] =
+       ('NONE','MESSAGE','SMALLER MSG');

 
       HEAD86S:STRING[53] =
        ('**TI86**'+#$1A+#$A+#0+ {HEADER}
 
       HEAD86S:STRING[53] =
        ('**TI86**'+#$1A+#$A+#0+ {HEADER}


@@ -60,8 +61,8 @@ CONST GAMETYPE:ARRAY[1..8]OF STRING[12] =
        NAME:STRING[32];
        DESC:STRING[64];
        LSINGLE,LMULTI,LRACE,LCTF,LTOTAL:BYTE;
        NAME:STRING[32];
        DESC:STRING[64];
        LSINGLE,LMULTI,LRACE,LCTF,LTOTAL:BYTE;

-       LFROM:ARRAY[1..8]OF BYTE;
-       LTO:ARRAY[1..8]OF BYTE;
+       LFROM:ARRAY[1..9]OF BYTE;
+       LTO:ARRAY[1..9]OF BYTE;

        SPRSIZE:BYTE;
        SPRITE:ARRAY[1..8]OF BYTE;
        ENDTYPE:INTEGER;
        SPRSIZE:BYTE;
        SPRITE:ARRAY[1..8]OF BYTE;
        ENDTYPE:INTEGER;


@@ -74,15 +75,15 @@ CONST GAMETYPE:ARRAY[1..8]OF STRING[12] =
         NAME:'Custom Worm Level';
         DESC:'Not done yet. Obviously.';
         LSINGLE:0; LMULTI:0; LRACE:0; LCTF:0; LTOTAL:0;
         NAME:'Custom Worm Level';
         DESC:'Not done yet. Obviously.';
         LSINGLE:0; LMULTI:0; LRACE:0; LCTF:0; LTOTAL:0;

-        LFROM:(0,0,0,0,0,0,0,0);
-        LTO:(0,0,0,0,0,0,0,0);
+        LFROM:(0,0,0,0,0,0,0,0,0);
+        LTO:(0,0,0,0,0,0,0,0,0);

         SPRSIZE:4;
         SPRITE:(6*16,15*16,15*16,6*16,0,0,0,0);
           {01100000
            11110000
            11110000
            01100000}
         SPRSIZE:4;
         SPRITE:(6*16,15*16,15*16,6*16,0,0,0,0);
           {01100000
            11110000
            11110000
            01100000}

-        ENDTYPE:1;
+        ENDTYPE:0;

          ENDSTR:'';
         ENDDATA:#$C9;
         HINAME:'WOR');
          ENDSTR:'';
         ENDDATA:#$C9;
         HINAME:'WOR');


@@ -91,7 +92,7 @@ CONST GAMETYPE:ARRAY[1..8]OF STRING[12] =
       OBJPOS:BYTE = 1;
 
        C_BAR   = 15;
       OBJPOS:BYTE = 1;
 
        C_BAR   = 15;

-       CB_BAR  =  4;
+       CB_BAR  =  1;

        C_MENU  = 14;
        CB_TEXT =  0;
        C_TEXT  =  7;
        C_MENU  = 14;
        CB_TEXT =  0;
        C_TEXT  =  7;


@@ -118,7 +119,7 @@ VAR I,I2:WORD;
 
 PROCEDURE MAINTITLE;
 BEGIN
 
 PROCEDURE MAINTITLE;
 BEGIN

-  SETTEXT; SETPAL(3,44,44,32);
+  SETTEXT; SETPAL(3,44,44,32); SETPAL(1,42,0,0);

   WINDOW(1,1,80,25); TEXTBACKGROUND(CB_TEXT); CLRSCR;
   TEXTCOLOR(CB_BAR); WRITE('���������������������������<');
   TEXTCOLOR(14); WRITE(' WormEdit � ');
   WINDOW(1,1,80,25); TEXTBACKGROUND(CB_TEXT); CLRSCR;
   TEXTCOLOR(CB_BAR); WRITE('���������������������������<');
   TEXTCOLOR(14); WRITE(' WormEdit � ');


@@ -580,24 +581,30 @@ BEGIN
   FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(I,5);
 END; {SIZE OF LEVEL II}
 BEGIN
   FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(I,5);
 END; {SIZE OF LEVEL II}
 BEGIN

-  I:=$31+B.SPRSIZE+ORD(B.NAME[0])+ORD(B.DESC[0])+6;
-  IF B.LFROM[2]>0THEN I:=I+((1+B.LTO[2]-B.LFROM[2])*5); {HI_PW}
-  IF B.LFROM[3]>0THEN I:=I+((1+B.LTO[3]-B.LFROM[3])*5); {HI_TRON}
+  I:=B.SPRSIZE+1;

   IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO COMPLEVEL; {SP}
   IF B.LMULTI>0THEN FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO COMPLEVEL; {MP}
   IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO COMPLEVEL; {SP}
   IF B.LMULTI>0THEN FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO COMPLEVEL; {MP}

-  IF B.LFROM[7]>0THEN
-   FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7]DO COMPLEVEL; {RACE}

   IF B.LFROM[8]>0THEN
   IF B.LFROM[8]>0THEN

-   FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8]DO COMPLEVEL; {CTF}
+   FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]DO COMPLEVEL; {RACE}
+  IF B.LFROM[9]>0THEN
+   FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[9]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[9]DO COMPLEVEL; {CTF}

 
 {MAKE SP_END CODE}
   CASE B.ENDTYPE OF
 
 {MAKE SP_END CODE}
   CASE B.ENDTYPE OF

-    1:B.ENDDATA:=#$21+#$F4+#$00+#$C3+#$37+#$4A+#$CD+#$AA+#$55+B.ENDSTR;
-      {LD HL,MSG\JP _PUTS\.DB MSG}
+    1:B.ENDDATA:=#$21+CHR(LO($F40A+I))+CHR(HI($F40A+I))+#$CD+#$37+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
+      {LD HL,MSG\CALL _PUTS\JP _GETKEY\.DB MSG}
+    2:B.ENDDATA:=#$21+#0+#$1C+#$22+#$7C+#$C3+#$21+CHR(LO($F410+I))+CHR(HI($F410+I))
+      +#$CD+#$A5+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
+      {LD HL,X\LD (_PENCOL),HL\LD HL,MSG\CALL _VPUTS\JP _GETKEY\.DB MSG}

     ELSE B.ENDDATA:=#$C9; {RET}
   END; {ENDTYPE}
   INC(I,ORD(B.ENDDATA[0]));
 
     ELSE B.ENDDATA:=#$C9; {RET}
   END; {ENDTYPE}
   INC(I,ORD(B.ENDDATA[0]));
 

+  INC(I,$35+ORD(B.NAME[0])+ORD(B.DESC[0]));
+  IF B.LFROM[1]>0THEN INC(I,5); {HI_SP}
+  IF B.LFROM[2]>0THEN I:=I+((1+B.LTO[2]-B.LFROM[2])*5); {HI_PW}
+  IF B.LFROM[3]>0THEN I:=I+((1+B.LTO[3]-B.LFROM[3])*5); {HI_TRON}
+

   COMPSIZE:=I;
 END; {COMPSIZE}
 
   COMPSIZE:=I;
 END; {COMPSIZE}
 


@@ -701,31 +708,31 @@ BEGIN
     TEXTCOLOR(C_TEXT); WRITE(': SINGLEPLAYER ');
     TEXTCOLOR(C_VALUE); IF(B.LSINGLE=0)OR(B.LFROM[1]=0)THEN WRITELN('(NO LEVELS)')
       ELSE WRITELN('(',B.LTO[1]-B.LFROM[1]+1,' OF ',B.LSINGLE,')');
     TEXTCOLOR(C_TEXT); WRITE(': SINGLEPLAYER ');
     TEXTCOLOR(C_VALUE); IF(B.LSINGLE=0)OR(B.LFROM[1]=0)THEN WRITELN('(NO LEVELS)')
       ELSE WRITELN('(',B.LTO[1]-B.LFROM[1]+1,' OF ',B.LSINGLE,')');

-    FOR II:=2TO 6DO BEGIN
+    FOR II:=2TO 7DO BEGIN

       TEXTCOLOR(C_MENU); WRITE(II); TEXTCOLOR(C_TEXT); WRITE(': '+GAMETYPE[II],' ');
       TEXTCOLOR(C_VALUE); IF B.LFROM[II]=0THEN WRITELN('(NO LEVELS)')
         ELSE WRITELN('(',B.LFROM[II],'-',B.LTO[II],')');
     END; {MULTIP}
       TEXTCOLOR(C_MENU); WRITE(II); TEXTCOLOR(C_TEXT); WRITE(': '+GAMETYPE[II],' ');
       TEXTCOLOR(C_VALUE); IF B.LFROM[II]=0THEN WRITELN('(NO LEVELS)')
         ELSE WRITELN('(',B.LFROM[II],'-',B.LTO[II],')');
     END; {MULTIP}

-    TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITE(': RACE '); TEXTCOLOR(C_VALUE);
-    IF B.LFROM[7]=0THEN WRITELN('(NO LEVELS)')ELSE WRITELN('(',B.LTO[7]-B.LFROM[7]+1,' OF ',B.LRACE,')');
-    TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITE(': CTF '); TEXTCOLOR(C_VALUE);
-    IF B.LFROM[8]=0THEN WRITE('(NO LEVELS)')ELSE WRITE('(',B.LTO[8]-B.LFROM[8]+1,' OF ',B.LCTF,')');
+    TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITE(': RACE '); TEXTCOLOR(C_VALUE);
+    IF B.LFROM[8]=0THEN WRITELN('(NO LEVELS)')ELSE WRITELN('(',B.LTO[8]-B.LFROM[8]+1,' OF ',B.LRACE,')');
+    TEXTCOLOR(C_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITE(': CTF '); TEXTCOLOR(C_VALUE);
+    IF B.LFROM[9]=0THEN WRITE('(NO LEVELS)')ELSE WRITE('(',B.LTO[9]-B.LFROM[9]+1,' OF ',B.LCTF,')');

 
 

-    III:=EDITMENU(8,5);
+    III:=EDITMENU(9,5);

     IF III=1THEN BEGIN
       B.LFROM[1]:=INPUTINT('ENTER LEVELS TO SKIP','USE THIS TO TEMPORARILY REMOVE THE FIRSTFEW LEVELS',
        0,0,MAX(0,B.LSINGLE-1)); INC(B.LFROM[1]);
       B.LTO[1]:=INPUTINT('ENTER LEVELS SELECTABLE','THE HIGHEST LEVEL SOMEONE CAN START IN  WITHOUT PLAYING IT EARLIER',
        0,1,B.LSINGLE+1-B.LFROM[1]);
       IF B.LTO[1]=0THEN B.LFROM[1]:=0 ELSE B.LTO[1]:=B.LTO[1]+B.LFROM[1]-1;
     IF III=1THEN BEGIN
       B.LFROM[1]:=INPUTINT('ENTER LEVELS TO SKIP','USE THIS TO TEMPORARILY REMOVE THE FIRSTFEW LEVELS',
        0,0,MAX(0,B.LSINGLE-1)); INC(B.LFROM[1]);
       B.LTO[1]:=INPUTINT('ENTER LEVELS SELECTABLE','THE HIGHEST LEVEL SOMEONE CAN START IN  WITHOUT PLAYING IT EARLIER',
        0,1,B.LSINGLE+1-B.LFROM[1]);
       IF B.LTO[1]=0THEN B.LFROM[1]:=0 ELSE B.LTO[1]:=B.LTO[1]+B.LFROM[1]-1;

-    END {SINGLEPLAYER} ELSE IF III=7THEN BEGIN
-      B.LFROM[7]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LRACE);
-      IF B.LFROM[7]>0THEN
-        B.LTO[7]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[7],B.LRACE,B.LRACE);
-    END {RACE} ELSE IF III=8THEN BEGIN
-      B.LFROM[8]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LCTF);
+    END {SINGLEPLAYER} ELSE IF III=8THEN BEGIN
+      B.LFROM[8]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LRACE);

       IF B.LFROM[8]>0THEN
       IF B.LFROM[8]>0THEN

-        B.LTO[8]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[8],B.LCTF,B.LCTF);
+        B.LTO[8]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[8],B.LRACE,B.LRACE);
+    END {RACE} ELSE IF III=8THEN BEGIN
+      B.LFROM[9]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LCTF);
+      IF B.LFROM[9]>0THEN
+        B.LTO[9]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[9],B.LCTF,B.LCTF);

     END {CTF} ELSE IF III>0THEN BEGIN
       B.LFROM[III]:=INPUTINT('ENTER NEW STARTING LEVEL',
        'THAT LEVEL WILL BE LEVEL #1 IN GAMEMODE '+GAMETYPE[III]+'. 0=NO LEVELS',0,1,B.LMULTI);
     END {CTF} ELSE IF III>0THEN BEGIN
       B.LFROM[III]:=INPUTINT('ENTER NEW STARTING LEVEL',
        'THAT LEVEL WILL BE LEVEL #1 IN GAMEMODE '+GAMETYPE[III]+'. 0=NO LEVELS',0,1,B.LMULTI);


@@ -1191,14 +1198,14 @@ BEGIN
                IF I<=B.LMULTI+B.LSINGLE+B.LRACE THEN DEC(B.LRACE)ELSE
                  DEC(B.LCTF);
            DEC(B.LTOTAL); FOR I:=II TO B.LTOTAL DO L[I]:=L[I+1];
                IF I<=B.LMULTI+B.LSINGLE+B.LRACE THEN DEC(B.LRACE)ELSE
                  DEC(B.LCTF);
            DEC(B.LTOTAL); FOR I:=II TO B.LTOTAL DO L[I]:=L[I+1];

-           FOR I:=2TO 6DO BEGIN
+           FOR I:=2TO 7DO BEGIN

              IF B.LTO[I]>B.LMULTI THEN B.LTO[I]:=B.LMULTI;
              IF B.LFROM[I]>B.LTO[I]THEN B.LFROM[I]:=B.LTO[I];
             END; {CHECK}
              IF B.LTO[I]>B.LMULTI THEN B.LTO[I]:=B.LMULTI;
              IF B.LFROM[I]>B.LTO[I]THEN B.LFROM[I]:=B.LTO[I];
             END; {CHECK}

-            IF B.LTO[7]>B.LMULTI+B.LRACE THEN B.LTO[7]:=B.LMULTI+B.LRACE;
-            IF B.LFROM[7]>B.LTO[7]THEN B.LFROM[7]:=B.LTO[7];
-            IF B.LTO[8]>B.LTOTAL THEN B.LTO[8]:=B.LTOTAL;
+            IF B.LTO[8]>B.LMULTI+B.LRACE THEN B.LTO[8]:=B.LMULTI+B.LRACE;

             IF B.LFROM[8]>B.LTO[8]THEN B.LFROM[8]:=B.LTO[8];
             IF B.LFROM[8]>B.LTO[8]THEN B.LFROM[8]:=B.LTO[8];

+            IF B.LTO[9]>B.LTOTAL THEN B.LTO[9]:=B.LTOTAL;
+            IF B.LFROM[9]>B.LTO[9]THEN B.LFROM[9]:=B.LTO[9];

          END; {CONFIRMED}
        END; {}
       END; {DELETE}
          END; {CONFIRMED}
        END; {}
       END; {DELETE}


@@ -1213,7 +1220,7 @@ BEGIN
        EDITLEVEL;
       END; {CREATE SP}
       6:BEGIN
        EDITLEVEL;
       END; {CREATE SP}
       6:BEGIN

-        FOR I:=2TO 6DO IF B.LTO[I]=B.LMULTI THEN BEGIN
+        FOR I:=2TO 7DO IF B.LTO[I]=B.LMULTI THEN BEGIN

          INC(B.LTO[I]); IF B.LFROM[I]=0THEN INC(B.LFROM[I]);
         END; {}
        INC(B.LTOTAL); INC(B.LMULTI); II:=B.LSINGLE+B.LMULTI;
          INC(B.LTO[I]); IF B.LFROM[I]=0THEN INC(B.LFROM[I]);
         END; {}
        INC(B.LTOTAL); INC(B.LMULTI); II:=B.LSINGLE+B.LMULTI;


@@ -1230,7 +1237,7 @@ BEGIN
       7:BEGIN
        INC(B.LRACE); INC(B.LTOTAL); II:=B.LSINGLE+B.LMULTI+B.LRACE;
        FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1];
       7:BEGIN
        INC(B.LRACE); INC(B.LTOTAL); II:=B.LSINGLE+B.LMULTI+B.LRACE;
        FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1];

-        INC(B.LTO[7]); IF B.LFROM[7]=0THEN INC(B.LFROM[7]);
+        INC(B.LTO[8]); IF B.LFROM[8]=0THEN INC(B.LFROM[8]);

        L[II].ID:='Track #'+NR(II); L[II].NAME:=ZERO(B.LRACE,2);
        L[II].DELAY:=8; L[II].GROWTH:=15;
        L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;
        L[II].ID:='Track #'+NR(II); L[II].NAME:=ZERO(B.LRACE,2);
        L[II].DELAY:=8; L[II].GROWTH:=15;
        L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;


@@ -1244,7 +1251,7 @@ BEGIN
       END; {CREATE RACE}
       8:BEGIN
        INC(B.LCTF); INC(B.LTOTAL); II:=B.LTOTAL;
       END; {CREATE RACE}
       8:BEGIN
        INC(B.LCTF); INC(B.LTOTAL); II:=B.LTOTAL;

-        INC(B.LTO[8]); IF B.LFROM[8]=0THEN INC(B.LFROM[8]);
+        INC(B.LTO[9]); IF B.LFROM[9]=0THEN INC(B.LFROM[9]);

        L[II].ID:='Field #'+NR(II); L[II].NAME:=ZERO(B.LCTF,2);
        L[II].DELAY:=5; L[II].GROWTH:=15;
        L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;
        L[II].ID:='Field #'+NR(II); L[II].NAME:=ZERO(B.LCTF,2);
        L[II].DELAY:=5; L[II].GROWTH:=15;
        L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;


@@ -1274,7 +1281,7 @@ BEGIN
     TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': END TYPE ');
       TEXTCOLOR(C_VALUE); WRITELN('(',ENDTYPE[B.ENDTYPE],')');
     CASE B.ENDTYPE OF
     TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': END TYPE ');
       TEXTCOLOR(C_VALUE); WRITELN('(',ENDTYPE[B.ENDTYPE],')');
     CASE B.ENDTYPE OF

-      1:BEGIN
+      1,2:BEGIN

         TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITE(': EDIT MESSAGE ');
         TEXTCOLOR(C_VALUE); WRITE('(',COPY(B.ENDSTR,1,18));
         IF LENGTH(B.ENDSTR)>18THEN WRITELN('...)')ELSE WRITELN(')');
         TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITE(': EDIT MESSAGE ');
         TEXTCOLOR(C_VALUE); WRITE('(',COPY(B.ENDSTR,1,18));
         IF LENGTH(B.ENDSTR)>18THEN WRITELN('...)')ELSE WRITELN(')');


@@ -1296,12 +1303,13 @@ BEGIN
         FOR I:=1TO 3DO B.HINAME[I]:=S[I];
       END; {HINAME}
       2:BEGIN
         FOR I:=1TO 3DO B.HINAME[I]:=S[I];
       END; {HINAME}
       2:BEGIN

-       FOR II:=0TO 1DO WRITE(NR(II)+': '+ENDTYPE[II]+CC(' ',40-ORD(ENDTYPE[II,0])));
-       B.ENDTYPE:=INPUTINT('ENTER NEW END TYPE',S,0,0,1);
-       IF B.ENDTYPE=1THEN B.ENDSTR:='Congratulations!!';
+       S:='';
+       FOR II:=0TO ENDTYPES DO S:=S+(NR(II)+': '+ENDTYPE[II]+CC(' ',37-ORD(ENDTYPE[II,0])));
+       B.ENDTYPE:=INPUTINT('ENTER NEW END TYPE',S,0,0,ENDTYPES);
+       IF B.ENDTYPE>0THEN B.ENDSTR:='Congratulations!!';

       END; {ENDTYPE}
       3:BEGIN
       END; {ENDTYPE}
       3:BEGIN

-        IF B.ENDTYPE=1THEN
+        IF B.ENDTYPE>0THEN

          B.ENDSTR:=INPUTSTR('ENTER NEW END MESSAGE','MAX 255 CHARS','Congratulations!!',255);
       END; {ENDCONF}
       4:BEGIN
          B.ENDSTR:=INPUTSTR('ENTER NEW END MESSAGE','MAX 255 CHARS','Congratulations!!',255);
       END; {ENDCONF}
       4:BEGIN


@@ -1418,13 +1426,13 @@ BEGIN
   I:=0; BLOCKWRITE(FF,B.NAME[1],ORD(B.NAME[0])); {TITLE}
   BLOCKWRITE(FF,I,1); {STRING TERMINATOR #0}
   BLOCKWRITE(FF,B.DESC[1],ORD(B.DESC[0])); {DESCRIPTION} BLOCKWRITE(FF,I,1);
   I:=0; BLOCKWRITE(FF,B.NAME[1],ORD(B.NAME[0])); {TITLE}
   BLOCKWRITE(FF,I,1); {STRING TERMINATOR #0}
   BLOCKWRITE(FF,B.DESC[1],ORD(B.DESC[0])); {DESCRIPTION} BLOCKWRITE(FF,I,1);

-  I:=1+B.SPRSIZE+2;
+  I:=1+B.SPRSIZE+ORD(B.ENDDATA[0])+1;

   FOR II:=B.LFROM[1]TO B.LSINGLE+B.LMULTI DO I:=I+L[II].SIZE;
   FOR II:=B.LFROM[1]TO B.LSINGLE+B.LMULTI DO I:=I+L[II].SIZE;

-  IF B.LFROM[7]>0THEN {RACE LEVELS}
-    FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7]
+  IF B.LFROM[8]>0THEN {RACE LEVELS}
+    FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]

      DO I:=I+L[II].SIZE;
      DO I:=I+L[II].SIZE;

-  IF B.LFROM[8]>0THEN {CTF LEVELS}
-    FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8]
+  IF B.LFROM[9]>0THEN {CTF LEVELS}
+    FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[9]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[9]

      DO I:=I+L[II].SIZE;
   BLOCKWRITE(FF,I,2); {SIZE}
 
      DO I:=I+L[II].SIZE;
   BLOCKWRITE(FF,I,2); {SIZE}
 


@@ -1432,7 +1440,7 @@ BEGIN
   IF B.LSINGLE=0THEN BLOCKWRITE(FF,I2,2)ELSE BEGIN
     BLOCKWRITE(FF,I,2); FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE);
   END; {SINGLLVLS} INC(I,1+ORD(B.ENDDATA[0]));
   IF B.LSINGLE=0THEN BLOCKWRITE(FF,I2,2)ELSE BEGIN
     BLOCKWRITE(FF,I,2); FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE);
   END; {SINGLLVLS} INC(I,1+ORD(B.ENDDATA[0]));

-  ISTACK:=I; FOR II:=2TO 6DO BEGIN
+  ISTACK:=I; FOR II:=2TO 7DO BEGIN

     I:=ISTACK; IF B.LFROM[II]=0THEN I:=0 ELSE
       FOR III:=B.LSINGLE TO B.LSINGLE+B.LFROM[II]-2DO
        INC(I,L[III].SIZE);
     I:=ISTACK; IF B.LFROM[II]=0THEN I:=0 ELSE
       FOR III:=B.LSINGLE TO B.LSINGLE+B.LFROM[II]-2DO
        INC(I,L[III].SIZE);


@@ -1443,10 +1451,11 @@ BEGIN
   FOR II:=B.LSINGLE+B.LMULTI+1TO B.LSINGLE+B.LMULTI+B.LRACE DO INC(ISTACK,L[II].SIZE);
   IF B.LCTF=0THEN BLOCKWRITE(FF,I,2)ELSE BLOCKWRITE(FF,ISTACK,2);
 
   FOR II:=B.LSINGLE+B.LMULTI+1TO B.LSINGLE+B.LMULTI+B.LRACE DO INC(ISTACK,L[II].SIZE);
   IF B.LCTF=0THEN BLOCKWRITE(FF,I,2)ELSE BLOCKWRITE(FF,ISTACK,2);
 

-  FOR II:=1TO 8DO BEGIN
+  FOR II:=1TO 9DO BEGIN

     IF B.LFROM[II]=0THEN I:=0 ELSE I:=B.LTO[II]-B.LFROM[II]+1;
     BLOCKWRITE(FF,I,1);
   END; {NR}
     IF B.LFROM[II]=0THEN I:=0 ELSE I:=B.LTO[II]-B.LFROM[II]+1;
     BLOCKWRITE(FF,I,1);
   END; {NR}

+  I:=42; BLOCKWRITE(FF,I,1); {UNUSED}

 
   BLOCKWRITE(FF,B.SPRSIZE,1);
   BLOCKWRITE(FF,B.SPRITE,B.SPRSIZE);
 
   BLOCKWRITE(FF,B.SPRSIZE,1);
   BLOCKWRITE(FF,B.SPRITE,B.SPRSIZE);


@@ -1459,15 +1468,16 @@ BEGIN
   IF B.LMULTI>0THEN
     FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO SAVELEVEL(4); {LEVELS MULTIPL}
 
   IF B.LMULTI>0THEN
     FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO SAVELEVEL(4); {LEVELS MULTIPL}
 

-  IF B.LFROM[7]>0THEN
-    FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7]
+  IF B.LFROM[8]>0THEN
+    FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]

      DO SAVELEVEL(4); {LEVELS RACE}
 
      DO SAVELEVEL(4); {LEVELS RACE}
 

-  IF B.LFROM[8]>0THEN
-    FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8]
+  IF B.LFROM[9]>0THEN
+    FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[9]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[9]

      DO SAVELEVEL(4); {LEVELS CTF}
 
      DO SAVELEVEL(4); {LEVELS CTF}
 

-  I:=0; I2:=1; IF B.LFROM[2]>0THEN I2:=I2+1+B.LTO[2]-B.LFROM[2];
+  I:=0; I2:=0; IF B.LFROM[1]>0THEN INC(I2);
+  IF B.LFROM[2]>0THEN I2:=I2+1+B.LTO[2]-B.LFROM[2];

   IF B.LFROM[3]>0THEN I2:=I2+1+B.LTO[3]-B.LFROM[3];
   FOR II:=1TO I2 DO BEGIN BLOCKWRITE(FF,I,2); BLOCKWRITE(FF,B.HINAME,3); END; {HI}
 
   IF B.LFROM[3]>0THEN I2:=I2+1+B.LTO[3]-B.LFROM[3];
   FOR II:=1TO I2 DO BEGIN BLOCKWRITE(FF,I,2); BLOCKWRITE(FF,B.HINAME,3); END; {HI}