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