wormedit.pas

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