wormedit.pas

   1 USES CRT,SHIAR,DOS;
   2
   3 TYPE ONELEVEL = RECORD
   4        ID:STRING[22];
   5        NAME:STRING[22];
   6        SIZE:BYTE;
   7        PEAS,DELAY:BYTE;
   8        GROWTH,BSIZE:BYTE;
   9        SPRSIZE:BYTE;
  10        SPRITE:ARRAY[1..8]OF BYTE;
  11        NRBALLS:BYTE;
  12        BALLS:ARRAY[1..32]OF RECORD
  13          Y,X,D:BYTE; {Z:%00=right+down, %11=left+up}
  14        END; {BALLS}
  15        W:ARRAY[1..4]OF RECORD
  16          D,Y,X:BYTE;
  17        END; {W(ORMS)}
  18        FIELDX,FIELDY:BYTE;
  19        FLAG1Y,FLAG1X:BYTE;
  20        FLAG2Y,FLAG2X:BYTE;
  21        NROBJ:BYTE;
  22        OBJ:ARRAY[1..32]OF RECORD
  23          TYP:SHORTINT;X1,Y1,X2,Y2:BYTE;
  24        END; {OBJ}
  25      END; {ONELEVEL}
  26
  27 CONST GAMETYPE:ARRAY[1..8]OF STRING[12] =
  28         ('SINGLEPLAYER','PEAWORM','TRON','DEATHMATCH',
  29          'FOODMATCH','TIMEMATCH','RACE','CTF');
  30
  31       OBJTYPE:ARRAY[0..4]OF STRING[8] =
  32         ('NONE','LINE','FAT LINE','BAR','CIRCLE');
  33
  34       ENDTYPE:ARRAY[0..1]OF STRING[8] =
  35         ('NONE','MESSAGE');
  36
  37       HEAD86S:STRING[53] =
  38         ('**TI86**'+#$1A+#$A+#0+ {HEADER}
  39          'Levelfile for Worm 0�95 made with WormEdit'); {COMMENT}
  40
  41       HEADEDIT = ('WormEdit�95'+#0+'LVL');
  42       HEADVERSION = 95;
  43
  44       B:RECORD
  45         HEAD:ARRAY[1..15]OF CHAR;
  46         VERSION:BYTE;
  47         NAME:STRING[32];
  48         LSINGLE,LMULTI,LRACE,LCTF,LTOTAL:BYTE;
  49         LFROM:ARRAY[1..8]OF BYTE;
  50         LTO:ARRAY[1..8]OF BYTE;
  51         SPRSIZE:BYTE;
  52         SPRITE:ARRAY[1..8]OF BYTE;
  53         ENDTYPE:INTEGER;
  54         ENDSTR:STRING[255];
  55         ENDDATA:STRING[255];
  56         HINAME:ARRAY[1..3]OF CHAR;
  57       END {B} =
  58         (HEAD:HEADEDIT;
  59          VERSION:HEADVERSION;
  60          NAME:'Custom Worm Level';
  61          LSINGLE:0; LMULTI:0; LRACE:0; LCTF:0; LTOTAL:0;
  62          LFROM:(0,0,0,0,0,0,0,0);
  63          LTO:(0,0,0,0,0,0,0,0);
  64          SPRSIZE:4;
  65          SPRITE:(6*16,15*16,15*16,6*16,0,0,0,0);
  66            {01100000
  67             11110000
  68             11110000
  69             01100000}
  70          ENDTYPE:1;
  71          ENDSTR:'';
  72          ENDDATA:#$C9;
  73          HINAME:'WOR');
  74
  75       LVLPOS:BYTE = 1;
  76       OBJPOS:BYTE = 1;
  77
  78         C_BAR   = 15;
  79         CB_BAR  =  4;
  80         C_MENU  = 14;
  81         CB_TEXT =  0;
  82         C_TEXT  =  7;
  83         C_SUB   =  8;
  84         C_HI    = 15;
  85         C_VALUE =  3;
  86         C_GRID  =  7;
  87
  88 VAR I,I2:WORD;
  89     II,III,I4:SHORTINT;
  90     C:CHAR;
  91     S:STRING;
  92     F,FF:FILE;
  93     MX,MY:WORD;
  94
  95     L:ARRAY[1..64]OF ONELEVEL;
  96     LTEMP:ONELEVEL;
  97
  98     FSIZE:LONGINT;
  99     FILENAME:STRING[8];
 100     LVLDISP:BYTE;
 101
 102 PROCEDURE MAINTITLE;
 103 BEGIN
 104   SETTEXT; SETPAL(3,44,44,32);
 105   WINDOW(1,1,80,25); TEXTBACKGROUND(CB_TEXT); CLRSCR;
 106   TEXTCOLOR(CB_BAR); WRITE('���������������������������<');
 107   TEXTCOLOR(14); WRITE(' WormEdit � ');
 108   TEXTCOLOR(15); WRITE(' by SHIAR ');
 109   TEXTCOLOR(CB_BAR); WRITE('>�����������������������������');
 110   WINDOW(41,2,41,25); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); WRITE(CC('�',23));
 111   WINDOW(1,25,80,25); TEXTBACKGROUND(CB_BAR); CLRSCR;
 112   GOTOXY(75,1); TEXTCOLOR(0); WRITE('v0.94'); TEXTBACKGROUND(CB_TEXT);
 113 END; {MAINTITLE}
 114
 115 PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER);
 116 BEGIN {REPLACEMENT_PUTPIXEL}
 117   MEM[SEG(WHERE^)+Y*20:OFS(WHERE^)+X]:=COL;
 118 END; {PUTPIXEL}
 119
 120 PROCEDURE LINE(X,Y,XX,YY:INTEGER;COL:BYTE;WHERE:POINTER);
 121 VAR LINE1,LINE2,SX,SY,SXY,SYX,DX1,DX2,DY1,DY2:INTEGER;
 122 BEGIN {JUST_A_SIMPLE_LINE_PROCEDURE}
 123   SX:=XX-X; SY:=YY-Y; DX1:=SGN(SX); DX2:=DX1; DY1:=SGN(SY); DY2:=0;
 124   SXY:=ABS(SX); SYX:=ABS(SY);
 125   IF SYX>SXY THEN BEGIN
 126     DY2:=DY1; DX2:=0; LINE1:=SXY; SXY:=SYX; SYX:=LINE1;
 127   END; {VERTICAL_LINE}
 128   LINE1:=SXY SHR 1;
 129   FOR LINE2:=0TO SXY DO BEGIN
 130     PUTPIXEL(X,Y,COL,WHERE);
 131     LINE1:=LINE1+SYX;
 132     IF LINE1<SXY THEN BEGIN
 133       INC(X,DX2); INC(Y,DY2);
 134     END {STRAIGT_AHEAD} ELSE BEGIN
 135       LINE1:=LINE1-SXY;
 136       INC(X,DX1); INC(Y,DY1);
 137     END; {NEXT_STEP}
 138   END; {DRAW_THE_LINE}
 139 END; {LINE}
 140
 141 PROCEDURE DISPMAP(OBJ:INTEGER;WHERE:POINTER);
 142 VAR OBJ2:INTEGER;
 143 PROCEDURE CIRCLE(X,Y,Z,COL:BYTE);
 144 VAR XX,YY,ZZ:INTEGER;
 145 BEGIN
 146   XX:=-1; YY:=Z; ZZ:=-Z;
 147   REPEAT
 148     INC(XX);
 149     LINE(X-XX,Y+YY,X+XX,Y+YY,COL,WHERE);
 150     LINE(X-XX,Y-YY,X+XX,Y-YY,COL,WHERE);
 151     LINE(X-YY,Y+XX,X+YY,Y+XX,COL,WHERE);
 152     LINE(X-YY,Y-XX,X+YY,Y-XX,COL,WHERE);
 153     IF ZZ>=0 THEN BEGIN ZZ:=ZZ-(YY SHL 1)+2; DEC(YY); END;
 154     ZZ:=ZZ+(XX SHL 1)+3;
 155   UNTIL XX>=YY;
 156 END; {CIRCLE}
 157 PROCEDURE DRAW4PIX(D4X,D4Y:INTEGER;D4XSIZE,D4YSIZE,COL:BYTE);
 158 VAR D4LOOPX,D4LOOPY:BYTE;
 159 BEGIN
 160   FOR D4LOOPX:=0TO D4XSIZE-1DO FOR D4LOOPY:=0TO D4YSIZE-1DO
 161     PUTPIXEL(D4X+D4LOOPX,D4Y+D4LOOPY,COL,WHERE);
 162 END; {DRAW4PIX}
 163 PROCEDURE DISPOBJ(OBJ:INTEGER;COL:BYTE);
 164 VAR Y:BYTE;
 165 BEGIN
 166   CASE L[II].OBJ[OBJ].TYP OF
 167     1:LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL,WHERE);
 168     2:BEGIN
 169       LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL,WHERE);
 170       LINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2,COL,WHERE);
 171       LINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2+1,COL,WHERE);
 172       LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2+1,COL,WHERE);
 173     END; {FATLINE}
 174     3:BEGIN
 175       FOR Y:=L[II].OBJ[OBJ].Y1 TO L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1DO
 176         LINE(L[II].OBJ[OBJ].X1,MIN(Y,191),L[II].OBJ[OBJ].X2,MIN(Y,191),COL,WHERE);
 177     END; {BOX}
 178     4:CIRCLE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,COL);
 179   END; {OBJECT TYPE}
 180 END; {DISPOBJ}
 181 BEGIN {---}
 182   I:=7; WHILE I<=255DO BEGIN LINE(I,0,I,191,2,WHERE); INC(I,8); END; {GRID}
 183   I:=0; WHILE I<=191DO BEGIN LINE(0,I,255,I,2,WHERE); INC(I,8); END;
 184   I:=127; WHILE I<=255DO BEGIN LINE(I,0,I,191,6,WHERE); INC(I,128); END;
 185   I:=0; WHILE I<=191DO BEGIN LINE(0,I,255,I,6,WHERE); INC(I,56); END;
 186
 187   FOR I:=2TO L[II].FIELDX-2DO BEGIN
 188     IF I MOD 2=0THEN PUTPIXEL(I,L[II].FIELDY SHR 1,4,WHERE)
 189     ELSE PUTPIXEL(I,L[II].FIELDY SHR 1,2,WHERE);
 190   END; {MID}
 191   IF L[II].FIELDY MOD 2=0THEN
 192     FOR I:=2TO L[II].FIELDX-2DO BEGIN
 193       IF I MOD 2=1THEN PUTPIXEL(I,L[II].FIELDY SHR 1-1,4,WHERE)
 194       ELSE PUTPIXEL(I,L[II].FIELDY SHR 1-1,2,WHERE);
 195     END; {DOUBLEMID}
 196   FOR I:=2TO L[II].FIELDY-2DO BEGIN
 197     IF I MOD 2=0THEN PUTPIXEL(L[II].FIELDX SHR 1,I,4,WHERE)
 198     ELSE PUTPIXEL(L[II].FIELDX SHR 1,I,2,WHERE);
 199   END; {CENTER}
 200   IF L[II].FIELDX MOD 2=0THEN
 201     FOR I:=2TO L[II].FIELDY-2DO BEGIN
 202       IF I MOD 2=1THEN PUTPIXEL(L[II].FIELDX SHR 1-1,I,4,WHERE)
 203       ELSE PUTPIXEL(L[II].FIELDX SHR 1-1,I,2,WHERE);
 204     END; {DOUBLECENTER}
 205   IF(II>B.LSINGLE+B.LMULTI)AND(II<=B.LSINGLE+B.LMULTI+B.LRACE)THEN BEGIN
 206     LINE(L[II].FLAG1Y,0,L[II].FLAG1Y,L[II].FLAG1X,22,WHERE);
 207     LINE(L[II].FLAG1Y,L[II].FLAG1X,L[II].FLAG1Y,L[II].FIELDY-1,24,WHERE);
 208     LINE(0,L[II].FLAG1X,L[II].FIELDX-1,L[II].FLAG1X,16,WHERE);
 209   END; {RACE}
 210   IF II<=B.LSINGLE THEN I:=1 ELSE I:=4;
 211   FOR I:=1TO I DO BEGIN
 212     CIRCLE(L[II].W[I].X,L[II].W[I].Y,2,14);
 213     LINE(L[II].W[I].X,L[II].W[I].Y,L[II].W[I].X+ROUND(SIN(L[II].W[I].D/128*PI)*20),
 214       L[II].W[I].Y+ROUND(COS(L[II].W[I].D/128*PI)*20),16,WHERE);
 215     LINE(L[II].W[I].X,L[II].W[I].Y,L[II].W[I].X+ROUND(SIN((L[II].W[I].D-13)/128*PI)*15),
 216       L[II].W[I].Y+ROUND(COS((L[II].W[I].D-13)/128*PI)*15),14,WHERE);
 217     LINE(L[II].W[I].X,L[II].W[I].Y,L[II].W[I].X+ROUND(SIN((L[II].W[I].D+13)/128*PI)*15),
 218       L[II].W[I].Y+ROUND(COS((L[II].W[I].D+13)/128*PI)*15),14,WHERE);
 219     PUTPIXEL(L[II].W[I].X,L[II].W[I].Y,0,WHERE);
 220   END; {WORMS}
 221   IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
 222     IF L[II].SPRSIZE>0THEN I:=L[II].SPRSIZE ELSE I:=B.SPRSIZE;
 223     DRAW4PIX(L[II].FLAG1X,L[II].FLAG1Y,I,I,22); {FLAGS}
 224     DRAW4PIX(L[II].FLAG2X,L[II].FLAG2Y,I,I,24);
 225   END; {DRAW FLAGS}
 226   LINE(0,0,255,0,8,WHERE); LINE(0,1,255,1,8,WHERE); {BORDERS}
 227   LINE(0,2,0,190-3,8,WHERE); LINE(1,2,1,190-3,8,WHERE);
 228   LINE(MAX(126,L[II].FIELDX-2),2,MAX(126,L[II].FIELDX-2),L[II].FIELDY-1,8,WHERE);
 229   LINE(MAX(127,L[II].FIELDX-1),2,MAX(127,L[II].FIELDX-1),L[II].FIELDY-1,8,WHERE);
 230   LINE(0,L[II].FIELDY-2,L[II].FIELDX-1,L[II].FIELDY-2,8,WHERE);
 231   LINE(0,L[II].FIELDY-1,L[II].FIELDX-1,L[II].FIELDY-1,8,WHERE);
 232   FOR OBJ2:=1TO L[II].NROBJ DO IF OBJ2<>OBJ THEN DISPOBJ(OBJ2,10); {OBJS}
 233   IF(OBJ>0)AND(OBJ<=L[II].NROBJ)THEN DISPOBJ(OBJ,12); {HIGHLIGHTED_OBJ}
 234   FOR OBJ2:=1TO L[II].NRBALLS DO
 235     DRAW4PIX(L[II].BALLS[OBJ2].X,L[II].BALLS[OBJ2].Y,2,2,12); {BOUNCIES}
 236 END; {DISPMAP}
 237
 238 PROCEDURE DISPMAPMCGA(OBJ:INTEGER);
 239 BEGIN
 240   SETMCGA;
 241   SETPAL(2,16,0,0); {GRID}  SETPAL(4,24,0,0); {MID}  SETPAL(6,32,0,0); {MAINGRID}
 242   SETPAL(8,63,63,63); {BORDER}
 243   SETPAL(10,48,48,48); {OBJ} SETPAL(12,63,63,20); {HL_OBJ}  SETPAL(14,63,0,0); {STARTPOS}
 244   SETPAL(16,63,16,0); {STLN}SETPAL(22,0,0,63); {FLAG1}    SETPAL(24,0,63,0); {FLAG2}
 245
 246   SETPAL(1,32,0,0); {BACK}
 247   SETPAL(3,40,0,0); {GRID} SETPAL(3,44,0,0); {GRID}  SETPAL(5,48,0,0); {MAINGRID} SETPAL(9,63,0,0); {BORDER}
 248   SETPAL(11,63,0,0); {OBJ} SETPAL(13,63,0,0); {HL_OBJ} SETPAL(15,63,0,0); {STARTPOS}
 249   SETPAL(17,52,0,0); {STLN}SETPAL(23,63,0,0); {FLAG1}    SETPAL(25,63,0,0); {FLAG2}
 250   DISPMAP(OBJ,PTR(VGA,0));
 251 END; {DISPMAPMCGA}
 252
 253 PROCEDURE DISP1MAP(OBJ:INTEGER);
 254 VAR MXX,MYY:WORD;
 255     M1,M2:BOOLEAN;
 256 {TYPE SCRN = ARRAY[0..199,0..319]OF BYTE;
 257 VAR VIRT:^SCRN;
 258     I1,I1X,I1Y:BYTE;
 259 BEGIN
 260   NEW(VIRT);
 261   FOR I:=0 TO 199DO FOR I2:=0 TO 319DO VIRT^[I,I2]:=0; DISPMAP(OBJ,VIRT);
 262   WINDOW(1,3,80,20);
 263   FOR I:=0 TO 19DO FOR I2:=0 TO 79DO BEGIN
 264     I1X:=ROUND(I2*L[II].FIELDX/80); I1Y:=ROUND(I*L[II].FIELDY/20);
 265     CASE VIRT^[I1Y,I1X]OF
 266       0:TEXTCOLOR(0);
 267       1:TEXTCOLOR(8);
 268       2:TEXTCOLOR(7);
 269       3:TEXTCOLOR(15);
 270       4,5:TEXTCOLOR(14);
 271       6..9:TEXTCOLOR(9);
 272       10..12:TEXTCOLOR(12);
 273     END;
 274     WRITE('�');
 275   END;
 276   DISPOSE(VIRT);}
 277 PROCEDURE PPLINE(X,Y,XX,YY:INTEGER;COL:BYTE);
 278 VAR LINE1,LINE2,SX,SY,SXY,SYX,DX1,DX2,DY1,DY2:INTEGER;
 279 BEGIN {SPECIAL LINE}
 280   SX:=XX-X; SY:=YY-Y; DX1:=SGN(SX); DX2:=DX1; DY1:=SGN(SY); DY2:=0;
 281   SXY:=ABS(SX); SYX:=ABS(SY);
 282   IF SYX>SXY THEN BEGIN
 283     DY2:=DY1; DX2:=0; LINE1:=SXY; SXY:=SYX; SYX:=LINE1;
 284   END; {VERTICAL_LINE}
 285   LINE1:=SXY SHR 1;
 286   FOR LINE2:=0TO SXY DO BEGIN
 287     PUTPIXEL(X,Y,GETPIXEL(X,Y,VGA)OR 1-COL,PTR(VGA,0));
 288     LINE1:=LINE1+SYX;
 289     IF LINE1<SXY THEN BEGIN
 290       INC(X,DX2); INC(Y,DY2);
 291     END {STRAIGT_AHEAD} ELSE BEGIN
 292       LINE1:=LINE1-SXY;
 293       INC(X,DX1); INC(Y,DY1);
 294     END; {NEXT_STEP}
 295   END; {DRAW_THE_LINE}
 296 END; {PPLINE}
 297 BEGIN
 298   DISPMAPMCGA(OBJ); CLRKEY;
 299   REPEAT
 300     GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;}
 301     PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
 302     DELAY(10);
 303     PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
 304     IF M1 THEN PPLINE(MXX,MYY,MX,MY,0);
 305     IF M2 THEN PPLINE(MXX,MYY,MX,MY,1);
 306     MXX:=MX; MYY:=MY;
 307   UNTIL KEYPRESSED; MAINTITLE;
 308 END; {DISP1MAP}
 309
 310 PROCEDURE MAPOBJ(OBJ,XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER);
 311 VAR M1,M2:BOOLEAN;
 312 BEGIN
 313   DISPMAPMCGA(OBJ); CLRKEY;
 314   REPEAT
 315     GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;}
 316     IF MX<XMIN THEN MX:=XMIN; IF MX>XMAX THEN MX:=XMAX;
 317     IF MY<YMIN THEN MY:=YMIN; IF MY>YMAX THEN MY:=YMAX;
 318     IF M2 THEN BEGIN MX:=XDEF; MY:=YDEF; END; {R_BUTTON}
 319     PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0)); DELAY(10);
 320     PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
 321   UNTIL(KEYPRESSED)OR(M1); MAINTITLE;
 322 END; {MAPOBJ}
 323
 324 FUNCTION NR(VALUE:LONGINT):STRING;
 325 VAR NRSTR:STRING;
 326 BEGIN
 327   STR(VALUE,NRSTR); NR:=NRSTR;
 328 END; {NR}
 329
 330 PROCEDURE HELPBAR(HELPPAGE:BYTE);
 331 BEGIN
 332   WINDOW(41,14,80,24);
 333   IF HELPPAGE=0 THEN BEGIN
 334     TEXTCOLOR(C_GRID); WRITE('�'); WINDOW(42,14,80,24); CLRSCR; EXIT;
 335   END; {REMOVE}
 336   TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_GRID); WRITE('�'); TEXTCOLOR(C_BAR);
 337   WRITE('HELP',' ':39-4); WINDOW(42,15,80,24); TEXTBACKGROUND(CB_TEXT); TEXTCOLOR(C_TEXT);
 338   CLRSCR; CASE HELPPAGE OF
 339     1:WRITE('PRESS <F1> OR <H> FOR HELP');
 340     2:WRITE('YOU UNDERSTAND EVERYTHING');
 341     3:WRITE('THIS AIN''T A BUG, IT A FEATURE!');
 342     4:WRITE('ALL YOUR WORMS ARE BELONG TO US!');
 343     5:WRITE('PRESS UP AND DOWN TO VIEW ALL LEVELS');
 344     6:WRITE('PRESS UP AND DOWN TO VIEW ALL OBJECTS');
 345   END; {TEXT TO DISPLAY}
 346 END; {HELPBAR}
 347
 348 PROCEDURE DISPLEVELS;
 349 BEGIN
 350   WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
 351   IF B.LTOTAL<1 THEN WRITELN('NONE PRESENT')ELSE
 352     FOR II:=LVLPOS TO MIN(B.LTOTAL,LVLPOS+9)DO BEGIN
 353       IF LVLDISP=1 THEN WRITE(II) {CONTINOUS}
 354       ELSE IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN WRITE(II-B.LSINGLE-B.LMULTI-B.LRACE)ELSE
 355         IF II>B.LSINGLE+B.LMULTI THEN WRITE(II-B.LSINGLE-B.LMULTI)ELSE
 356           IF II>B.LSINGLE THEN WRITE(II-B.LSINGLE)ELSE WRITE(II); {SEPERATE}
 357       IF II>=B.LFROM[1]THEN TEXTCOLOR(C_VALUE);
 358       WRITELN(': '+L[II].ID); TEXTCOLOR(C_TEXT);
 359     END; {DISP LEVELS}
 360 END; {DISPLEVELS}
 361
 362 PROCEDURE DISPOBJECTS;
 363 BEGIN
 364   WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
 365   IF L[II].NROBJ<1THEN WRITELN('NONE')
 366   ELSE FOR I4:=OBJPOS TO MIN(L[II].NROBJ,OBJPOS+9)DO BEGIN
 367     WRITE(I4); TEXTCOLOR(C_VALUE);
 368     IF L[II].OBJ[I4].TYP>0 THEN BEGIN
 369       WRITE(': ',OBJTYPE[L[II].OBJ[I4].TYP]);
 370       WRITE(' (',L[II].OBJ[I4].X1,',',L[II].OBJ[I4].Y1,')-(');
 371       CASE L[II].OBJ[I4].TYP OF
 372         1,2:WRITELN(L[II].OBJ[I4].X2,',',L[II].OBJ[I4].Y2,')');
 373         3:WRITELN(L[II].OBJ[I4].X2,',',L[II].OBJ[I4].Y1+L[II].OBJ[I4].Y2,')');
 374         4:WRITELN(L[II].OBJ[I4].X2,')');
 375       END; {TYPE}
 376     END {ENABLED} ELSE WRITELN(': DISABLED'); TEXTCOLOR(C_TEXT);
 377   END; {DISP OBJS}
 378 END; {DISPOBJECTS}
 379
 380 FUNCTION EDITMENU(EDITMENUMAX,HELPPAGE:BYTE):SHORTINT;
 381 VAR EDITOK:SHORTINT;
 382 BEGIN
 383   EDITOK:=0; REPEAT
 384     WINDOW(39,1,39,1); GOTOXY(1,1); REPEAT UNTIL KEYPRESSED; C:=READKEY;
 385     IF C=' 'THEN EDITOK:=10 {10} ELSE
 386     IF(C>='1')AND(C<=CHR(EDITMENUMAX+48))THEN EDITOK:=ORD(C)-48 {1..<=9} ELSE
 387     IF(C=#27)OR(C='-')OR(C='+')THEN EDITOK:=-1 {EXIT} ELSE
 388     IF UPCASE(C)='H'THEN HELPBAR(HELPPAGE) ELSE
 389     IF C=#0THEN BEGIN  C:=READKEY;
 390       IF HELPPAGE=5THEN BEGIN
 391         IF(C=#80)AND(LVLPOS<B.LTOTAL-9)THEN BEGIN INC(LVLPOS); DISPLEVELS; END {DOWN} ELSE
 392         IF(C=#72)AND(LVLPOS>1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {UP} ELSE
 393       END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
 394         IF(C=#80)AND(OBJPOS<L[II].NROBJ-9)THEN BEGIN INC(OBJPOS); DISPOBJECTS; END {DOWN} ELSE
 395         IF(C=#72)AND(OBJPOS>1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {UP} ELSE
 396       END; {OBJS DISPED}
 397       IF C=#59THEN HELPBAR(HELPPAGE);
 398     END; {EXTENDED}
 399   UNTIL EDITOK<>0; EDITMENU:=EDITOK;
 400 END; {EDITMENU}
 401
 402 FUNCTION COMPSIZE:WORD;
 403 PROCEDURE COMPLEVEL;
 404 BEGIN
 405   INC(I,L[II].SIZE);
 406   FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(I,5);
 407 END; {SIZE OF LEVEL II}
 408 BEGIN
 409   I:=$31+B.SPRSIZE+ORD(B.NAME[0])+5;
 410   IF B.LFROM[2]>0THEN I:=I+((1+B.LTO[2]-B.LFROM[2])*5);
 411   IF B.LFROM[3]>0THEN I:=I+((1+B.LTO[3]-B.LFROM[3])*5);
 412   IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO COMPLEVEL; {SP}
 413   IF B.LMULTI>0THEN FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO COMPLEVEL; {MP}
 414   IF B.LFROM[7]>0THEN
 415    FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7]DO COMPLEVEL; {CTF}
 416   IF B.LFROM[8]>0THEN
 417    FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8]DO COMPLEVEL; {CTF}
 418
 419 {MAKE SP_END CODE}
 420   CASE B.ENDTYPE OF
 421     1:B.ENDDATA:=#$21+#$F4+#$00+#$C3+#$37+#$4A+#$CD+#$AA+#$55+B.ENDSTR;
 422       {LD HL,MSG\JP _PUTS\.DB MSG}
 423     ELSE B.ENDDATA:=#$C9; {RET}
 424   END; {ENDTYPE}
 425   INC(I,ORD(B.ENDDATA[0]));
 426
 427   COMPSIZE:=I;
 428 END; {COMPSIZE}
 429
 430 PROCEDURE TITLEBAR(BAR:SHORTINT;TITLNAME:STRING);
 431 BEGIN
 432   HELPBAR(0); WINDOW(41,2,42,2);
 433   IF BAR=0THEN TEXTBACKGROUND(CB_TEXT)ELSE TEXTBACKGROUND(CB_BAR);
 434   TEXTCOLOR(C_GRID); WRITE('�'); WINDOW(42,2,80,13); TEXTBACKGROUND(CB_TEXT); CLRSCR;
 435   TEXTCOLOR(C_BAR); TEXTBACKGROUND(CB_BAR);
 436   CASE BAR OF
 437     1:BEGIN
 438       WRITE('LEVELS',' ':39-6); LVLDISP:=1; DISPLEVELS;
 439     END; {1:SINGLVLS}
 440     2:BEGIN
 441       WRITE('LEVEL OBJECTS',' ':39-13); DISPOBJECTS;
 442     END; {2:OBJS}
 443     3:BEGIN
 444       WRITE('LEVEL INFO',' ':39-10); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT);
 445       WRITE('LEVEL #',II);
 446       IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN WRITELN(' CTF #',II-B.LSINGLE-B.LMULTI-B.LRACE)ELSE
 447         IF II>B.LSINGLE+B.LMULTI THEN WRITELN(' RACE #',II-B.LSINGLE-B.LMULTI)ELSE
 448           IF II>B.LSINGLE THEN WRITELN(' MP #',II-B.LSINGLE)ELSE WRITELN;
 449       WRITELN('LEVEL SIZE: ',L[II].SIZE);
 450       IF II<=B.LSINGLE THEN WRITELN('SINGLEPLAYER')ELSE FOR I:=2TO 6DO
 451         IF(II-B.LSINGLE>=B.LFROM[I])AND(II-B.LSINGLE<=B.LTO[I])THEN
 452           WRITELN(GAMETYPE[I]);
 453     END; {3:LEVEL}
 454     4:BEGIN
 455       WRITE(FILENAME,'.LVL',' ':35-ORD(FILENAME[0])); TEXTCOLOR(C_TEXT);
 456       TEXTBACKGROUND(CB_TEXT); WRITE('FILE VERSION: '); TEXTCOLOR(C_VALUE);
 457       WRITELN(B.VERSION); TEXTCOLOR(C_TEXT); WRITE('FILE SIZE: '); TEXTCOLOR(C_VALUE);
 458       WRITE(FSIZE SHR 10); TEXTCOLOR(C_TEXT); WRITELN('kB');
 459       WRITE('COMPILED: '); TEXTCOLOR(C_VALUE); WRITE(COMPSIZE); TEXTCOLOR(C_TEXT);
 460       WRITE(' BYTES');
 461     END; {4:FILE}
 462     5:BEGIN
 463       WRITE('LEVELS',' ':39-6); LVLDISP:=2; DISPLEVELS;
 464     END; {5:LEVELS}
 465   END; {BAR}
 466   WINDOW(1,2,40,24);
 467   TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE(TITLNAME,' ':40-ORD(TITLNAME[0]));
 468   WINDOW(1,3,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR;
 469 END; {TITLEBAR}
 470
 471 FUNCTION INPUTSTR(ISTR,ICOM,IDEF:STRING;IMAX:BYTE):STRING;
 472 VAR IVAL:STRING; IOK:BOOLEAN;
 473 BEGIN
 474   WINDOW(1,14,40,24);
 475   TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE('INPUT',' ':40-5);
 476   WINDOW(1,15,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR;
 477   REPEAT
 478     TEXTCOLOR(C_TEXT); WRITELN(ISTR); TEXTCOLOR(C_SUB); WRITELN(ICOM);
 479     TEXTCOLOR(C_SUB); WRITELN('ENTER FOR DEFAULT:'); WRITELN(IDEF);
 480     TEXTCOLOR(C_TEXT); WRITE('> '); READLN(IVAL);
 481     IF IVAL=''THEN IVAL:=IDEF;
 482     IOK:=FALSE; IF ORD(IVAL[0])<=IMAX THEN IOK:=TRUE
 483       ELSE BEGIN CLRSCR; WRITELN('OH NO, THAT''S TOO MUCH!'); END; {TOOLONG}
 484   UNTIL IOK; INPUTSTR:=IVAL;
 485 END; {INPUTSTR}
 486
 487 FUNCTION INPUTINT(ISTR,ICOM:STRING;IMIN,IDEF,IMAX:INTEGER):INTEGER;
 488 FUNCTION READ:INTEGER;
 489 VAR REI1:INTEGER; REI2:BYTE;
 490 BEGIN {INPUTS POSITIVE INTEGER VALUE FROM KEYBOARD}
 491   REI1:=0; {VALUE} REI2:=0; {SIZE}
 492   REPEAT
 493     REPEAT C:=READKEY; UNTIL C<>'';
 494     CASE C OF
 495       #8,'+','-':IF REI2>0THEN BEGIN
 496         REI1:=REI1 DIV 10; DEC(REI2); WRITE(#8+' '+#8);
 497       END; {BACKSPACE}
 498       '0'..'9':IF REI2<4THEN BEGIN
 499         REI1:=REI1*10+ORD(C)-48; INC(REI2); WRITE(C);
 500       END; {NUMBER}
 501       #13:IF REI2=0THEN REI1:=-1; {ENTER}
 502     END; {HANDLE INPUT}
 503   UNTIL C=#13; {UNTIL ENTER PRESSED}
 504   READ:=REI1;
 505 END; {READLN}
 506 VAR IVAL:INTEGER; IOK:BOOLEAN;
 507 BEGIN
 508   WINDOW(1,14,40,24);
 509   TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE('INPUT',' ':40-5);
 510   WINDOW(1,15,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR;
 511   REPEAT
 512     TEXTCOLOR(C_TEXT); WRITELN(ISTR); TEXTCOLOR(C_SUB); WRITELN(ICOM);
 513     TEXTCOLOR(C_SUB); WRITE('(RANGE '); TEXTCOLOR(C_TEXT); WRITE(IMIN); TEXTCOLOR(C_SUB);
 514     WRITE(' TO '); TEXTCOLOR(C_TEXT); WRITE(IMAX); TEXTCOLOR(C_SUB);
 515     WRITE('; DEFAULT VALUE '); TEXTCOLOR(C_TEXT); WRITE(IDEF); TEXTCOLOR(C_SUB);
 516     WRITELN(')'); TEXTCOLOR(C_TEXT); WRITE('> '); IVAL:=READ; IF IVAL=-1THEN IVAL:=IDEF;
 517     IOK:=FALSE; IF(IVAL>=IMIN)AND(IVAL<=IMAX)THEN IOK:=TRUE
 518       ELSE BEGIN CLRSCR; WRITELN('OUT OF RANGE!'); END; {OUTOFRANGE}
 519   UNTIL IOK; INPUTINT:=IVAL;
 520 END; {INPUTINT}
 521
 522 PROCEDURE EDITGAME;
 523 LABEL EDITGAME1,EDITGAME2;
 524 BEGIN
 525   REPEAT
 526     TITLEBAR(5,'EDIT GAMETYPES'); TEXTCOLOR(C_MENU); WRITE('1');
 527     TEXTCOLOR(C_TEXT); WRITE(': SINGLEPLAYER ');
 528     TEXTCOLOR(C_VALUE); IF(B.LSINGLE=0)OR(B.LFROM[1]=0)THEN WRITELN('(NO LEVELS)')
 529       ELSE WRITELN('(',B.LTO[1]-B.LFROM[1]+1,' OF ',B.LSINGLE,')');
 530     FOR II:=2TO 6DO BEGIN
 531       TEXTCOLOR(C_MENU); WRITE(II); TEXTCOLOR(C_TEXT); WRITE(': '+GAMETYPE[II],' ');
 532       TEXTCOLOR(C_VALUE); IF B.LFROM[II]=0THEN WRITELN('(NO LEVELS)')
 533         ELSE WRITELN('(',B.LFROM[II],'-',B.LTO[II],')');
 534     END; {MULTIP}
 535     TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITE(': RACE '); TEXTCOLOR(C_VALUE);
 536     IF B.LFROM[7]=0THEN WRITELN('(NO LEVELS)')ELSE WRITELN('(',B.LTO[7]-B.LFROM[7]+1,' OF ',B.LRACE,')');
 537     TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITE(': CTF '); TEXTCOLOR(C_VALUE);
 538     IF B.LFROM[8]=0THEN WRITE('(NO LEVELS)')ELSE WRITE('(',B.LTO[8]-B.LFROM[8]+1,' OF ',B.LCTF,')');
 539
 540     III:=EDITMENU(8,5);
 541     IF III=1THEN BEGIN
 542       B.LFROM[1]:=INPUTINT('ENTER LEVELS TO SKIP','USE THIS TO TEMPORARILY REMOVE THE FIRSTFEW LEVELS',
 543         0,0,MAX(0,B.LSINGLE-1)); INC(B.LFROM[1]);
 544       B.LTO[1]:=INPUTINT('ENTER LEVELS SELECTABLE','THE HIGHEST LEVEL SOMEONE CAN START IN  WITHOUT PLAYING IT EARLIER',
 545         0,1,B.LSINGLE+1-B.LFROM[1]);
 546       IF B.LTO[1]=0THEN B.LFROM[1]:=0 ELSE B.LTO[1]:=B.LTO[1]+B.LFROM[1]-1;
 547     END {SINGLEPLAYER} ELSE IF III=7THEN BEGIN
 548       B.LFROM[7]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LRACE);
 549       IF B.LFROM[7]>0THEN
 550         B.LTO[7]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[7],B.LCTF,B.LCTF);
 551     END {RACE} ELSE IF III=8THEN BEGIN
 552       B.LFROM[8]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LCTF);
 553       IF B.LFROM[8]>0THEN
 554         B.LTO[8]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[8],B.LCTF,B.LCTF);
 555     END {CTF} ELSE IF III>0THEN BEGIN
 556       B.LFROM[III]:=INPUTINT('ENTER NEW STARTING LEVEL',
 557         'THAT LEVEL WILL BE LEVEL #1 IN GAMEMODE '+GAMETYPE[III]+'. 0=NO LEVELS',0,1,B.LMULTI);
 558       IF B.LFROM[III]>0THEN
 559         B.LTO[III]:=INPUTINT('ENTER LAST LEVEL NUMBER',NR(B.LMULTI)+' LEVELS PRESENT',
 560           B.LFROM[III],B.LMULTI,B.LMULTI);
 561     END; {MULTIPLAYER}
 562   UNTIL III=-1; III:=0;
 563 END; {EDITGAME}
 564
 565 PROCEDURE EDITOBJ;
 566 LABEL EDITOBJ1;
 567 BEGIN
 568   REPEAT
 569     TITLEBAR(2,'EDIT OBJECT #'+NR(I)+' IN LEVEL '+NR(II));
 570     TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': OBJECT TYPE ');
 571     III:=L[II].OBJ[I].TYP; TEXTCOLOR(C_VALUE); WRITELN('(',ABS(III),')');
 572     IF III<>0THEN BEGIN
 573       IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT); WRITE('2'); TEXTCOLOR(C_TEXT);
 574       IF ABS(L[II].OBJ[I].TYP)=4THEN WRITE(': OBJECT POSITION ')ELSE WRITE(': OBJECT BEGIN');
 575       IF L[II].OBJ[I].TYP>0THEN BEGIN
 576         TEXTCOLOR(C_VALUE); WRITELN(' (',L[II].OBJ[I].X1,',',L[II].OBJ[I].Y1,')');
 577       END {PRESENT} ELSE WRITELN;
 578       IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
 579       WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SELECT');
 580       IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT); WRITE('4'); TEXTCOLOR(C_TEXT);
 581       IF ABS(L[II].OBJ[I].TYP)=4THEN WRITE(': OBJECT SIZE ')ELSE WRITE(': OBJECT END ');
 582       TEXTCOLOR(C_VALUE); CASE L[II].OBJ[I].TYP OF
 583         3:WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y1+L[II].OBJ[I].Y2,')');
 584         4:WRITELN('(',L[II].OBJ[I].X2,')');
 585         1..10:WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y2,')');
 586         ELSE WRITELN;
 587       END; {TYPE}
 588       IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
 589       WRITE('5'); TEXTCOLOR(C_TEXT); WRITELN(': SELECT');
 590       TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITELN(': PREVIEW');
 591       TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT);
 592       IF L[II].OBJ[I].TYP<0THEN WRITE(': ENABLE')ELSE WRITE(': DISABLE');
 593     END; {OBJECT PROPERTIES}
 594
 595     IF III<>0THEN III:=EDITMENU(7,6)ELSE III:=EDITMENU(1,6);
 596     CASE III OF
 597       1:BEGIN
 598         S:=''; FOR I4:=0TO 4DO S:=S+NR(I4)+': '+OBJTYPE[I4]+CC(' ',37-ORD(OBJTYPE[I4,0]));
 599         L[II].OBJ[I].TYP:=INPUTINT('ENTER OBJECT TYPE',S,0,0,4);
 600         S:='SCREEN=(2,2)-('+NR(L[II].FIELDX-3)+','+NR(L[II].FIELDY-3)+
 601           '); CENTER=('+NR((L[II].FIELDX-1)SHR 1)+','+NR((L[II].FIELDY-1)SHR 1)+')';
 602         IF L[II].OBJ[I].TYP=4 THEN BEGIN
 603           L[II].OBJ[I].X1:=INPUTINT('ENTER X',S+
 604             '   DO NOT MAKE CIRCLES LEFT OF THE SCREEN!',0,(L[II].FIELDX-1)SHR 1,255);
 605           L[II].OBJ[I].Y1:=INPUTINT('ENTER Y',S+
 606             '   DON''T TRY Y<0: MIGHT CRASH CALC!!!',0,(L[II].FIELDY-1)SHR 1,255);
 607           L[II].OBJ[I].X2:=INPUTINT('ENTER SIZE',S,3,
 608             MIN(L[II].FIELDY-3,L[II].FIELDX-3)SHR 2,MIN(L[II].FIELDY-3,L[II].FIELDX-3)SHR 1);
 609           L[II].OBJ[I].Y2:=0;
 610         END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN
 611           IF(L[II].OBJ[I].TYP=1)OR(L[II].OBJ[I].TYP=3)THEN I4:=2 ELSE I4:=3;
 612           L[II].OBJ[I].X1:=INPUTINT('ENTER X1',S,2,(L[II].FIELDX-1)SHR 1,L[II].FIELDX-I4);
 613           L[II].OBJ[I].Y1:=INPUTINT('ENTER Y1',S,2,(L[II].FIELDY-1)SHR 1,L[II].FIELDY-I4);
 614           L[II].OBJ[I].X2:=INPUTINT('ENTER X2',S,2,(L[II].FIELDX-1)SHR 1,L[II].FIELDX-I4);
 615           L[II].OBJ[I].Y2:=INPUTINT('ENTER Y2',S,2,(L[II].FIELDY-1)SHR 1,L[II].FIELDY-I4);
 616           IF L[II].OBJ[I].TYP=3THEN BEGIN
 617             IF L[II].OBJ[I].Y2<L[II].OBJ[I].Y1 THEN BEGIN
 618               I4:=L[II].OBJ[I].Y2; L[II].OBJ[I].Y2:=L[II].OBJ[I].Y1;
 619               L[II].OBJ[I].Y1:=I4;
 620             END; {END BEFORE START}
 621             L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1;
 622           END; {BOX}
 623         END; {NORMAL OBJECT}
 624       END; {TYPE}
 625       2,3:BEGIN
 626         S:='SCREEN=(2,2)-('+NR(L[II].FIELDX-3)+','+NR(L[II].FIELDY-3)+
 627           '); CENTER=('+NR((L[II].FIELDX-1)SHR 1)+','+NR((L[II].FIELDY-1)SHR 1)+')';
 628         IF L[II].OBJ[I].TYP=4 THEN BEGIN
 629           IF III=4THEN BEGIN
 630             L[II].OBJ[I].X1:=INPUTINT('ENTER X',S+
 631               '   BE CAREFUL DRAWING OFF-SCREEN!',0,L[II].OBJ[I].X1,255);
 632             L[II].OBJ[I].Y1:=INPUTINT('ENTER Y',S,0,L[II].OBJ[I].Y1,255);
 633           END {ENTER} ELSE BEGIN
 634             MAPOBJ(I,0,L[II].OBJ[I].X1,255,0,L[II].OBJ[I].Y1,255);
 635             L[II].OBJ[I].X1:=MX; L[II].OBJ[I].Y1:=MY;
 636           END; {SEL}
 637         END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN
 638           IF III=4THEN BEGIN
 639             IF L[II].OBJ[I].TYP=3THEN
 640               L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2+L[II].OBJ[I].Y1-3;
 641             IF(L[II].OBJ[I].TYP=1)OR(L[II].OBJ[I].TYP=3)THEN I4:=2 ELSE I4:=3;
 642             L[II].OBJ[I].X1:=INPUTINT('ENTER BEGIN X',S,2,L[II].OBJ[I].X1,L[II].FIELDX-I4);
 643             L[II].OBJ[I].Y1:=INPUTINT('ENTER BEGIN Y',S,2,L[II].OBJ[I].Y1,L[II].FIELDY-I4);
 644           END {ENTER} ELSE BEGIN
 645             MAPOBJ(I,2,L[II].OBJ[I].X1,L[II].FIELDX-I4,2,L[II].OBJ[I].Y1,L[II].FIELDY-I4);
 646             L[II].OBJ[I].X1:=MX; L[II].OBJ[I].Y1:=MY;
 647           END; {SEL}
 648           IF L[II].OBJ[I].TYP=3THEN
 649             L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1+3;
 650         END; {NORMAL OBJECT}
 651       END; {BEGIN}
 652       4,5:BEGIN
 653         IF L[II].OBJ[I].TYP=4 THEN BEGIN
 654           IF III=5THEN BEGIN
 655             MAPOBJ(I,0,16,255,L[II].OBJ[I].Y1,L[II].OBJ[I].Y1,L[II].OBJ[I].Y1);
 656             L[II].OBJ[I].X2:=ABS(INTEGER(L[II].OBJ[I].X1)-MX); {&&&&}
 657           END {SEL} ELSE
 658             L[II].OBJ[I].X2:=INPUTINT('ENTER SIZE','CROSSING BOUNDARIES NOT CHECKED',
 659              3,L[II].OBJ[I].X2,255{L[II].FIELDX-3)SHR 1});
 660           L[II].OBJ[I].Y2:=0;
 661         END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN
 662           IF III=4THEN BEGIN
 663             S:='SCREEN=(0,0)-('+NR(L[II].FIELDX-2)+','+NR(L[II].FIELDY-2)+
 664               '); CENTER=('+NR((L[II].FIELDX-1)SHR 1)+','+NR((L[II].FIELDY-1)SHR 1)+')';
 665             IF(L[II].OBJ[I].TYP=1)OR(L[II].OBJ[I].TYP=3)THEN I4:=2 ELSE I4:=3;
 666             L[II].OBJ[I].X2:=INPUTINT('ENTER END X',S,2,L[II].OBJ[I].X2,L[II].FIELDX-I4);
 667             L[II].OBJ[I].Y2:=INPUTINT('ENTER END Y',S,2,L[II].OBJ[I].Y2,L[II].FIELDY-I4);
 668           END {ENTER} ELSE BEGIN
 669             MAPOBJ(I,2,L[II].OBJ[I].X2,L[II].FIELDX-I4,2,L[II].OBJ[I].Y2,L[II].FIELDY-I4);
 670             L[II].OBJ[I].X2:=MX; L[II].OBJ[I].Y2:=MY;
 671           END; {SEL}
 672           IF L[II].OBJ[I].TYP=3THEN BEGIN
 673             IF L[II].OBJ[I].Y2<L[II].OBJ[I].Y1 THEN BEGIN
 674               I4:=L[II].OBJ[I].Y2; L[II].OBJ[I].Y2:=L[II].OBJ[I].Y1;
 675               L[II].OBJ[I].Y1:=I4;
 676             END; {END BEFORE START}
 677             L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1;
 678           END; {BOX}
 679         END; {NORMAL OBJECT}
 680       END; {END}
 681       6:DISP1MAP(I);
 682       7:BEGIN
 683         L[II].OBJ[I].TYP:=-L[II].OBJ[I].TYP;
 684       END; {DISABLE/ENABLE}
 685     END; {HANDLE}
 686   UNTIL III=-1; III:=0;
 687 END; {EDITOBJ}
 688
 689 PROCEDURE EDITOBJS;
 690 LABEL EDITOBJS1,EDITOBJS2;
 691 BEGIN
 692   REPEAT
 693     TITLEBAR(2,'EDIT LEVEL OBJECTS');
 694     IF L[II].NROBJ>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
 695     WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT OBJECT');
 696     IF L[II].NROBJ>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
 697     WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE OBJECT');
 698     TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE OBJECT');
 699     TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': VIEW OBJECT');
 700
 701     III:=EDITMENU(4,6);
 702     CASE III OF
 703       1:IF L[II].NROBJ>0THEN BEGIN
 704         I:=INPUTINT('EDIT WHICH OBJECT','',1,1,L[II].NROBJ);
 705         EDITOBJ;
 706       END; {EDIT}
 707       2:IF L[II].NROBJ>0THEN BEGIN
 708         I:=INPUTINT('DELETE WHICH OBJECT','0=CANCEL',0,0,L[II].NROBJ);
 709         IF I>0THEN BEGIN
 710           I4:=INPUTINT('PLEASE CONFIRM OBJECT TO *REMOVE*','ENTER 0 TO CANCEL',0,0,L[II].NROBJ);
 711           IF I=I4 THEN BEGIN
 712             DEC(L[II].NROBJ); FOR I:=I4 TO L[II].NROBJ DO L[II].OBJ[I]:=L[II].OBJ[I+1];
 713           END; {CONFIRMED}
 714         END; {}
 715       END; {DELETE}
 716       3:BEGIN
 717         INC(L[II].NROBJ); I:=L[II].NROBJ; L[II].OBJ[I].TYP:=0; EDITOBJ;
 718       END; {CREATE}
 719       4:BEGIN
 720         I4:=INPUTINT('ENTER OBJECT TO HIGHLIGHT','0 FOR NONE',0,0,L[II].NROBJ);
 721         DISP1MAP(I4);
 722       END; {DISP}
 723     END; {HANDLE}
 724   UNTIL III=-1; III:=0;
 725 END; {EDITOBJS}
 726
 727 FUNCTION BYTE2STR(SPRITE,SPRSIZE:BYTE):STRING;
 728 VAR SPRTEMP:STRING[8];
 729     SPRTEMP2:BYTE;
 730 BEGIN
 731   SPRTEMP:='';
 732   FOR SPRTEMP2:=1TO 8-SPRSIZE DO SPRITE:=SPRITE SHR 1;
 733   FOR SPRTEMP2:=9-SPRSIZE TO 8DO BEGIN
 734     IF SPRITE MOD 2=1THEN SPRTEMP:='X'+SPRTEMP ELSE SPRTEMP:='�'+SPRTEMP;
 735     SPRITE:=SPRITE SHR 1;
 736   END;
 737   BYTE2STR:=SPRTEMP;
 738 END; {BYTE2STR}
 739
 740 FUNCTION BYTE2BIN(BYI1:BYTE):LONGINT;
 741 VAR BYI2:BYTE; BYI3:LONGINT;
 742 BEGIN
 743   BYI3:=0;
 744   FOR BYI2:=0TO 7DO BEGIN
 745     IF BYI1 AND 1=1THEN BYI3:=BYI3+POW(10,BYI2);
 746     BYI1:=BYI1 SHR 1;
 747   END;
 748   BYTE2BIN:=BYI3;
 749 END; {BYTE2BIN}
 750
 751 FUNCTION STR2BYTE(SPRITE:STRING):BYTE;
 752 VAR SPRTEMP,SPRTEMP2:BYTE;
 753 BEGIN
 754   SPRTEMP:=0; SPRTEMP2:=1;
 755   FOR SPRTEMP2:=1TO LENGTH(SPRITE)DO
 756     IF SPRITE[SPRTEMP2]='1'THEN INC(SPRTEMP,1SHL(8-SPRTEMP2));
 757   STR2BYTE:=SPRTEMP;
 758 END; {STR2BYTE}
 759
 760 PROCEDURE EDITSPR;
 761 BEGIN
 762   REPEAT
 763     TITLEBAR(0,'EDIT SPRITE');
 764     TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE SIZE ');
 765     TEXTCOLOR(C_VALUE); IF L[II].SPRSIZE=0THEN WRITELN('(',B.SPRSIZE,')')
 766       ELSE WRITELN('(',L[II].SPRSIZE,')');
 767     IF L[II].SPRSIZE=0THEN BEGIN
 768       TEXTCOLOR(C_TEXT); WRITE('2: EDIT SPRITE'); TEXTCOLOR(C_VALUE); WRITELN(' (DEFAULT)');
 769     END {DEF SPR} ELSE FOR I:=1TO L[II].SPRSIZE DO BEGIN
 770       TEXTCOLOR(C_MENU); WRITE(I+1); TEXTCOLOR(C_TEXT); WRITE(': EDIT '); TEXTCOLOR(C_VALUE);
 771       WRITELN(BYTE2STR(L[II].SPRITE[I],L[II].SPRSIZE));
 772     END; {DISP SPRITE}
 773
 774     III:=EDITMENU(1+L[II].SPRSIZE,0);
 775     IF III=1THEN BEGIN
 776       I:=INPUTINT('ENTER NEW SPRITE SIZE','MAXIMUM HEIGHT AND WIDTH; 0=DEFAULT',0,B.SPRSIZE,8);
 777       IF I>L[II].SPRSIZE THEN FOR I4:=L[II].SPRSIZE+1TO I DO L[II].SPRITE[I4]:=0;
 778       L[II].SPRSIZE:=I;
 779     END {SIZE} ELSE IF III>1THEN BEGIN
 780       S:=INPUTSTR('ENTER NEW LINE #'+NR(III-1)+' OF SPRITE','EXAMPLE: 100101 = X��X�X',
 781         ZERO(BYTE2BIN(L[II].SPRITE[III-1]),8),8);
 782       L[II].SPRITE[III-1]:=STR2BYTE(S);
 783     END; {APP}
 784   UNTIL III=-1; III:=0;
 785 END; {EDITSPR}
 786
 787 PROCEDURE EDITBOUNCIES;
 788 BEGIN
 789   REPEAT
 790     TITLEBAR(0,'EDIT BALLS IN LEVEL #'+NR(II));
 791     TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE BALL');
 792     TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE BALL');
 793     FOR III:=1TO L[II].NRBALLS DO BEGIN
 794       TEXTCOLOR(C_MENU); WRITE(III+2); TEXTCOLOR(C_TEXT); WRITE(': BALL #',III,' (');
 795       TEXTCOLOR(C_VALUE); WRITE(L[II].BALLS[III].X); TEXTCOLOR(C_TEXT); WRITE(',');
 796       TEXTCOLOR(C_VALUE); WRITE(L[II].BALLS[III].Y); TEXTCOLOR(C_TEXT); WRITE(') DIR ');
 797       TEXTCOLOR(C_VALUE); WRITELN(L[II].BALLS[III].D);
 798     END; {WORMS}
 799
 800     III:=EDITMENU(2+L[II].NRBALLS,0);
 801     IF III=1THEN BEGIN
 802         INC(L[II].NRBALLS);
 803         L[II].BALLS[L[II].NRBALLS].X:=INPUTINT('ENTER X','WHERE THE BALL STARTS BOUNCING',0,63,255);
 804         L[II].BALLS[L[II].NRBALLS].Y:=INPUTINT('ENTER Y','',0,27,255);
 805         L[II].BALLS[L[II].NRBALLS].D:=INPUTINT('ENTER DIRECTION','0/1:DOWN; 2/3:UP; 1/3:RIGHT; 0/2:LEFT',0,0,3);
 806     END {CREATE} ELSE IF III=2THEN BEGIN
 807       III:=INPUTINT('ENTER THE BOUNCY BALL TO REMOVE','(0 CANCELS)',0,0,L[II].NRBALLS);
 808       IF III>0THEN BEGIN
 809         DEC(L[II].NRBALLS); FOR I4:=III TO L[II].NRBALLS DO L[II].BALLS[I4]:=L[II].BALLS[I4+1];
 810       END; {OK2REMOVE}
 811     END {DELETE} ELSE IF III>0THEN BEGIN
 812         L[II].BALLS[III-2].X:=INPUTINT('ENTER X','NOTE THE BOUNCY BALLS WILL PROBABLY     BOLDLY GO SOME OTHER PLACE ANYWAY',
 813           0,L[II].BALLS[III-2].X,255);
 814         L[II].BALLS[III-2].Y:=INPUTINT('ENTER Y','',0,L[II].BALLS[III-2].Y,255);
 815         L[II].BALLS[III-2].D:=INPUTINT('ENTER DIRECTION','0/1:DOWN; 2/3:UP; 1/3:RIGHT; 0/2:LEFT',0,L[II].BALLS[III-2].D,3);
 816     END; {EDIT}
 817   UNTIL III=-1; III:=0;
 818 END; {EDITWORMS}
 819
 820 PROCEDURE EDITWORMS;
 821 BEGIN
 822   REPEAT
 823     TITLEBAR(0,'EDIT WORMS IN LEVEL #'+NR(II));
 824     IF II>B.LSINGLE THEN III:=4 ELSE III:=1;
 825     FOR III:=1TO III DO BEGIN
 826       TEXTCOLOR(C_MENU); WRITE(III SHL 1-1); TEXTCOLOR(C_TEXT);
 827       WRITE(': WORM #',III,' DIRECTION '); TEXTCOLOR(C_VALUE);
 828       WRITELN('(',L[II].W[III].D,')');
 829       TEXTCOLOR(C_MENU); WRITE(III SHL 1); TEXTCOLOR(C_TEXT);
 830       WRITE(': WORM #',III,' POSITION '); TEXTCOLOR(C_VALUE);
 831       WRITELN('(',L[II].W[III].X,',',L[II].W[III].Y,')');
 832     END; {WORMS}
 833
 834     IF III=4THEN III:=EDITMENU(8,4)ELSE III:=EDITMENU(2,4);
 835     CASE(III+1)OF
 836       2,4,6,8:BEGIN
 837         I:=INPUTINT('ENTER WORM #'+NR(III SHR 1+1)+' STARTING DIRECTION',
 838           '0=DOWN; 64=RIGHT; 128=UP; 192=LEFT',0,L[II].W[III SHR 1+1].D,255);
 839         L[II].W[III SHR 1+1].D:=I;
 840       END; {DIR}
 841       3,5,7,9:BEGIN
 842         I:=INPUTINT('ENTER WORM #'+NR(III SHR 1)+' BEGIN X-POSITION',
 843           'SCREEN = 2-'+NR(L[II].FIELDX-3)+'; CENTER = '+NR((L[II].FIELDX-1)SHR 1),
 844           2,L[II].W[III SHR 1].X,L[II].FIELDX-3);
 845         L[II].W[III SHR 1].X:=I;
 846         I:=INPUTINT('ENTER WORM #'+NR(III SHR 1)+' BEGIN Y-POSITION',
 847           'SCREEN = 2-'+NR(L[II].FIELDY-3)+'; CENTER = '+NR((L[II].FIELDY-1)SHR 1),
 848           2,L[II].W[III SHR 1].Y,L[II].FIELDY-3);
 849         L[II].W[III SHR 1].Y:=I;
 850       END; {POS}
 851     END; {HANDLE}
 852   UNTIL III=-1; III:=0;
 853 END; {EDITWORMS}
 854
 855 PROCEDURE EDITLEVSETS;
 856 BEGIN
 857   REPEAT
 858     TITLEBAR(3,'LEVEL #'+NR(II)+' SETTINGS');
 859     IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
 860       TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': FLAG POSITIONS ');
 861        TEXTCOLOR(C_VALUE); WRITELN('(',L[II].FLAG1X,',',L[II].FLAG1Y,')(',
 862         L[II].FLAG2X,',',L[II].FLAG2Y,')');
 863     END {CTF} ELSE IF II>B.LSINGLE+B.LMULTI THEN BEGIN
 864       TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': LAP BORDERS ');
 865        TEXTCOLOR(C_VALUE); WRITELN('(',L[II].FLAG1X,'; ',L[II].FLAG1Y,')');
 866     END {RACE} ELSE BEGIN
 867       IF II>B.LSINGLE THEN TEXTCOLOR(C_TEXT)ELSE TEXTCOLOR(C_MENU);
 868       WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': NUMBER OF PEAS ');
 869        TEXTCOLOR(C_VALUE); WRITELN('(',L[II].PEAS,')');
 870     END; {SP/MP}
 871     TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': GAME DELAY ');
 872       TEXTCOLOR(C_VALUE); WRITELN('(',L[II].DELAY,')');
 873     TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITE(': STARTING LENGTH ');
 874       TEXTCOLOR(C_VALUE); WRITELN('(',L[II].BSIZE,')');
 875     TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': GROWTH ');
 876       TEXTCOLOR(C_VALUE); WRITE('(',L[II].GROWTH,')');
 877
 878     III:=EDITMENU(4,0);
 879     CASE III OF
 880       1:IF II<=B.LSINGLE THEN
 881         L[II].PEAS:=INPUTINT('ENTER TOTAL NUMBER OF PEAS','TOO MANY PEAS WILL MAKE A LEVEL BORING',1,L[II].PEAS,255)
 882       ELSE IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
 883         IF L[II].SPRSIZE>0THEN I:=L[II].SPRSIZE ELSE I:=B.SPRSIZE;
 884         L[II].FLAG1X:=INPUTINT('ENTER X-COORDINATE OF FLAG #1','FLAG OF PLAYERS 1 AND 3',2,L[II].FLAG1X,L[II].FIELDX-2-I);
 885         L[II].FLAG1Y:=INPUTINT('ENTER Y-COORDINATE OF FLAG #1','FLAG OF PLAYERS 1 AND 3',2,L[II].FLAG1Y,L[II].FIELDY-2-I);
 886         L[II].FLAG2X:=INPUTINT('ENTER X-COORDINATE OF FLAG #2','FLAG OF PLAYERS 2 AND 4',2,L[II].FLAG2X,L[II].FIELDX-2-I);
 887         L[II].FLAG2Y:=INPUTINT('ENTER Y-COORDINATE OF FLAG #2','FLAG OF PLAYERS 2 AND 4',2,L[II].FLAG2Y,L[II].FIELDY-2-I);
 888       END {CTF} ELSE IF II>B.LSINGLE+B.LMULTI THEN BEGIN
 889         L[II].FLAG1X:=INPUTINT('ENTER HORIZONTAL LAP BORDER','USUALLY THE MIDDLE OF THE SCREEN',2,L[II].FIELDY SHR 1,L[II].FIELDY-2);
 890         L[II].FLAG1Y:=INPUTINT('ENTER VERTICAL LAP BORDER','USUALLY THE CENTER OF THE SCREEN',2,L[II].FIELDX SHR 1,L[II].FIELDX-2);
 891       END; {RACE}
 892       2:L[II].DELAY:=INPUTINT('ENTER NEW DELAY','0=FASTEST; 4=AVERAGE; 10=SLOW',0,L[II].DELAY,255);
 893       3:L[II].BSIZE:=INPUTINT('ENTER WORM BEGIN SIZE','15=NORMAL; TOO SHORT WORMS WILL BE HARD TO PLAY WITH',
 894           1,L[II].BSIZE,255);
 895       4:L[II].GROWTH:=INPUTINT('ENTER GROWTH PER PEA','0=NO GROWTH; 15=NORMAL',0,L[II].GROWTH,255);
 896     END; {HANDLE}
 897   UNTIL III=-1; III:=0;
 898 END; {EDITLEVSETS}
 899
 900 PROCEDURE EDITLEVEL;
 901 BEGIN
 902   REPEAT
 903     L[II].SIZE:=12+L[II].NRBALLS*3+L[II].SPRSIZE+L[II].NROBJ*5;
 904     IF II<=B.LSINGLE THEN L[II].NAME:=ZERO(II,2);
 905     IF II>B.LSINGLE THEN INC(L[II].SIZE,10+LENGTH(L[II].NAME));
 906     IF II>B.LSINGLE+B.LMULTI THEN INC(L[II].SIZE,2);
 907     IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN INC(L[II].SIZE,2);
 908     TITLEBAR(3,'EDIT LEVEL #'+NR(II));
 909     TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': DESCRIPTION ');
 910       TEXTCOLOR(C_VALUE); WRITELN('(',L[II].ID,')');
 911     TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': NAME ');
 912       TEXTCOLOR(C_VALUE); WRITELN('(',L[II].NAME,')');
 913     TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': LEVEL SETTINGS');
 914     TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE ');
 915       TEXTCOLOR(C_VALUE); IF L[II].SPRSIZE=0THEN WRITELN('(DEFAULT)')
 916                     ELSE WRITELN('(',L[II].SPRSIZE,')');
 917     TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITE(': BOUNCY BALLS ');
 918       TEXTCOLOR(C_VALUE); WRITELN('(',L[II].NRBALLS,')');
 919     TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITE(': WORMS '); TEXTCOLOR(C_VALUE);
 920       IF II>B.LSINGLE THEN BEGIN
 921         WRITELN('(',L[II].W[1].D,';',L[II].W[2].D,';',L[II].W[3].D,';',L[II].W[4].D,')');
 922       END {FOUR WORMS} ELSE
 923         WRITELN('(',L[II].W[1].X,',',L[II].W[1].Y,':',L[II].W[1].D,')');
 924     TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITE(': FIELD SIZE ');
 925       TEXTCOLOR(C_VALUE); WRITELN('(',L[II].FIELDX,',',L[II].FIELDY,')');
 926     TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITE(': OBJECTS ');
 927       TEXTCOLOR(C_VALUE); WRITELN('(',L[II].NROBJ,')');
 928     TEXTCOLOR(C_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITE(': PREVIEW LEVEL');
 929
 930     III:=EDITMENU(9,0);
 931     CASE III OF
 932       1:L[II].ID:=INPUTSTR('ENTER DESCRIPTION FOR THIS LEVEL',
 933         'THIS WON''T BE DISPLAYED DURING THE GAME,IT''S JUST TO MAKE EDITING EASIER',L[II].ID,22); {DESCR}
 934       2:L[II].NAME:=INPUTSTR('ENTER DESCRIPTION FOR THIS LEVEL',
 935         'MULTIPLAYER LEVELS CAN BE NAMED TO MAKE   LIFE EASIER FOR THE PLAYER',L[II].NAME,22); {NAME}
 936       3:EDITLEVSETS;
 937       4:EDITSPR;
 938       5:EDITBOUNCIES;
 939       6:EDITWORMS;
 940       7:BEGIN
 941         FOR III:=L[II].NROBJ DOWNTO 1DO
 942          IF L[II].OBJ[III].Y2+L[II].OBJ[III].Y1=255THEN BEGIN
 943           DEC(L[II].NROBJ); FOR I4:=III TO L[II].NROBJ DO L[II].OBJ[I4]:=L[II].OBJ[I4+1];
 944         END; {REMOVE OLD BARS}
 945         L[II].FIELDX:=INPUTINT('ENTER FIELD WIDTH','128=ONE SCREEN; MORE WILL SCROLL THE    SCREEN',5,L[II].FIELDX,255);
 946         IF L[II].FIELDX<128THEN BEGIN
 947           INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=L[II].FIELDX;
 948           IF L[II].FIELDX<128THEN DEC(L[II].OBJ[L[II].NROBJ].X1,2);
 949           L[II].OBJ[L[II].NROBJ].Y2:=255; L[II].OBJ[L[II].NROBJ].TYP:=3;
 950           L[II].OBJ[L[II].NROBJ].X2:=127; L[II].OBJ[L[II].NROBJ].Y1:=0;
 951         END; {PUT BAR}
 952         L[II].FIELDY:=INPUTINT('ENTER FIELD HEIGHT','57=ONE SCREEN; MORE WILL SCROLL THE     SCREEN',5,L[II].FIELDY,255);
 953         IF L[II].FIELDY<57THEN BEGIN
 954           INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=2;
 955           L[II].OBJ[L[II].NROBJ].Y2:=255-L[II].FIELDY;
 956           L[II].OBJ[L[II].NROBJ].X2:=L[II].FIELDX-1; L[II].OBJ[L[II].NROBJ].TYP:=3;
 957           L[II].OBJ[L[II].NROBJ].Y1:=L[II].FIELDY;
 958         END; {PUT BAR}
 959       END; {FIELD}
 960       8:EDITOBJS;
 961       9:DISP1MAP(0);
 962     END; {HANDLE}
 963   UNTIL III=-1; III:=0;
 964 END; {EDITLEVEL}
 965
 966 PROCEDURE EDITLVL;
 967 LABEL EDITHLVL1,EDITHLVL2;
 968 BEGIN
 969   REPEAT
 970     TITLEBAR(1,'EDIT LEVELS');
 971     IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
 972     WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT LEVEL');
 973     IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
 974     WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': COPY LEVEL');
 975     IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
 976     WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': MOVE LEVEL');
 977     IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
 978     WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE LEVEL');
 979     TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE SINGLEPLAYER LEVEL');
 980     TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE MULTIPLAYER LEVEL');
 981     TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE RACE LEVEL');
 982     TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE CTF LEVEL');
 983     TEXTCOLOR(C_TEXT); WRITELN; III:=EDITMENU(8,5);
 984
 985     CASE III OF
 986       1:IF B.LTOTAL>0THEN BEGIN
 987         II:=INPUTINT('EDIT WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
 988         IF II<>0THEN EDITLEVEL;
 989       END; {EDIT}
 990       2:IF B.LTOTAL>0THEN BEGIN
 991         II:=INPUTINT('COPY WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
 992         IF II<>0THEN BEGIN
 993           INC(B.LTOTAL);
 994           IF II<=B.LSINGLE THEN BEGIN
 995             INC(B.LSINGLE);
 996             FOR I:=B.LTOTAL DOWNTO B.LSINGLE+1DO L[I]:=L[I-1];
 997             L[B.LSINGLE]:=L[II]; II:=B.LSINGLE
 998           END {SP} ELSE IF II<=B.LSINGLE+B.LMULTI THEN BEGIN
 999             FOR I:=2TO 6DO IF B.LTO[I]=B.LMULTI THEN BEGIN
1000               INC(B.LTO[I]); IF B.LFROM[I]=0THEN INC(B.LFROM[I]);
1001             END; {MP}
1002             INC(B.LMULTI);
1003             FOR I:=B.LTOTAL DOWNTO B.LSINGLE+B.LMULTI+1DO L[I]:=L[I-1];
1004             L[B.LSINGLE+B.LMULTI]:=L[II]; II:=B.LSINGLE+B.LMULTI;
1005           END {MP} ELSE IF II<=B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
1006             INC(B.LRACE); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL;
1007           END {RACE} ELSE BEGIN
1008             INC(B.LCTF); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL;
1009           END; {CTF}
1010           L[II].ID:='Copy of '+L[II].ID;
1011         END; {>0}
1012       END; {COPY}
1013       3:IF B.LTOTAL>0THEN BEGIN
1014         I:=INPUTINT('MOVE WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
1015         IF II<>0THEN BEGIN
1016           II:=INPUTINT('NEW LEVEL NUMBER','ENTER 0 TO CANCEL',0,0,B.LTOTAL);
1017           IF((I<=B.LSINGLE)AND(II<=B.LSINGLE))
1018            OR((I>B.LSINGLE)AND(I<=B.LMULTI+B.LSINGLE)AND(II>B.LSINGLE)AND(II<=B.LMULTI+B.LSINGLE))
1019             OR((I>B.LSINGLE+B.LMULTI)AND(I<=B.LMULTI+B.LSINGLE+B.LRACE)AND(II>B.LSINGLE+B.LMULTI)AND(II<=B.LMULTI+B.LSINGLE+B.LRACE))
1020              OR((I>B.LSINGLE+B.LMULTI+B.LRACE)AND(II>B.LSINGLE+B.LMULTI+B.LRACE))THEN BEGIN
1021               LTEMP:=L[I]; IF II>I THEN FOR I4:=I TO II-1DO L[I4]:=L[I4+1]
1022                 ELSE FOR I4:=I DOWNTO II+1DO L[I4]:=L[I4-1];
1023               L[II]:=LTEMP;
1024           END; {CONFIRMED}
1025         END; {}
1026       END; {MOVE}
1027       4:IF B.LTOTAL>0THEN BEGIN
1028         II:=INPUTINT('DELETE WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
1029         IF II<>0THEN BEGIN
1030           I:=INPUTINT('PLEASE CONFIRM LEVEL TO *REMOVE*','ENTER 0 TO CANCEL',0,0,B.LTOTAL);
1031           IF I=II THEN BEGIN
1032             IF I<=B.LSINGLE THEN DEC(B.LSINGLE)ELSE
1033               IF I<=B.LMULTI+B.LSINGLE THEN DEC(B.LMULTI)ELSE
1034                 IF I<=B.LMULTI+B.LSINGLE+B.LRACE THEN DEC(B.LRACE)ELSE
1035                   DEC(B.LCTF);
1036             DEC(B.LTOTAL); FOR I:=II TO B.LTOTAL DO L[I]:=L[I+1];
1037             FOR I:=2TO 6DO BEGIN
1038               IF B.LTO[I]>B.LMULTI THEN B.LTO[I]:=B.LMULTI;
1039               IF B.LFROM[I]>B.LTO[I]THEN B.LFROM[I]:=B.LTO[I];
1040             END; {CHECK}
1041             IF B.LTO[7]>B.LMULTI+B.LRACE THEN B.LTO[7]:=B.LMULTI+B.LRACE;
1042             IF B.LFROM[7]>B.LTO[7]THEN B.LFROM[7]:=B.LTO[7];
1043             IF B.LTO[8]>B.LTOTAL THEN B.LTO[8]:=B.LTOTAL;
1044             IF B.LFROM[8]>B.LTO[8]THEN B.LFROM[8]:=B.LTO[8];
1045           END; {CONFIRMED}
1046         END; {}
1047       END; {DELETE}
1048       5:BEGIN
1049         INC(B.LSINGLE); INC(B.LTOTAL); II:=B.LSINGLE;
1050         IF B.LTO[1]=0THEN B.LTO[1]:=1;
1051         FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1];
1052         L[II].ID:='Level #'+NR(II);
1053         L[II].PEAS:=8; L[II].DELAY:=4; L[II].GROWTH:=15; L[II].BSIZE:=15;
1054         L[II].SPRSIZE:=0; L[II].NRBALLS:=0; L[II].W[1].D:=0; L[II].W[1].X:=63;
1055         L[II].W[1].Y:=2; L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0;
1056         EDITLEVEL;
1057       END; {CREATE SP}
1058       6:BEGIN
1059         FOR I:=2TO 6DO IF B.LTO[I]=B.LMULTI THEN BEGIN
1060           INC(B.LTO[I]); IF B.LFROM[I]=0THEN INC(B.LFROM[I]);
1061         END; {}
1062         INC(B.LTOTAL); INC(B.LMULTI); II:=B.LSINGLE+B.LMULTI;
1063         FOR I:=B.LSINGLE+B.LMULTI+B.LCTF DOWNTO II+1DO L[I]:=L[I-1];
1064         L[II].ID:='Arena #'+NR(B.LMULTI); L[II].NAME:=ZERO(B.LMULTI,2);
1065         L[II].DELAY:=4; L[II].GROWTH:=15; L[II].BSIZE:=15; L[II].SPRSIZE:=0;
1066         L[II].W[1].D:=$40; L[II].W[1].Y:=28; L[II].W[1].X:=2;
1067         L[II].W[2].D:=$C0; L[II].W[2].Y:=28; L[II].W[2].X:=125;
1068         L[II].W[3].D:=$00; L[II].W[3].Y:=02; L[II].W[3].X:=63;
1069         L[II].W[4].D:=$80; L[II].W[4].Y:=54; L[II].W[4].X:=63;
1070         L[II].NRBALLS:=0; L[II].FIELDX:=128; L[II].FIELDY:=57;
1071         L[II].NROBJ:=0; EDITLEVEL;
1072       END; {CREATE MP}
1073       7:BEGIN
1074         INC(B.LRACE); INC(B.LTOTAL); II:=B.LSINGLE+B.LMULTI+B.LRACE;
1075         FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1];
1076         INC(B.LTO[7]); IF B.LFROM[7]=0THEN INC(B.LFROM[7]);
1077         L[II].ID:='Track #'+NR(II); L[II].NAME:=ZERO(B.LRACE,2);
1078         L[II].DELAY:=4; L[II].GROWTH:=15;
1079         L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;
1080         L[II].W[1].D:=$40; L[II].W[1].X:=2; L[II].W[1].Y:=23;
1081         L[II].W[2].D:=$C0; L[II].W[2].X:=125; L[II].W[2].Y:=23;
1082         L[II].W[3].D:=$40; L[II].W[3].X:=2; L[II].W[3].Y:=35;
1083         L[II].W[4].D:=$C0; L[II].W[4].X:=125; L[II].W[4].Y:=35;
1084         L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0;
1085         L[II].FLAG1X:=8; L[II].FLAG2X:=128-8-B.SPRSIZE;
1086         L[II].FLAG1Y:=27; L[II].FLAG2Y:=27;
1087         EDITLEVEL;
1088       END; {CREATE RACE}
1089       8:BEGIN
1090         INC(B.LCTF); INC(B.LTOTAL); II:=B.LTOTAL;
1091         INC(B.LTO[8]); IF B.LFROM[8]=0THEN INC(B.LFROM[8]);
1092         L[II].ID:='Field #'+NR(II); L[II].NAME:=ZERO(B.LCTF,2);
1093         L[II].DELAY:=4; L[II].GROWTH:=15;
1094         L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;
1095         L[II].W[1].D:=$40; L[II].W[1].X:=2; L[II].W[1].Y:=23;
1096         L[II].W[2].D:=$C0; L[II].W[2].X:=125; L[II].W[2].Y:=23;
1097         L[II].W[3].D:=$40; L[II].W[3].X:=2; L[II].W[3].Y:=35;
1098         L[II].W[4].D:=$C0; L[II].W[4].X:=125; L[II].W[4].Y:=35;
1099         L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0;
1100         L[II].FLAG1X:=8; L[II].FLAG2X:=128-8-B.SPRSIZE;
1101         L[II].FLAG1Y:=27; L[II].FLAG2Y:=27;
1102         EDITLEVEL;
1103       END; {CREATE CTF}
1104     END; {HANDLE}
1105   UNTIL III=-1; III:=0;
1106 END; {EDITLVL}
1107
1108 PROCEDURE EDITSETS;
1109 BEGIN
1110   REPEAT
1111     TITLEBAR(0,'CHANGE DEFAULTS');
1112     TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': HISCORE NAME ');
1113       TEXTCOLOR(C_VALUE); WRITELN('(',B.HINAME,')');
1114     TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': END TYPE ');
1115       TEXTCOLOR(C_VALUE); WRITELN('(',ENDTYPE[B.ENDTYPE],')');
1116     CASE B.ENDTYPE OF
1117       1:BEGIN
1118         TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITE(': EDIT MESSAGE ');
1119         TEXTCOLOR(C_VALUE); WRITE('(',COPY(B.ENDSTR,1,18));
1120         IF LENGTH(B.ENDSTR)>18THEN WRITELN('...)')ELSE WRITELN(')');
1121       END; {MSG}
1122       ELSE BEGIN TEXTCOLOR(C_TEXT); WRITELN('3: CONFIGURE END'); END; {NOTN}
1123     END; {TYPE}
1124     TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE SIZE ');
1125     TEXTCOLOR(C_VALUE); WRITELN('(',B.SPRSIZE,')');
1126     FOR I:=1TO B.SPRSIZE DO BEGIN
1127       TEXTCOLOR(C_MENU); WRITE(I+4); TEXTCOLOR(C_TEXT); WRITE(': EDIT '); TEXTCOLOR(C_VALUE);
1128       WRITELN(BYTE2STR(B.SPRITE[I],B.SPRSIZE));
1129     END; {DISP SPRITE}
1130
1131     III:=EDITMENU(4+B.SPRSIZE,0);
1132     CASE III OF
1133       1:BEGIN
1134         S:=INPUTSTR('DEFAULT NAME OF HISCORES','LENGTH 3 CHARS',B.HINAME,3);
1135         FOR I:=1TO 3DO B.HINAME[I]:=S[I];
1136       END; {HINAME}
1137       2:BEGIN
1138         FOR II:=0TO 1DO WRITE(NR(II)+': '+ENDTYPE[II]+CC(' ',40-ORD(ENDTYPE[II,0])));
1139         B.ENDTYPE:=INPUTINT('ENTER NEW END TYPE',S,0,0,1);
1140         IF B.ENDTYPE=1THEN B.ENDSTR:='Congratulations!!';
1141       END; {ENDTYPE}
1142       3:BEGIN
1143         IF B.ENDTYPE=1THEN
1144           B.ENDSTR:=INPUTSTR('ENTER NEW END MESSAGE','MAX 255 CHARS','Congratulations!!',255);
1145       END; {ENDCONF}
1146       4:BEGIN
1147         I:=INPUTINT('ENTER THE DEFAULT SPRITE SIZE','CAN BE CHANGED PER LEVEL',1,B.SPRSIZE,8);
1148         IF I>B.SPRSIZE THEN FOR I4:=B.SPRSIZE+1TO I DO B.SPRITE[I4]:=0;
1149         B.SPRSIZE:=I;
1150       END; {SPRSIZE}
1151       ELSE IF III>4THEN BEGIN
1152         S:=INPUTSTR('ENTER NEW LINE #'+NR(III-4)+' OF SPRITE','EXAMPLE: 100101 = X��X�X',
1153           ZERO(BYTE2BIN(B.SPRITE[III-4]),8),8);
1154         B.SPRITE[III-4]:=STR2BYTE(S);
1155       END; {SPREDIT}
1156     END; {HANDLE}
1157   UNTIL III=-1; III:=0;
1158 END; {EDITSETS}
1159
1160 PROCEDURE EDITMAIN;
1161 BEGIN
1162   REPEAT
1163     TITLEBAR(4,UPCS(B.NAME));
1164     TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT TITLE');
1165     TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DEFAULTS');
1166     TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': GAME TYPES');
1167     TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': LEVELS');
1168       TEXTCOLOR(C_VALUE); WRITE(' (',B.LTOTAL,')');
1169
1170     III:=EDITMENU(4,3);
1171     CASE III OF
1172       1:B.NAME:=INPUTSTR('ENTER NEW TITLE FOR THIS LEVELFILE','NOTE TI-86 DISPLAYS ONLY 22 CHARS ON THEFIRST LINE',
1173           B.NAME,32); {TITLE}
1174       2:EDITSETS;
1175       3:EDITGAME;
1176       4:EDITLVL;
1177     END; {HANDLE}
1178   UNTIL III=-1; III:=0;
1179 END; {EDITMAIN}
1180
1181 PROCEDURE OPENFILE;
1182 BEGIN
1183   ASSIGN(F,FILENAME+'.LVL'); {$I-} RESET(F,1); {$I+} I:=IORESULT;
1184   IF I<>0THEN BEGIN
1185     TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT);
1186     WRITELN('FAILED OPENING LEVEL FILE!'); WRITELN('RUNTIME ERROR #',I); HALT;
1187   END; {CAN'T OPEN}
1188   {$I-} BLOCKREAD(F,B,SIZEOF(B));
1189         FOR I:=1TO B.LTOTAL DO BLOCKREAD(F,L[I],SIZEOF(L[I])); {$I+}
1190   IF(IORESULT<>0)OR(B.HEAD<>HEADEDIT)THEN BEGIN
1191     TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT);
1192     WRITELN('ERROR READING LEVEL FILE!');
1193     CLOSE(F); HALT;
1194   END; {ERROR}
1195   IF B.VERSION<>HEADVERSION THEN BEGIN
1196     WRITELN('CAN''T READ FILE VERSION ',B.VERSION,'.'); CLOSE(F); HALT;
1197   END; {VERSION}
1198   FSIZE:=FILESIZE(F); CLOSE(F);
1199 END; {OPENFILE}
1200
1201 PROCEDURE FILESAVE;
1202 BEGIN
1203   ASSIGN(F,FILENAME+'.LVL'); REWRITE(F,1);
1204   BLOCKWRITE(F,B,SIZEOF(B));
1205   FOR I:=1TO B.LTOTAL DO BLOCKWRITE(F,L[I],SIZEOF(L[I]));
1206   CLOSE(F);
1207 END; {FILESAVE}
1208
1209 PROCEDURE FILECOMP;
1210 VAR ISTACK:WORD;
1211 PROCEDURE SAVELEVEL(SAVEWORMS:BYTE);
1212 BEGIN
1213   IF II>B.LSINGLE THEN BEGIN
1214     BLOCKWRITE(FF,L[II].NAME[1],LENGTH(L[II].NAME)); I:=0; BLOCKWRITE(FF,I,1);
1215   END; {LEVEL_NAME}
1216   BLOCKWRITE(FF,L[II].PEAS,1);
1217   BLOCKWRITE(FF,L[II].DELAY,1);
1218   BLOCKWRITE(FF,L[II].GROWTH,1);
1219   BLOCKWRITE(FF,L[II].BSIZE,1);
1220   BLOCKWRITE(FF,L[II].SPRSIZE,1);
1221   BLOCKWRITE(FF,L[II].SPRITE,L[II].SPRSIZE);
1222   BLOCKWRITE(FF,L[II].NRBALLS,1);
1223   BLOCKWRITE(FF,L[II].BALLS,L[II].NRBALLS*3);
1224   BLOCKWRITE(FF,L[II].W[1].D,3*SAVEWORMS); {D,X,Y}
1225   BLOCKWRITE(FF,L[II].FIELDX,2); {FIELDX,FIELDY}
1226   IF II>B.LSINGLE+B.LMULTI THEN BLOCKWRITE(FF,L[II].FLAG1Y,2); {FLAG1Y,FLAG1X}
1227   IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BLOCKWRITE(FF,L[II].FLAG2Y,2); {FLAG2Y,FLAG2X}
1228   FOR I:=1TO L[II].NROBJ DO BEGIN
1229     IF L[II].OBJ[I].TYP>0THEN BEGIN
1230       BLOCKWRITE(FF,L[II].OBJ[I].TYP,4);
1231       IF(L[II].OBJ[I].TYP=3)AND(L[II].OBJ[I].Y2+L[II].OBJ[I].Y1=255)THEN BEGIN
1232         I4:=MAX(57,L[II].FIELDY)-L[II].OBJ[I].Y1; BLOCKWRITE(FF,I4,1);
1233       END {OFFSCREEN} ELSE BLOCKWRITE(FF,L[II].OBJ[I].Y2,1);
1234     END; {VALID}
1235   END; {OBJS}
1236   I:=0; BLOCKWRITE(FF,I,1); {LVL END}
1237 END; {COMMONSAVELEVEL}
1238 BEGIN
1239   ASSIGN(FF,FILENAME+'.86S'); REWRITE(FF,1);
1240
1241   BLOCKWRITE(FF,HEAD86S[1],ORD(HEAD86S[0])); {86S-HEADER}
1242   ISTACK:=COMPSIZE; BLOCKWRITE(FF,ISTACK,2); {FILE LENGTH (x+$12)}
1243   I:=$000C; BLOCKWRITE(FF,I,2); {STRING ID}
1244   DEC(ISTACK,$10); BLOCKWRITE(FF,ISTACK,2); {DATA LENGTH (x+2)}
1245
1246   I:=$080C; BLOCKWRITE(FF,I,2); {STRING ID}
1247   S:=LOCS(FILENAME); FOR I:=ORD(S[0])+1TO 8DO S[I]:=#0;
1248   BLOCKWRITE(FF,S[1],8); {PRGNAME}
1249   BLOCKWRITE(FF,ISTACK,2); {DATA LENGTH (x+2)}
1250   DEC(ISTACK,2); BLOCKWRITE(FF,ISTACK,2); {PROG LENGTH (x)}
1251
1252   C:='w'; BLOCKWRITE(FF,C,1); {WORM ID}
1253   I:=HEADVERSION; BLOCKWRITE(FF,I,1); {VERSION}
1254   BLOCKWRITE(FF,B.NAME[1],ORD(B.NAME[0])); {TITLE}
1255   I:=0; BLOCKWRITE(FF,I,1); {STRING TERMINATOR #0}
1256   I:=1+B.SPRSIZE+2;
1257   FOR II:=B.LFROM[1]TO B.LSINGLE+B.LMULTI DO I:=I+L[II].SIZE;
1258   IF B.LFROM[7]>0THEN {RACE LEVELS}
1259     FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7]
1260      DO I:=I+L[II].SIZE;
1261   IF B.LFROM[8]>0THEN {CTF LEVELS}
1262     FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8]
1263      DO I:=I+L[II].SIZE;
1264   BLOCKWRITE(FF,I,2); {SIZE}
1265
1266   I2:=0; I:=$F401+B.SPRSIZE;
1267   IF B.LSINGLE=0THEN BLOCKWRITE(FF,I2,2)ELSE BEGIN
1268     BLOCKWRITE(FF,I,2); FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE);
1269   END; {SINGLLVLS} INC(I,1+ORD(B.ENDDATA[0]));
1270   ISTACK:=I; FOR II:=2TO 6DO BEGIN
1271     I:=ISTACK; IF B.LFROM[II]=0THEN I:=0 ELSE
1272       FOR III:=B.LSINGLE TO B.LSINGLE+B.LFROM[II]-2DO
1273         INC(I,L[III].SIZE);
1274     BLOCKWRITE(FF,I,2);
1275   END; {LOC}
1276   FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO INC(ISTACK,L[II].SIZE);
1277   I:=0; IF B.LRACE=0THEN BLOCKWRITE(FF,I,2)ELSE BLOCKWRITE(FF,ISTACK,2);
1278   FOR II:=B.LSINGLE+B.LMULTI+1TO B.LSINGLE+B.LMULTI+B.LRACE DO INC(ISTACK,L[II].SIZE);
1279   IF B.LCTF=0THEN BLOCKWRITE(FF,I,2)ELSE BLOCKWRITE(FF,ISTACK,2);
1280
1281   FOR II:=1TO 8DO BEGIN
1282     IF B.LFROM[II]=0THEN I:=0 ELSE I:=B.LTO[II]-B.LFROM[II]+1;
1283     BLOCKWRITE(FF,I,1);
1284   END; {NR}
1285
1286   BLOCKWRITE(FF,B.SPRSIZE,1);
1287   BLOCKWRITE(FF,B.SPRITE,B.SPRSIZE);
1288
1289   IF B.LFROM[1]>0THEN
1290     FOR II:=B.LFROM[1]TO B.LSINGLE DO SAVELEVEL(1); {LEVELS SINGLEPL}
1291   I:=255; BLOCKWRITE(FF,I,1); {END}
1292   BLOCKWRITE(FF,B.ENDDATA[1],ORD(B.ENDDATA[0])); {CODE}
1293
1294   IF B.LMULTI>0THEN
1295     FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO SAVELEVEL(4); {LEVELS MULTIPL}
1296
1297   IF B.LFROM[7]>0THEN
1298     FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7]
1299      DO SAVELEVEL(4); {LEVELS RACE}
1300
1301   IF B.LFROM[8]>0THEN
1302     FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8]
1303      DO SAVELEVEL(4); {LEVELS CTF}
1304
1305   I:=0; I2:=1; IF B.LFROM[2]>0THEN I2:=I2+1+B.LTO[2]-B.LFROM[2];
1306   IF B.LFROM[3]>0THEN I2:=I2+1+B.LTO[3]-B.LFROM[3];
1307   FOR II:=1TO I2 DO BEGIN BLOCKWRITE(FF,I,2); BLOCKWRITE(FF,B.HINAME,3); END; {HI}
1308
1309   SEEK(FF,$37); I2:=0; I:=0;
1310   REPEAT INC(I,I2); BLOCKREAD(FF,I2,1,ISTACK); UNTIL ISTACK<>1;
1311   BLOCKWRITE(FF,I,2); {CHECKSUM}
1312 END; {FILECOMP}
1313
1314 PROCEDURE EDITQUIT;
1315 BEGIN
1316   REPEAT
1317     TITLEBAR(0,'CHOOSE LEVELFILE');
1318     TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': COMPILE, SAVE AND QUIT');
1319     TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': SAVE ');
1320       TEXTCOLOR(C_VALUE); WRITELN(FILENAME,'.LVL');
1321     TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': QUIT');
1322     TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': CONTINUE EDITING');
1323     WRITELN; III:=EDITMENU(4,0);
1324     CASE III OF
1325       1:BEGIN
1326         FILESAVE; FILECOMP; HALT;
1327       END; {COMPILE}
1328       2:FILESAVE;
1329       3:BEGIN
1330         WINDOW(1,8,40,8);
1331         WRITE('REALLY QUIT '); TEXTCOLOR(C_SUB); WRITE('[Y/N]'); TEXTCOLOR(C_TEXT);
1332         WRITE('> '); REPEAT C:=READKEY; UNTIL(UPCASE(C)='Y')OR(UPCASE(C)='N');
1333         IF UPCASE(C)='Y'THEN HALT;
1334       END; {QUIT}
1335     END; {HANDLE}
1336   UNTIL III=4;
1337 END; {EDITQUIT}
1338
1339 PROCEDURE EDITFILE;
1340 VAR SFILE:SEARCHREC;
1341     FILESFOUND:INTEGER;
1342     SFILES:ARRAY[3..9]OF STRING[12];
1343 BEGIN
1344   FINDFIRST('*.LVL',$3F,SFILE); FILESFOUND:=2;
1345   WHILE DOSERROR=0DO BEGIN
1346     INC(FILESFOUND); IF FILESFOUND>9THEN BREAK;
1347     SFILES[FILESFOUND]:=SFILE.NAME; FINDNEXT(SFILE);
1348   END; {FIND MORE LEVELS}
1349   REPEAT
1350     TITLEBAR(0,'CHOOSE LEVELFILE');
1351     TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE NEW FILE');
1352     TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT EXISTING');
1353     FOR III:=3TO FILESFOUND DO BEGIN
1354       TEXTCOLOR(C_MENU); WRITE(III); TEXTCOLOR(C_TEXT); WRITE(': EDIT');
1355       TEXTCOLOR(C_VALUE); WRITELN(' ',SFILES[III]);
1356     END; {DISPLAY FOUND FILES}
1357
1358     III:=EDITMENU(FILESFOUND,2);
1359     CASE III OF
1360       -1:HALT;
1361       1:BEGIN
1362         FILENAME:=INPUTSTR('ENTER LEVELNAME','8 CHARS MAX; W/O EXTENSION','WORMLVL1',8);
1363         IF NOT FILEEXIST(FILENAME+'.LVL')THEN FILESAVE;
1364         OPENFILE;
1365       END; {NEW}
1366       2:BEGIN
1367         FILENAME:=INPUTSTR('ENTER FILENAME','W/O EXTENSION','WORMLVL1',8);
1368         OPENFILE;
1369       END; {EDIT}
1370       3..9:BEGIN
1371         WINDOW(1,15,40,24);
1372         FILENAME:=COPY(SFILES[III],1,POS('.LVL',SFILES[III])-1); OPENFILE;
1373       END; {WORMLVL1}
1374     END; {HANDLE}
1375   UNTIL III<>0;
1376 END; {EDITFILE}
1377
1378
1379 BEGIN
1380  {M 16384,0,655360}
1381  {$M 16384,0,655360}
1382   MAINTITLE; EDITFILE;
1383   REPEAT EDITMAIN; EDITQUIT; UNTIL TRUE=FALSE;
1384 END.