X-Git-Url: http://git.shiar.nl/wormy.git/blobdiff_plain/d5bfaf913bc4776654586efd74bd535eb4d9774b..6d64bb2aa29809c9c24fb5ee036766440b62bf4a:/wormedit.pas

diff --git a/wormedit.pas b/wormedit.pas
index 39aa846..d310458 100644
--- a/wormedit.pas
+++ b/wormedit.pas
@@ -1,5 +1,5 @@
-{WORMEDIT 0.5 OR SOMETHING... BY SHIAR
- ---------------------------------w00t}
+{WORMEDIT 0.53 OR SOMETHING... BY SHIAR
+ ----------------------------------w00t}
 
 {PASCAL.... BECAUSE I'VE GOT A LOT OF EXPERIENCE USING IT, AND I JUST NEEDED A
  QUICK SUCKY EDITOR. IF YOU'RE WILLING TO WRITE SOMETHING BETTER, JUST MAIL ME}
@@ -32,66 +32,74 @@ TYPE ONELEVEL = RECORD
        FLAG1Y,FLAG1X:BYTE;
        FLAG2Y,FLAG2X:BYTE;
        NROBJ:BYTE;
-       OBJ:ARRAY[1..32]OF RECORD
+       OBJ:ARRAY[1..128]OF RECORD
 	 TYP:SHORTINT;X1,Y1,X2,Y2:BYTE;
        END; {OBJ}
      END; {ONELEVEL}
 
-CONST GAMETYPE:ARRAY[1..8]OF STRING[12] =
+CONST GAMETYPE:ARRAY[1..9]OF STRING[12] =
 	('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');
 
-      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}
-	 'Wormyá95 Levelfile made using WormEdit 0.5'); {COMMENT}
+	 'Wormy.97 Levelfile made using WormEdit0.53'); {COMMENT}
 
-      HEADEDIT = ('WormEditá95'+#0+'LVL');
-      HEADVERSION = 95;
+      HEADEDIT = ('WormEdit053'+#0+'LVL');
+      HEADVERSION = 53;
+      HEADOUTVERSION = 97;
+      PC = $F080; {F400}
 
       B:RECORD
 	HEAD:ARRAY[1..15]OF CHAR;
 	VERSION:BYTE;
 	NAME:STRING[32];
 	DESC:STRING[64];
+	RES:STRING[255];
 	LSINGLE,LMULTI,LRACE,LCTF,LTOTAL:BYTE;
-	LFROM:ARRAY[1..8]OF BYTE;
-	LTO:ARRAY[1..8]OF BYTE;
+	LFROM:ARRAY[1..10]OF BYTE;
+	LTO:ARRAY[1..10]OF BYTE;
 	SPRSIZE:BYTE;
 	SPRITE:ARRAY[1..8]OF BYTE;
 	ENDTYPE:INTEGER;
 	ENDSTR:STRING[255];
-        ENDDATA:STRING[255];
+	ENDDATA:STRING[255];
+	RES2:STRING[255];
         HINAME:ARRAY[1..3]OF CHAR;
       END {B} =
 	(HEAD:HEADEDIT;
 	 VERSION:HEADVERSION;
 	 NAME:'Custom Worm Level';
 	 DESC:'Not done yet. Obviously.';
+	 RES:'';
 	 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,0);
+	 LTO:(0,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}
-	 ENDTYPE:1;
+	 ENDTYPE:0;
          ENDSTR:'';
 	 ENDDATA:#$C9;
+	 RES2:'';
 	 HINAME:'WOR');
 
       LVLPOS:BYTE = 1;
       OBJPOS:BYTE = 1;
+      BBPOS :BYTE = 1;
 
 	C_BAR	= 15;
-	CB_BAR	=  4;
+	CB_BAR	=  1;
 	C_MENU	= 14;
 	CB_TEXT	=  0;
 	C_TEXT	=  7;
@@ -118,7 +126,7 @@ VAR I,I2:WORD;
 
 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 á ');
@@ -126,7 +134,7 @@ BEGIN
   TEXTCOLOR(CB_BAR); WRITE('>ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
   WINDOW(41,2,41,25); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); WRITE(CC('³',23));
   WINDOW(1,25,80,25); TEXTBACKGROUND(CB_BAR); CLRSCR;
-  GOTOXY(75,1); TEXTCOLOR(0); WRITE('v0.5á'); TEXTBACKGROUND(CB_TEXT);
+  GOTOXY(74,1); TEXTCOLOR(0); WRITE('v0.53á'); TEXTBACKGROUND(CB_TEXT);
 END; {MAINTITLE}
 
 PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER);
@@ -324,11 +332,13 @@ BEGIN
   SETPAL(18,48,48,48);		SETPAL(19,63,0,0); {OBJ}
   SETPAL(20,63,63,20);		SETPAL(21,63,16,0); {HL_OBJ}
   SETPAL(22,63,63,63);		SETPAL(23,63,0,0); {BORDER}
+
+  SETPAL(29,0,48,0); {MARK}
 END; {DISPMCGACOMMON}
 
 PROCEDURE DISP1MAP(OBJ:INTEGER);
-VAR MXX,MYY:WORD;
-    M1,M2:BOOLEAN;
+VAR MXX,MYY,TX,TY,TXX,TYY:WORD;
+    M1,M2,TZ:BOOLEAN;
 {TYPE SCRN = ARRAY[0..199,0..319]OF BYTE;
 VAR VIRT:^SCRN;
     I1,I1X,I1Y:BYTE;
@@ -362,7 +372,20 @@ BEGIN
       IF M2 THEN PPLINE(MXX,MYY,MX,MY,1);
       MXX:=MX; MYY:=MY;
     END; {MOUSE}
-  UNTIL KEYPRESSED; WHILE KEYPRESSED DO READKEY; MAINTITLE;
+    C:=#0;
+    IF KEYPRESSED THEN BEGIN
+      WHILE KEYPRESSED DO C:=READKEY;
+      IF C='1'THEN BEGIN
+      	I4:=L[II].SPRSIZE; IF I4=0THEN I4:=B.SPRSIZE; DEC(I4);
+        FOR TX:=2TO L[II].FIELDX-4 DO FOR TY:=2TO L[II].FIELDY-4 DO BEGIN
+          TZ:=TRUE;
+          FOR TXX:=TX TO TX+I4 DO FOR TYY:=TY TO TY+I4 DO
+            IF GETPIXEL(TXX,TYY,VGA)>17THEN TZ:=FALSE;
+          IF TZ THEN PUTPIXEL(TX,TY,29,PTR(VGA,0));
+        END; {TEST_FIELD}
+      END; {DRAW_TEST_PEA_AREA}
+    END; {KEYPRESSED}
+  UNTIL(C=#27)OR(C=' ')OR(C=#13)OR(C='+')OR(C='0'); MAINTITLE;
 END; {DISP1MAP}
 
 PROCEDURE DISPMANYMAP(MAG:BYTE);
@@ -401,7 +424,7 @@ BEGIN
 END; {DISP1MAP}
 
 PROCEDURE MAPOBJ(OBJ,OBJSUB:INTEGER);
-VAR M1,M2:BOOLEAN;
+VAR M1,M2,M3:BOOLEAN;
     MXX,MYY:WORD;
     XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER;
 BEGIN
@@ -417,8 +440,9 @@ BEGIN
     2:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-4; YMIN:=2; YMAX:=L[II].FIELDY-4;
     END; {FATTY}
     3:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-1; YMIN:=2; YMAX:=L[II].FIELDY-2;
-      IF OBJSUB=0THEN YMAX:=L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1
-      ELSE YMIN:=L[II].OBJ[OBJ].Y1+1;
+      IF OBJSUB=0THEN BEGIN
+        IF L[II].OBJ[OBJ].Y2<>0THEN YMAX:=L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1
+      END {X1,Y1} ELSE YMIN:=L[II].OBJ[OBJ].Y1+1;
     END; {BOX}
     4:BEGIN XMIN:=0;
       IF OBJSUB=0THEN BEGIN
@@ -435,23 +459,21 @@ BEGIN
   REPEAT
     PPDISPOBJ(OBJ,0);
     IF USEMOUSE THEN BEGIN
-      REPEAT GETMOUSEPOS(MX,MY,M1,M2);
-      UNTIL(MX<>MXX)OR(MY<>MYY)OR(M1)OR(M2)OR(KEYPRESSED);
+      REPEAT GETMOUSEPOS(MX,MY,M1,M2); M3:=KEYPRESSED;
+      UNTIL(MX<>MXX)OR(MY<>MYY)OR(M1)OR(M2)OR(M3);
       MXX:=MX; MYY:=MY; MX:=MX SHR 1;
-      IF KEYPRESSED THEN BEGIN C:=READKEY;
-	IF(C=#13)OR(C=' ')THEN M1:=TRUE; IF(C=#27)OR(C='+')THEN M2:=TRUE;
-      END; {KEYS}
-    END {MOUSE} ELSE BEGIN
-      REPEAT UNTIL KEYPRESSED; C:=READKEY;
+    END; {MOUSE}
+    IF M3 THEN BEGIN
+      C:=READKEY;
       IF(C=#13)OR(C=' ')THEN M1:=TRUE ELSE M1:=FALSE;
       IF(C=#27)OR(C='+')THEN M2:=TRUE ELSE M2:=FALSE;
       IF C='2'THEN INC(MY); {DOWN} IF C='8'THEN DEC(MY); {UP}
       IF C='4'THEN DEC(MX); {L}    IF C='6'THEN INC(MX); {R}
-      IF C=#0THEN BEGIN  C:=READKEY;
-        IF C=#80 THEN INC(MY); {DOWN} IF C=#72 THEN DEC(MY); {UP}
-        IF C=#75 THEN DEC(MX); {L}    IF C=#77 THEN INC(MX); {R}
+      IF C=#0 THEN BEGIN  C:=READKEY;
+	IF C=#80 THEN INC(MY); {DOWN} IF C=#72 THEN DEC(MY); {UP}
+	IF C=#75 THEN DEC(MX); {L}    IF C=#77 THEN INC(MX); {R}
       END; {EXTENDED}
-    END; {KEYB}
+    END; {KEYPRESSED}
     IF NOT M1 THEN BEGIN
       IF MX<XMIN THEN MX:=XMIN; IF MX>XMAX THEN MX:=XMAX;
       IF MY<YMIN THEN MY:=YMIN; IF MY>YMAX THEN MY:=YMAX;
@@ -501,9 +523,11 @@ BEGIN
     2:WRITE('YOU UNDERSTAND EVERYTHING');
     3:WRITE('THIS AIN''T A BUG, IT A FEATURE!');
     4:WRITE('ALL YOUR WORMS ARE BELONG TO US!');
-    5:WRITE('PRESS UP AND DOWN TO VIEW ALL LEVELS');
-    6:WRITE('PRESS UP AND DOWN TO VIEW ALL OBJECTS');
+    5:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL LEVELS');
+    6:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL OBJECTS');
+    8:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL BOUNCIES');
   END; {TEXT TO DISPLAY}
+  WINDOW(2,3,3,20);
 END; {HELPBAR}
 
 PROCEDURE DISPLEVELS;
@@ -518,6 +542,7 @@ BEGIN
       IF II>=B.LFROM[1]THEN TEXTCOLOR(C_VALUE);
       WRITELN(': '+L[II].ID); TEXTCOLOR(C_TEXT);
     END; {DISP LEVELS}
+  WINDOW(2,3,3,20);
 END; {DISPLEVELS}
 
 PROCEDURE DISPOBJECTS;
@@ -536,8 +561,21 @@ BEGIN
       END; {TYPE}
     END {ENABLED} ELSE WRITELN(': DISABLED'); TEXTCOLOR(C_TEXT);
   END; {DISP OBJS}
+  WINDOW(2,3,3,20);
 END; {DISPOBJECTS}
 
+PROCEDURE DISPBOUNCIES;
+BEGIN
+  WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
+  IF L[II].NRBALLS<1THEN WRITELN('NONE')
+  ELSE FOR I4:=BBPOS TO MIN(L[II].NRBALLS,BBPOS+9)DO BEGIN
+    WRITE(I4); TEXTCOLOR(C_VALUE);
+    WRITE(': (',L[II].BALLS[I4].X,',',L[II].BALLS[I4].Y,'),',L[II].BALLS[I4].D);
+    TEXTCOLOR(C_TEXT);
+  END; {DISP OBJS}
+  WINDOW(2,3,3,20);
+END; {DISPLEVELS}
+
 FUNCTION EDITMENU(EDITMENUMAX,HELPPAGE:BYTE):SHORTINT;
 VAR EDITOK,MENUPOS:SHORTINT;
 BEGIN
@@ -567,37 +605,41 @@ BEGIN
       END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
         IF(C=#77)AND(OBJPOS<L[II].NROBJ-9)THEN BEGIN INC(OBJPOS); DISPOBJECTS; END {R} ELSE
         IF(C=#75)AND(OBJPOS>1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {L} ELSE
-      END; {OBJS DISPED}
+      END {OBJS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
+        IF(C=#77)AND(BBPOS<L[II].NRBALLS-9)THEN BEGIN INC(BBPOS); DISPBOUNCIES; END {R} ELSE
+        IF(C=#75)AND(BBPOS>1)THEN BEGIN DEC(BBPOS); DISPBOUNCIES; END {L} ELSE
+      END; {BOUNCIES DISPED}
       IF C=#59THEN HELPBAR(HELPPAGE);
     END; {EXTENDED}
   UNTIL EDITOK<>0; EDITMENU:=EDITOK; TEXTCOLOR(C_TEXT);
 END; {EDITMENU}
 
 FUNCTION COMPSIZE:WORD;
-PROCEDURE COMPLEVEL;
-BEGIN
-  INC(I,L[II].SIZE);
-  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}
-  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
-   FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8]DO COMPLEVEL; {CTF}
-
+  I:=B.SPRSIZE+1;
+  IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE); {SP}
 {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(PC+10+I))+CHR(HI(PC+10+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(PC+16+I))+CHR(HI(PC+16+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]));
 
+  IF B.LMULTI>0THEN FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO INC(I,L[II].SIZE); {MP}
+  IF B.LFROM[8]>0THEN
+   FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]DO INC(I,L[II].SIZE); {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 INC(I,L[II].SIZE); {CTF}
+
+  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}
 
@@ -701,31 +743,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,')');
-    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('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;
-    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
-        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=9THEN 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);
@@ -870,7 +912,10 @@ BEGIN
 	S:=''; FOR I4:=0TO 4DO S:=S+NR(I4)+': '+OBJTYPE[I4]+CC(' ',37-ORD(OBJTYPE[I4,0]));
 	L[II].OBJ[I].TYP:=INPUTINT('ENTER OBJECT TYPE',S,0,0,4);
 	L[II].OBJ[I].X1:=0; L[II].OBJ[I].Y1:=0; L[II].OBJ[I].X2:=0;
-	L[II].OBJ[I].Y2:=0; MAPOBJ(I,0); MAPOBJ(I,1);
+	L[II].OBJ[I].Y2:=0; MAPOBJ(I,0);
+	IF L[II].OBJ[I].TYP=3THEN BEGIN
+	  L[II].OBJ[I].X2:=L[II].OBJ[I].X1; L[II].OBJ[I].Y2:=1;
+	END; {BOX} MAPOBJ(I,1);
       END; {CREATE}
       5:BEGIN
 	I4:=INPUTINT('ENTER OBJECT TO HIGHLIGHT','0 FOR NONE',0,0,L[II].NROBJ);
@@ -943,7 +988,7 @@ END; {EDITSPR}
 PROCEDURE EDITBOUNCIES;
 BEGIN
   REPEAT
-    TITLEBAR(0,'EDIT BALLS IN LEVEL #'+NR(II));
+    TITLEBAR(8,'EDIT BALLS IN LEVEL #'+NR(II));
     TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE BALL');
     TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE BALL');
     FOR III:=1TO L[II].NRBALLS DO BEGIN
@@ -1057,6 +1102,7 @@ PROCEDURE EDITLEVEL;
 BEGIN
   REPEAT
     L[II].SIZE:=12+L[II].NRBALLS*3+L[II].SPRSIZE+L[II].NROBJ*5;
+    FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(L[II].SIZE,5);
     IF II<=B.LSINGLE THEN L[II].NAME:=ZERO(II,2);
     IF II>B.LSINGLE THEN INC(L[II].SIZE,10+LENGTH(L[II].NAME));
     IF II>B.LSINGLE+B.LMULTI THEN INC(L[II].SIZE,2);
@@ -1108,7 +1154,7 @@ BEGIN
 	L[II].FIELDY:=INPUTINT('ENTER FIELD HEIGHT','57=ONE SCREEN; MORE WILL SCROLL THE     SCREEN',5,L[II].FIELDY,255);
 	IF L[II].FIELDY<57THEN BEGIN
 	  INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=2;
-	  L[II].OBJ[L[II].NROBJ].Y2:=255-L[II].FIELDY;
+	  L[II].OBJ[L[II].NROBJ].Y2:=257-L[II].FIELDY;
 	  L[II].OBJ[L[II].NROBJ].X2:=L[II].FIELDX-1; L[II].OBJ[L[II].NROBJ].TYP:=3;
 	  L[II].OBJ[L[II].NROBJ].Y1:=L[II].FIELDY;
 	END; {PUT BAR}
@@ -1160,7 +1206,8 @@ BEGIN
 	    FOR I:=B.LTOTAL DOWNTO B.LSINGLE+B.LMULTI+1DO L[I]:=L[I-1];
 	    L[B.LSINGLE+B.LMULTI]:=L[II]; II:=B.LSINGLE+B.LMULTI;
 	  END {MP} ELSE IF II<=B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
-	    INC(B.LRACE); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL;
+	    INC(B.LRACE); FOR I:=B.LTOTAL DOWNTO B.LSINGLE+B.LMULTI+B.LRACE+1DO L[I]:=L[I-1];
+	    L[B.LSINGLE+B.LMULTI+B.LRACE]:=L[II]; II:=B.LSINGLE+B.LMULTI+B.LRACE;
 	  END {RACE} ELSE BEGIN
 	    INC(B.LCTF); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL;
 	  END; {CTF}
@@ -1191,14 +1238,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];
-	    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[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.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}
@@ -1213,7 +1260,7 @@ 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;
@@ -1230,7 +1277,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];
-        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;
@@ -1244,7 +1291,7 @@ BEGIN
       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;
@@ -1274,7 +1321,7 @@ BEGIN
     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(')');
@@ -1296,12 +1343,13 @@ 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
-        IF B.ENDTYPE=1THEN
+        IF B.ENDTYPE>0THEN
 	  B.ENDSTR:=INPUTSTR('ENTER NEW END MESSAGE','MAX 255 CHARS','Congratulations!!',255);
       END; {ENDCONF}
       4:BEGIN
@@ -1351,11 +1399,16 @@ BEGIN
   END; {CAN'T OPEN}
   {$I-} BLOCKREAD(F,B,SIZEOF(B));
         FOR I:=1TO B.LTOTAL DO BLOCKREAD(F,L[I],SIZEOF(L[I])); {$I+}
-  IF(IORESULT<>0)OR(B.HEAD<>HEADEDIT)THEN BEGIN
+  IF IORESULT<>0THEN BEGIN
     TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT);
     WRITELN('ERROR READING LEVEL FILE!');
     CLOSE(F); HALT;
   END; {ERROR}
+  IF B.HEAD<>HEADEDIT THEN BEGIN
+    TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT);
+    WRITELN('WRONG HEADER!');
+    CLOSE(F); HALT;
+  END; {ERROR}
   IF B.VERSION<>HEADVERSION THEN BEGIN
     WRITELN('CAN''T READ FILE VERSION ',B.VERSION,'.'); CLOSE(F); HALT;
   END; {VERSION}
@@ -1414,25 +1467,25 @@ BEGIN
   DEC(ISTACK,2); BLOCKWRITE(FF,ISTACK,2); {PROG LENGTH (x)}
 
   C:='w'; BLOCKWRITE(FF,C,1); {WORM ID}
-  I:=HEADVERSION; BLOCKWRITE(FF,I,1); {VERSION}
+  I:=HEADOUTVERSION; BLOCKWRITE(FF,I,1); {VERSION}
   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;
-  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;
-  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}
 
-  I2:=0; I:=$F401+B.SPRSIZE;
+  I2:=0; I:=PC+1+B.SPRSIZE;
   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);
@@ -1443,10 +1496,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:=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}
+  I:=42; BLOCKWRITE(FF,I,1); {UNUSED}
 
   BLOCKWRITE(FF,B.SPRSIZE,1);
   BLOCKWRITE(FF,B.SPRITE,B.SPRSIZE);
@@ -1459,15 +1513,16 @@ BEGIN
   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}
 
-  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}
 
-  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}
 
@@ -1559,6 +1614,6 @@ BEGIN
   TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SEARCHING FOR LEVELS');
   EDITFILE(TRUE); REPEAT EDITMAIN; EDITQUIT; UNTIL QUITOK=TRUE;
   WINDOW(1,1,80,25); TEXTCOLOR(7); TEXTBACKGROUND(0); CLRSCR;
-  WRITE('EXITING '); TEXTCOLOR(15); WRITE('WORMEDIT 0.5 BY SHIAR');
+  WRITE('EXITING '); TEXTCOLOR(15); WRITE('WORMEDIT 0.53 BY SHIAR');
   TEXTCOLOR(7); WRITELN('.'); WRITELN('BYEBYE..'); WRITELN;
-END.
\ No newline at end of file
+END.