10 SPRITE:ARRAY[1..8]OF BYTE;
12 BALLS:ARRAY[1..32]OF RECORD
13 Y,X,D:BYTE; {Z:%00=right+down, %11=left+up}
15 W:ARRAY[1..4]OF RECORD
22 OBJ:ARRAY[1..32]OF RECORD
23 TYP:SHORTINT;X1,Y1,X2,Y2:BYTE;
27 CONST GAMETYPE:ARRAY[1..8]OF STRING[12] =
28 ('SINGLEPLAYER','PEAWORM','TRON','DEATHMATCH',
29 'FOODMATCH','TIMEMATCH','RACE','CTF');
31 OBJTYPE:ARRAY[0..4]OF STRING[8] =
32 ('NONE','LINE','FAT LINE','BAR','CIRCLE');
34 ENDTYPE:ARRAY[0..1]OF STRING[8] =
38 ('**TI86**'+#$1A+#$A+#0+ {HEADER}
39 'Levelfile for Worm 0�95 made with WormEdit'); {COMMENT}
41 HEADEDIT = ('WormEdit�95'+#0+'LVL');
45 HEAD:ARRAY[1..15]OF CHAR;
48 LSINGLE,LMULTI,LRACE,LCTF,LTOTAL:BYTE;
49 LFROM:ARRAY[1..8]OF BYTE;
50 LTO:ARRAY[1..8]OF BYTE;
52 SPRITE:ARRAY[1..8]OF BYTE;
56 HINAME:ARRAY[1..3]OF CHAR;
60 NAME:'Custom Worm Level';
61 LSINGLE:0; LMULTI:0; LRACE:0; LCTF:0; LTOTAL:0;
62 LFROM:(0,0,0,0,0,0,0,0);
63 LTO:(0,0,0,0,0,0,0,0);
65 SPRITE:(6*16,15*16,15*16,6*16,0,0,0,0);
95 L:ARRAY[1..64]OF ONELEVEL;
104 SETTEXT; SETPAL(3,44,44,32);
105 WINDOW(1,1,80,25); TEXTBACKGROUND(CB_TEXT); CLRSCR;
106 TEXTCOLOR(CB_BAR); WRITE('���������������������������<');
107 TEXTCOLOR(14); WRITE(' WormEdit � ');
108 TEXTCOLOR(15); WRITE(' by SHIAR ');
109 TEXTCOLOR(CB_BAR); WRITE('>�����������������������������');
110 WINDOW(41,2,41,25); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); WRITE(CC('�',23));
111 WINDOW(1,25,80,25); TEXTBACKGROUND(CB_BAR); CLRSCR;
112 GOTOXY(75,1); TEXTCOLOR(0); WRITE('v0.94'); TEXTBACKGROUND(CB_TEXT);
115 PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER);
116 BEGIN {REPLACEMENT_PUTPIXEL}
117 MEM[SEG(WHERE^)+Y*20:OFS(WHERE^)+X]:=COL;
120 PROCEDURE LINE(X,Y,XX,YY:INTEGER;COL:BYTE;WHERE:POINTER);
121 VAR LINE1,LINE2,SX,SY,SXY,SYX,DX1,DX2,DY1,DY2:INTEGER;
122 BEGIN {JUST_A_SIMPLE_LINE_PROCEDURE}
123 SX:=XX-X; SY:=YY-Y; DX1:=SGN(SX); DX2:=DX1; DY1:=SGN(SY); DY2:=0;
124 SXY:=ABS(SX); SYX:=ABS(SY);
125 IF SYX>SXY THEN BEGIN
126 DY2:=DY1; DX2:=0; LINE1:=SXY; SXY:=SYX; SYX:=LINE1;
129 FOR LINE2:=0TO SXY DO BEGIN
130 PUTPIXEL(X,Y,COL,WHERE);
132 IF LINE1<SXY THEN BEGIN
133 INC(X,DX2); INC(Y,DY2);
134 END {STRAIGT_AHEAD} ELSE BEGIN
136 INC(X,DX1); INC(Y,DY1);
141 PROCEDURE DISPMAP(OBJ:INTEGER;WHERE:POINTER);
143 PROCEDURE CIRCLE(X,Y,Z,COL:BYTE);
144 VAR XX,YY,ZZ:INTEGER;
146 XX:=-1; YY:=Z; ZZ:=-Z;
149 LINE(X-XX,Y+YY,X+XX,Y+YY,COL,WHERE);
150 LINE(X-XX,Y-YY,X+XX,Y-YY,COL,WHERE);
151 LINE(X-YY,Y+XX,X+YY,Y+XX,COL,WHERE);
152 LINE(X-YY,Y-XX,X+YY,Y-XX,COL,WHERE);
153 IF ZZ>=0 THEN BEGIN ZZ:=ZZ-(YY SHL 1)+2; DEC(YY); END;
157 PROCEDURE DRAW4PIX(D4X,D4Y:INTEGER;D4XSIZE,D4YSIZE,COL:BYTE);
158 VAR D4LOOPX,D4LOOPY:BYTE;
160 FOR D4LOOPX:=0TO D4XSIZE-1DO FOR D4LOOPY:=0TO D4YSIZE-1DO
161 PUTPIXEL(D4X+D4LOOPX,D4Y+D4LOOPY,COL,WHERE);
163 PROCEDURE DISPOBJ(OBJ:INTEGER;COL:BYTE);
166 CASE L[II].OBJ[OBJ].TYP OF
167 1:LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL,WHERE);
169 LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL,WHERE);
170 LINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2,COL,WHERE);
171 LINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2+1,COL,WHERE);
172 LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2+1,COL,WHERE);
175 FOR Y:=L[II].OBJ[OBJ].Y1 TO L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1DO
176 LINE(L[II].OBJ[OBJ].X1,MIN(Y,191),L[II].OBJ[OBJ].X2,MIN(Y,191),COL,WHERE);
178 4:CIRCLE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,COL);
182 I:=7; WHILE I<=255DO BEGIN LINE(I,0,I,191,2,WHERE); INC(I,8); END; {GRID}
183 I:=0; WHILE I<=191DO BEGIN LINE(0,I,255,I,2,WHERE); INC(I,8); END;
184 I:=127; WHILE I<=255DO BEGIN LINE(I,0,I,191,6,WHERE); INC(I,128); END;
185 I:=0; WHILE I<=191DO BEGIN LINE(0,I,255,I,6,WHERE); INC(I,56); END;
187 FOR I:=2TO L[II].FIELDX-2DO BEGIN
188 IF I MOD 2=0THEN PUTPIXEL(I,L[II].FIELDY SHR 1,4,WHERE)
189 ELSE PUTPIXEL(I,L[II].FIELDY SHR 1,2,WHERE);
191 IF L[II].FIELDY MOD 2=0THEN
192 FOR I:=2TO L[II].FIELDX-2DO BEGIN
193 IF I MOD 2=1THEN PUTPIXEL(I,L[II].FIELDY SHR 1-1,4,WHERE)
194 ELSE PUTPIXEL(I,L[II].FIELDY SHR 1-1,2,WHERE);
196 FOR I:=2TO L[II].FIELDY-2DO BEGIN
197 IF I MOD 2=0THEN PUTPIXEL(L[II].FIELDX SHR 1,I,4,WHERE)
198 ELSE PUTPIXEL(L[II].FIELDX SHR 1,I,2,WHERE);
200 IF L[II].FIELDX MOD 2=0THEN
201 FOR I:=2TO L[II].FIELDY-2DO BEGIN
202 IF I MOD 2=1THEN PUTPIXEL(L[II].FIELDX SHR 1-1,I,4,WHERE)
203 ELSE PUTPIXEL(L[II].FIELDX SHR 1-1,I,2,WHERE);
205 IF(II>B.LSINGLE+B.LMULTI)AND(II<=B.LSINGLE+B.LMULTI+B.LRACE)THEN BEGIN
206 LINE(L[II].FLAG1Y,0,L[II].FLAG1Y,L[II].FLAG1X,22,WHERE);
207 LINE(L[II].FLAG1Y,L[II].FLAG1X,L[II].FLAG1Y,L[II].FIELDY-1,24,WHERE);
208 LINE(0,L[II].FLAG1X,L[II].FIELDX-1,L[II].FLAG1X,16,WHERE);
210 IF II<=B.LSINGLE THEN I:=1 ELSE I:=4;
211 FOR I:=1TO I DO BEGIN
212 CIRCLE(L[II].W[I].X,L[II].W[I].Y,2,14);
213 LINE(L[II].W[I].X,L[II].W[I].Y,L[II].W[I].X+ROUND(SIN(L[II].W[I].D/128*PI)*20),
214 L[II].W[I].Y+ROUND(COS(L[II].W[I].D/128*PI)*20),16,WHERE);
215 LINE(L[II].W[I].X,L[II].W[I].Y,L[II].W[I].X+ROUND(SIN((L[II].W[I].D-13)/128*PI)*15),
216 L[II].W[I].Y+ROUND(COS((L[II].W[I].D-13)/128*PI)*15),14,WHERE);
217 LINE(L[II].W[I].X,L[II].W[I].Y,L[II].W[I].X+ROUND(SIN((L[II].W[I].D+13)/128*PI)*15),
218 L[II].W[I].Y+ROUND(COS((L[II].W[I].D+13)/128*PI)*15),14,WHERE);
219 PUTPIXEL(L[II].W[I].X,L[II].W[I].Y,0,WHERE);
221 IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
222 IF L[II].SPRSIZE>0THEN I:=L[II].SPRSIZE ELSE I:=B.SPRSIZE;
223 DRAW4PIX(L[II].FLAG1X,L[II].FLAG1Y,I,I,22); {FLAGS}
224 DRAW4PIX(L[II].FLAG2X,L[II].FLAG2Y,I,I,24);
226 LINE(0,0,255,0,8,WHERE); LINE(0,1,255,1,8,WHERE); {BORDERS}
227 LINE(0,2,0,190-3,8,WHERE); LINE(1,2,1,190-3,8,WHERE);
228 LINE(MAX(126,L[II].FIELDX-2),2,MAX(126,L[II].FIELDX-2),L[II].FIELDY-1,8,WHERE);
229 LINE(MAX(127,L[II].FIELDX-1),2,MAX(127,L[II].FIELDX-1),L[II].FIELDY-1,8,WHERE);
230 LINE(0,L[II].FIELDY-2,L[II].FIELDX-1,L[II].FIELDY-2,8,WHERE);
231 LINE(0,L[II].FIELDY-1,L[II].FIELDX-1,L[II].FIELDY-1,8,WHERE);
232 FOR OBJ2:=1TO L[II].NROBJ DO IF OBJ2<>OBJ THEN DISPOBJ(OBJ2,10); {OBJS}
233 IF(OBJ>0)AND(OBJ<=L[II].NROBJ)THEN DISPOBJ(OBJ,12); {HIGHLIGHTED_OBJ}
234 FOR OBJ2:=1TO L[II].NRBALLS DO
235 DRAW4PIX(L[II].BALLS[OBJ2].X,L[II].BALLS[OBJ2].Y,2,2,12); {BOUNCIES}
238 PROCEDURE DISPMAPMCGA(OBJ:INTEGER);
241 SETPAL(2,16,0,0); {GRID} SETPAL(4,24,0,0); {MID} SETPAL(6,32,0,0); {MAINGRID}
242 SETPAL(8,63,63,63); {BORDER}
243 SETPAL(10,48,48,48); {OBJ} SETPAL(12,63,63,20); {HL_OBJ} SETPAL(14,63,0,0); {STARTPOS}
244 SETPAL(16,63,16,0); {STLN}SETPAL(22,0,0,63); {FLAG1} SETPAL(24,0,63,0); {FLAG2}
246 SETPAL(1,32,0,0); {BACK}
247 SETPAL(3,40,0,0); {GRID} SETPAL(3,44,0,0); {GRID} SETPAL(5,48,0,0); {MAINGRID} SETPAL(9,63,0,0); {BORDER}
248 SETPAL(11,63,0,0); {OBJ} SETPAL(13,63,0,0); {HL_OBJ} SETPAL(15,63,0,0); {STARTPOS}
249 SETPAL(17,52,0,0); {STLN}SETPAL(23,63,0,0); {FLAG1} SETPAL(25,63,0,0); {FLAG2}
250 DISPMAP(OBJ,PTR(VGA,0));
253 PROCEDURE DISP1MAP(OBJ:INTEGER);
256 {TYPE SCRN = ARRAY[0..199,0..319]OF BYTE;
261 FOR I:=0 TO 199DO FOR I2:=0 TO 319DO VIRT^[I,I2]:=0; DISPMAP(OBJ,VIRT);
263 FOR I:=0 TO 19DO FOR I2:=0 TO 79DO BEGIN
264 I1X:=ROUND(I2*L[II].FIELDX/80); I1Y:=ROUND(I*L[II].FIELDY/20);
265 CASE VIRT^[I1Y,I1X]OF
272 10..12:TEXTCOLOR(12);
277 PROCEDURE PPLINE(X,Y,XX,YY:INTEGER;COL:BYTE);
278 VAR LINE1,LINE2,SX,SY,SXY,SYX,DX1,DX2,DY1,DY2:INTEGER;
280 SX:=XX-X; SY:=YY-Y; DX1:=SGN(SX); DX2:=DX1; DY1:=SGN(SY); DY2:=0;
281 SXY:=ABS(SX); SYX:=ABS(SY);
282 IF SYX>SXY THEN BEGIN
283 DY2:=DY1; DX2:=0; LINE1:=SXY; SXY:=SYX; SYX:=LINE1;
286 FOR LINE2:=0TO SXY DO BEGIN
287 PUTPIXEL(X,Y,GETPIXEL(X,Y,VGA)OR 1-COL,PTR(VGA,0));
289 IF LINE1<SXY THEN BEGIN
290 INC(X,DX2); INC(Y,DY2);
291 END {STRAIGT_AHEAD} ELSE BEGIN
293 INC(X,DX1); INC(Y,DY1);
298 DISPMAPMCGA(OBJ); CLRKEY;
300 GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;}
301 PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
303 PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
304 IF M1 THEN PPLINE(MXX,MYY,MX,MY,0);
305 IF M2 THEN PPLINE(MXX,MYY,MX,MY,1);
307 UNTIL KEYPRESSED; MAINTITLE;
310 PROCEDURE MAPOBJ(OBJ,XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER);
313 DISPMAPMCGA(OBJ); CLRKEY;
315 GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;}
316 IF MX<XMIN THEN MX:=XMIN; IF MX>XMAX THEN MX:=XMAX;
317 IF MY<YMIN THEN MY:=YMIN; IF MY>YMAX THEN MY:=YMAX;
318 IF M2 THEN BEGIN MX:=XDEF; MY:=YDEF; END; {R_BUTTON}
319 PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0)); DELAY(10);
320 PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
321 UNTIL(KEYPRESSED)OR(M1); MAINTITLE;
324 FUNCTION NR(VALUE:LONGINT):STRING;
327 STR(VALUE,NRSTR); NR:=NRSTR;
330 PROCEDURE HELPBAR(HELPPAGE:BYTE);
333 IF HELPPAGE=0 THEN BEGIN
334 TEXTCOLOR(C_GRID); WRITE('�'); WINDOW(42,14,80,24); CLRSCR; EXIT;
336 TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_GRID); WRITE('�'); TEXTCOLOR(C_BAR);
337 WRITE('HELP',' ':39-4); WINDOW(42,15,80,24); TEXTBACKGROUND(CB_TEXT); TEXTCOLOR(C_TEXT);
338 CLRSCR; CASE HELPPAGE OF
339 1:WRITE('PRESS <F1> OR <H> FOR HELP');
340 2:WRITE('YOU UNDERSTAND EVERYTHING');
341 3:WRITE('THIS AIN''T A BUG, IT A FEATURE!');
342 4:WRITE('ALL YOUR WORMS ARE BELONG TO US!');
343 5:WRITE('PRESS UP AND DOWN TO VIEW ALL LEVELS');
344 6:WRITE('PRESS UP AND DOWN TO VIEW ALL OBJECTS');
345 END; {TEXT TO DISPLAY}
348 PROCEDURE DISPLEVELS;
350 WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
351 IF B.LTOTAL<1 THEN WRITELN('NONE PRESENT')ELSE
352 FOR II:=LVLPOS TO MIN(B.LTOTAL,LVLPOS+9)DO BEGIN
353 IF LVLDISP=1 THEN WRITE(II) {CONTINOUS}
354 ELSE IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN WRITE(II-B.LSINGLE-B.LMULTI-B.LRACE)ELSE
355 IF II>B.LSINGLE+B.LMULTI THEN WRITE(II-B.LSINGLE-B.LMULTI)ELSE
356 IF II>B.LSINGLE THEN WRITE(II-B.LSINGLE)ELSE WRITE(II); {SEPERATE}
357 IF II>=B.LFROM[1]THEN TEXTCOLOR(C_VALUE);
358 WRITELN(': '+L[II].ID); TEXTCOLOR(C_TEXT);
362 PROCEDURE DISPOBJECTS;
364 WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
365 IF L[II].NROBJ<1THEN WRITELN('NONE')
366 ELSE FOR I4:=OBJPOS TO MIN(L[II].NROBJ,OBJPOS+9)DO BEGIN
367 WRITE(I4); TEXTCOLOR(C_VALUE);
368 IF L[II].OBJ[I4].TYP>0 THEN BEGIN
369 WRITE(': ',OBJTYPE[L[II].OBJ[I4].TYP]);
370 WRITE(' (',L[II].OBJ[I4].X1,',',L[II].OBJ[I4].Y1,')-(');
371 CASE L[II].OBJ[I4].TYP OF
372 1,2:WRITELN(L[II].OBJ[I4].X2,',',L[II].OBJ[I4].Y2,')');
373 3:WRITELN(L[II].OBJ[I4].X2,',',L[II].OBJ[I4].Y1+L[II].OBJ[I4].Y2,')');
374 4:WRITELN(L[II].OBJ[I4].X2,')');
376 END {ENABLED} ELSE WRITELN(': DISABLED'); TEXTCOLOR(C_TEXT);
380 FUNCTION EDITMENU(EDITMENUMAX,HELPPAGE:BYTE):SHORTINT;
384 WINDOW(39,1,39,1); GOTOXY(1,1); REPEAT UNTIL KEYPRESSED; C:=READKEY;
385 IF C=' 'THEN EDITOK:=10 {10} ELSE
386 IF(C>='1')AND(C<=CHR(EDITMENUMAX+48))THEN EDITOK:=ORD(C)-48 {1..<=9} ELSE
387 IF(C=#27)OR(C='-')OR(C='+')THEN EDITOK:=-1 {EXIT} ELSE
388 IF UPCASE(C)='H'THEN HELPBAR(HELPPAGE) ELSE
389 IF C=#0THEN BEGIN C:=READKEY;
390 IF HELPPAGE=5THEN BEGIN
391 IF(C=#80)AND(LVLPOS<B.LTOTAL-9)THEN BEGIN INC(LVLPOS); DISPLEVELS; END {DOWN} ELSE
392 IF(C=#72)AND(LVLPOS>1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {UP} ELSE
393 END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
394 IF(C=#80)AND(OBJPOS<L[II].NROBJ-9)THEN BEGIN INC(OBJPOS); DISPOBJECTS; END {DOWN} ELSE
395 IF(C=#72)AND(OBJPOS>1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {UP} ELSE
397 IF C=#59THEN HELPBAR(HELPPAGE);
399 UNTIL EDITOK<>0; EDITMENU:=EDITOK;
402 FUNCTION COMPSIZE:WORD;
406 FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(I,5);
407 END; {SIZE OF LEVEL II}
409 I:=$31+B.SPRSIZE+ORD(B.NAME[0])+5;
410 IF B.LFROM[2]>0THEN I:=I+((1+B.LTO[2]-B.LFROM[2])*5);
411 IF B.LFROM[3]>0THEN I:=I+((1+B.LTO[3]-B.LFROM[3])*5);
412 IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO COMPLEVEL; {SP}
413 IF B.LMULTI>0THEN FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO COMPLEVEL; {MP}
415 FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7]DO COMPLEVEL; {CTF}
417 FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8]DO COMPLEVEL; {CTF}
421 1:B.ENDDATA:=#$21+#$F4+#$00+#$C3+#$37+#$4A+#$CD+#$AA+#$55+B.ENDSTR;
422 {LD HL,MSG\JP _PUTS\.DB MSG}
423 ELSE B.ENDDATA:=#$C9; {RET}
425 INC(I,ORD(B.ENDDATA[0]));
430 PROCEDURE TITLEBAR(BAR:SHORTINT;TITLNAME:STRING);
432 HELPBAR(0); WINDOW(41,2,42,2);
433 IF BAR=0THEN TEXTBACKGROUND(CB_TEXT)ELSE TEXTBACKGROUND(CB_BAR);
434 TEXTCOLOR(C_GRID); WRITE('�'); WINDOW(42,2,80,13); TEXTBACKGROUND(CB_TEXT); CLRSCR;
435 TEXTCOLOR(C_BAR); TEXTBACKGROUND(CB_BAR);
438 WRITE('LEVELS',' ':39-6); LVLDISP:=1; DISPLEVELS;
441 WRITE('LEVEL OBJECTS',' ':39-13); DISPOBJECTS;
444 WRITE('LEVEL INFO',' ':39-10); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT);
446 IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN WRITELN(' CTF #',II-B.LSINGLE-B.LMULTI-B.LRACE)ELSE
447 IF II>B.LSINGLE+B.LMULTI THEN WRITELN(' RACE #',II-B.LSINGLE-B.LMULTI)ELSE
448 IF II>B.LSINGLE THEN WRITELN(' MP #',II-B.LSINGLE)ELSE WRITELN;
449 WRITELN('LEVEL SIZE: ',L[II].SIZE);
450 IF II<=B.LSINGLE THEN WRITELN('SINGLEPLAYER')ELSE FOR I:=2TO 6DO
451 IF(II-B.LSINGLE>=B.LFROM[I])AND(II-B.LSINGLE<=B.LTO[I])THEN
452 WRITELN(GAMETYPE[I]);
455 WRITE(FILENAME,'.LVL',' ':35-ORD(FILENAME[0])); TEXTCOLOR(C_TEXT);
456 TEXTBACKGROUND(CB_TEXT); WRITE('FILE VERSION: '); TEXTCOLOR(C_VALUE);
457 WRITELN(B.VERSION); TEXTCOLOR(C_TEXT); WRITE('FILE SIZE: '); TEXTCOLOR(C_VALUE);
458 WRITE(FSIZE SHR 10); TEXTCOLOR(C_TEXT); WRITELN('kB');
459 WRITE('COMPILED: '); TEXTCOLOR(C_VALUE); WRITE(COMPSIZE); TEXTCOLOR(C_TEXT);
463 WRITE('LEVELS',' ':39-6); LVLDISP:=2; DISPLEVELS;
467 TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE(TITLNAME,' ':40-ORD(TITLNAME[0]));
468 WINDOW(1,3,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR;
471 FUNCTION INPUTSTR(ISTR,ICOM,IDEF:STRING;IMAX:BYTE):STRING;
472 VAR IVAL:STRING; IOK:BOOLEAN;
475 TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE('INPUT',' ':40-5);
476 WINDOW(1,15,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR;
478 TEXTCOLOR(C_TEXT); WRITELN(ISTR); TEXTCOLOR(C_SUB); WRITELN(ICOM);
479 TEXTCOLOR(C_SUB); WRITELN('ENTER FOR DEFAULT:'); WRITELN(IDEF);
480 TEXTCOLOR(C_TEXT); WRITE('> '); READLN(IVAL);
481 IF IVAL=''THEN IVAL:=IDEF;
482 IOK:=FALSE; IF ORD(IVAL[0])<=IMAX THEN IOK:=TRUE
483 ELSE BEGIN CLRSCR; WRITELN('OH NO, THAT''S TOO MUCH!'); END; {TOOLONG}
484 UNTIL IOK; INPUTSTR:=IVAL;
487 FUNCTION INPUTINT(ISTR,ICOM:STRING;IMIN,IDEF,IMAX:INTEGER):INTEGER;
488 FUNCTION READ:INTEGER;
489 VAR REI1:INTEGER; REI2:BYTE;
490 BEGIN {INPUTS POSITIVE INTEGER VALUE FROM KEYBOARD}
491 REI1:=0; {VALUE} REI2:=0; {SIZE}
493 REPEAT C:=READKEY; UNTIL C<>'';
495 #8,'+','-':IF REI2>0THEN BEGIN
496 REI1:=REI1 DIV 10; DEC(REI2); WRITE(#8+' '+#8);
498 '0'..'9':IF REI2<4THEN BEGIN
499 REI1:=REI1*10+ORD(C)-48; INC(REI2); WRITE(C);
501 #13:IF REI2=0THEN REI1:=-1; {ENTER}
503 UNTIL C=#13; {UNTIL ENTER PRESSED}
506 VAR IVAL:INTEGER; IOK:BOOLEAN;
509 TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE('INPUT',' ':40-5);
510 WINDOW(1,15,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR;
512 TEXTCOLOR(C_TEXT); WRITELN(ISTR); TEXTCOLOR(C_SUB); WRITELN(ICOM);
513 TEXTCOLOR(C_SUB); WRITE('(RANGE '); TEXTCOLOR(C_TEXT); WRITE(IMIN); TEXTCOLOR(C_SUB);
514 WRITE(' TO '); TEXTCOLOR(C_TEXT); WRITE(IMAX); TEXTCOLOR(C_SUB);
515 WRITE('; DEFAULT VALUE '); TEXTCOLOR(C_TEXT); WRITE(IDEF); TEXTCOLOR(C_SUB);
516 WRITELN(')'); TEXTCOLOR(C_TEXT); WRITE('> '); IVAL:=READ; IF IVAL=-1THEN IVAL:=IDEF;
517 IOK:=FALSE; IF(IVAL>=IMIN)AND(IVAL<=IMAX)THEN IOK:=TRUE
518 ELSE BEGIN CLRSCR; WRITELN('OUT OF RANGE!'); END; {OUTOFRANGE}
519 UNTIL IOK; INPUTINT:=IVAL;
523 LABEL EDITGAME1,EDITGAME2;
526 TITLEBAR(5,'EDIT GAMETYPES'); TEXTCOLOR(C_MENU); WRITE('1');
527 TEXTCOLOR(C_TEXT); WRITE(': SINGLEPLAYER ');
528 TEXTCOLOR(C_VALUE); IF(B.LSINGLE=0)OR(B.LFROM[1]=0)THEN WRITELN('(NO LEVELS)')
529 ELSE WRITELN('(',B.LTO[1]-B.LFROM[1]+1,' OF ',B.LSINGLE,')');
530 FOR II:=2TO 6DO BEGIN
531 TEXTCOLOR(C_MENU); WRITE(II); TEXTCOLOR(C_TEXT); WRITE(': '+GAMETYPE[II],' ');
532 TEXTCOLOR(C_VALUE); IF B.LFROM[II]=0THEN WRITELN('(NO LEVELS)')
533 ELSE WRITELN('(',B.LFROM[II],'-',B.LTO[II],')');
535 TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITE(': RACE '); TEXTCOLOR(C_VALUE);
536 IF B.LFROM[7]=0THEN WRITELN('(NO LEVELS)')ELSE WRITELN('(',B.LTO[7]-B.LFROM[7]+1,' OF ',B.LRACE,')');
537 TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITE(': CTF '); TEXTCOLOR(C_VALUE);
538 IF B.LFROM[8]=0THEN WRITE('(NO LEVELS)')ELSE WRITE('(',B.LTO[8]-B.LFROM[8]+1,' OF ',B.LCTF,')');
542 B.LFROM[1]:=INPUTINT('ENTER LEVELS TO SKIP','USE THIS TO TEMPORARILY REMOVE THE FIRSTFEW LEVELS',
543 0,0,MAX(0,B.LSINGLE-1)); INC(B.LFROM[1]);
544 B.LTO[1]:=INPUTINT('ENTER LEVELS SELECTABLE','THE HIGHEST LEVEL SOMEONE CAN START IN WITHOUT PLAYING IT EARLIER',
545 0,1,B.LSINGLE+1-B.LFROM[1]);
546 IF B.LTO[1]=0THEN B.LFROM[1]:=0 ELSE B.LTO[1]:=B.LTO[1]+B.LFROM[1]-1;
547 END {SINGLEPLAYER} ELSE IF III=7THEN BEGIN
548 B.LFROM[7]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LRACE);
550 B.LTO[7]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[7],B.LCTF,B.LCTF);
551 END {RACE} ELSE IF III=8THEN BEGIN
552 B.LFROM[8]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LCTF);
554 B.LTO[8]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[8],B.LCTF,B.LCTF);
555 END {CTF} ELSE IF III>0THEN BEGIN
556 B.LFROM[III]:=INPUTINT('ENTER NEW STARTING LEVEL',
557 'THAT LEVEL WILL BE LEVEL #1 IN GAMEMODE '+GAMETYPE[III]+'. 0=NO LEVELS',0,1,B.LMULTI);
558 IF B.LFROM[III]>0THEN
559 B.LTO[III]:=INPUTINT('ENTER LAST LEVEL NUMBER',NR(B.LMULTI)+' LEVELS PRESENT',
560 B.LFROM[III],B.LMULTI,B.LMULTI);
562 UNTIL III=-1; III:=0;
569 TITLEBAR(2,'EDIT OBJECT #'+NR(I)+' IN LEVEL '+NR(II));
570 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': OBJECT TYPE ');
571 III:=L[II].OBJ[I].TYP; TEXTCOLOR(C_VALUE); WRITELN('(',ABS(III),')');
573 IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT); WRITE('2'); TEXTCOLOR(C_TEXT);
574 IF ABS(L[II].OBJ[I].TYP)=4THEN WRITE(': OBJECT POSITION ')ELSE WRITE(': OBJECT BEGIN');
575 IF L[II].OBJ[I].TYP>0THEN BEGIN
576 TEXTCOLOR(C_VALUE); WRITELN(' (',L[II].OBJ[I].X1,',',L[II].OBJ[I].Y1,')');
577 END {PRESENT} ELSE WRITELN;
578 IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
579 WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SELECT');
580 IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT); WRITE('4'); TEXTCOLOR(C_TEXT);
581 IF ABS(L[II].OBJ[I].TYP)=4THEN WRITE(': OBJECT SIZE ')ELSE WRITE(': OBJECT END ');
582 TEXTCOLOR(C_VALUE); CASE L[II].OBJ[I].TYP OF
583 3:WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y1+L[II].OBJ[I].Y2,')');
584 4:WRITELN('(',L[II].OBJ[I].X2,')');
585 1..10:WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y2,')');
588 IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
589 WRITE('5'); TEXTCOLOR(C_TEXT); WRITELN(': SELECT');
590 TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITELN(': PREVIEW');
591 TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT);
592 IF L[II].OBJ[I].TYP<0THEN WRITE(': ENABLE')ELSE WRITE(': DISABLE');
593 END; {OBJECT PROPERTIES}
595 IF III<>0THEN III:=EDITMENU(7,6)ELSE III:=EDITMENU(1,6);
598 S:=''; FOR I4:=0TO 4DO S:=S+NR(I4)+': '+OBJTYPE[I4]+CC(' ',37-ORD(OBJTYPE[I4,0]));
599 L[II].OBJ[I].TYP:=INPUTINT('ENTER OBJECT TYPE',S,0,0,4);
600 S:='SCREEN=(2,2)-('+NR(L[II].FIELDX-3)+','+NR(L[II].FIELDY-3)+
601 '); CENTER=('+NR((L[II].FIELDX-1)SHR 1)+','+NR((L[II].FIELDY-1)SHR 1)+')';
602 IF L[II].OBJ[I].TYP=4 THEN BEGIN
603 L[II].OBJ[I].X1:=INPUTINT('ENTER X',S+
604 ' DO NOT MAKE CIRCLES LEFT OF THE SCREEN!',0,(L[II].FIELDX-1)SHR 1,255);
605 L[II].OBJ[I].Y1:=INPUTINT('ENTER Y',S+
606 ' DON''T TRY Y<0: MIGHT CRASH CALC!!!',0,(L[II].FIELDY-1)SHR 1,255);
607 L[II].OBJ[I].X2:=INPUTINT('ENTER SIZE',S,3,
608 MIN(L[II].FIELDY-3,L[II].FIELDX-3)SHR 2,MIN(L[II].FIELDY-3,L[II].FIELDX-3)SHR 1);
610 END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN
611 IF(L[II].OBJ[I].TYP=1)OR(L[II].OBJ[I].TYP=3)THEN I4:=2 ELSE I4:=3;
612 L[II].OBJ[I].X1:=INPUTINT('ENTER X1',S,2,(L[II].FIELDX-1)SHR 1,L[II].FIELDX-I4);
613 L[II].OBJ[I].Y1:=INPUTINT('ENTER Y1',S,2,(L[II].FIELDY-1)SHR 1,L[II].FIELDY-I4);
614 L[II].OBJ[I].X2:=INPUTINT('ENTER X2',S,2,(L[II].FIELDX-1)SHR 1,L[II].FIELDX-I4);
615 L[II].OBJ[I].Y2:=INPUTINT('ENTER Y2',S,2,(L[II].FIELDY-1)SHR 1,L[II].FIELDY-I4);
616 IF L[II].OBJ[I].TYP=3THEN BEGIN
617 IF L[II].OBJ[I].Y2<L[II].OBJ[I].Y1 THEN BEGIN
618 I4:=L[II].OBJ[I].Y2; L[II].OBJ[I].Y2:=L[II].OBJ[I].Y1;
620 END; {END BEFORE START}
621 L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1;
626 S:='SCREEN=(2,2)-('+NR(L[II].FIELDX-3)+','+NR(L[II].FIELDY-3)+
627 '); CENTER=('+NR((L[II].FIELDX-1)SHR 1)+','+NR((L[II].FIELDY-1)SHR 1)+')';
628 IF L[II].OBJ[I].TYP=4 THEN BEGIN
630 L[II].OBJ[I].X1:=INPUTINT('ENTER X',S+
631 ' BE CAREFUL DRAWING OFF-SCREEN!',0,L[II].OBJ[I].X1,255);
632 L[II].OBJ[I].Y1:=INPUTINT('ENTER Y',S,0,L[II].OBJ[I].Y1,255);
633 END {ENTER} ELSE BEGIN
634 MAPOBJ(I,0,L[II].OBJ[I].X1,255,0,L[II].OBJ[I].Y1,255);
635 L[II].OBJ[I].X1:=MX; L[II].OBJ[I].Y1:=MY;
637 END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN
639 IF L[II].OBJ[I].TYP=3THEN
640 L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2+L[II].OBJ[I].Y1-3;
641 IF(L[II].OBJ[I].TYP=1)OR(L[II].OBJ[I].TYP=3)THEN I4:=2 ELSE I4:=3;
642 L[II].OBJ[I].X1:=INPUTINT('ENTER BEGIN X',S,2,L[II].OBJ[I].X1,L[II].FIELDX-I4);
643 L[II].OBJ[I].Y1:=INPUTINT('ENTER BEGIN Y',S,2,L[II].OBJ[I].Y1,L[II].FIELDY-I4);
644 END {ENTER} ELSE BEGIN
645 MAPOBJ(I,2,L[II].OBJ[I].X1,L[II].FIELDX-I4,2,L[II].OBJ[I].Y1,L[II].FIELDY-I4);
646 L[II].OBJ[I].X1:=MX; L[II].OBJ[I].Y1:=MY;
648 IF L[II].OBJ[I].TYP=3THEN
649 L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1+3;
653 IF L[II].OBJ[I].TYP=4 THEN BEGIN
655 MAPOBJ(I,0,16,255,L[II].OBJ[I].Y1,L[II].OBJ[I].Y1,L[II].OBJ[I].Y1);
656 L[II].OBJ[I].X2:=ABS(INTEGER(L[II].OBJ[I].X1)-MX); {&&&&}
658 L[II].OBJ[I].X2:=INPUTINT('ENTER SIZE','CROSSING BOUNDARIES NOT CHECKED',
659 3,L[II].OBJ[I].X2,255{L[II].FIELDX-3)SHR 1});
661 END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN
663 S:='SCREEN=(0,0)-('+NR(L[II].FIELDX-2)+','+NR(L[II].FIELDY-2)+
664 '); CENTER=('+NR((L[II].FIELDX-1)SHR 1)+','+NR((L[II].FIELDY-1)SHR 1)+')';
665 IF(L[II].OBJ[I].TYP=1)OR(L[II].OBJ[I].TYP=3)THEN I4:=2 ELSE I4:=3;
666 L[II].OBJ[I].X2:=INPUTINT('ENTER END X',S,2,L[II].OBJ[I].X2,L[II].FIELDX-I4);
667 L[II].OBJ[I].Y2:=INPUTINT('ENTER END Y',S,2,L[II].OBJ[I].Y2,L[II].FIELDY-I4);
668 END {ENTER} ELSE BEGIN
669 MAPOBJ(I,2,L[II].OBJ[I].X2,L[II].FIELDX-I4,2,L[II].OBJ[I].Y2,L[II].FIELDY-I4);
670 L[II].OBJ[I].X2:=MX; L[II].OBJ[I].Y2:=MY;
672 IF L[II].OBJ[I].TYP=3THEN BEGIN
673 IF L[II].OBJ[I].Y2<L[II].OBJ[I].Y1 THEN BEGIN
674 I4:=L[II].OBJ[I].Y2; L[II].OBJ[I].Y2:=L[II].OBJ[I].Y1;
676 END; {END BEFORE START}
677 L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1;
683 L[II].OBJ[I].TYP:=-L[II].OBJ[I].TYP;
684 END; {DISABLE/ENABLE}
686 UNTIL III=-1; III:=0;
690 LABEL EDITOBJS1,EDITOBJS2;
693 TITLEBAR(2,'EDIT LEVEL OBJECTS');
694 IF L[II].NROBJ>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
695 WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT OBJECT');
696 IF L[II].NROBJ>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
697 WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE OBJECT');
698 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE OBJECT');
699 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': VIEW OBJECT');
703 1:IF L[II].NROBJ>0THEN BEGIN
704 I:=INPUTINT('EDIT WHICH OBJECT','',1,1,L[II].NROBJ);
707 2:IF L[II].NROBJ>0THEN BEGIN
708 I:=INPUTINT('DELETE WHICH OBJECT','0=CANCEL',0,0,L[II].NROBJ);
710 I4:=INPUTINT('PLEASE CONFIRM OBJECT TO *REMOVE*','ENTER 0 TO CANCEL',0,0,L[II].NROBJ);
712 DEC(L[II].NROBJ); FOR I:=I4 TO L[II].NROBJ DO L[II].OBJ[I]:=L[II].OBJ[I+1];
717 INC(L[II].NROBJ); I:=L[II].NROBJ; L[II].OBJ[I].TYP:=0; EDITOBJ;
720 I4:=INPUTINT('ENTER OBJECT TO HIGHLIGHT','0 FOR NONE',0,0,L[II].NROBJ);
724 UNTIL III=-1; III:=0;
727 FUNCTION BYTE2STR(SPRITE,SPRSIZE:BYTE):STRING;
728 VAR SPRTEMP:STRING[8];
732 FOR SPRTEMP2:=1TO 8-SPRSIZE DO SPRITE:=SPRITE SHR 1;
733 FOR SPRTEMP2:=9-SPRSIZE TO 8DO BEGIN
734 IF SPRITE MOD 2=1THEN SPRTEMP:='X'+SPRTEMP ELSE SPRTEMP:='�'+SPRTEMP;
735 SPRITE:=SPRITE SHR 1;
740 FUNCTION BYTE2BIN(BYI1:BYTE):LONGINT;
741 VAR BYI2:BYTE; BYI3:LONGINT;
744 FOR BYI2:=0TO 7DO BEGIN
745 IF BYI1 AND 1=1THEN BYI3:=BYI3+POW(10,BYI2);
751 FUNCTION STR2BYTE(SPRITE:STRING):BYTE;
752 VAR SPRTEMP,SPRTEMP2:BYTE;
754 SPRTEMP:=0; SPRTEMP2:=1;
755 FOR SPRTEMP2:=1TO LENGTH(SPRITE)DO
756 IF SPRITE[SPRTEMP2]='1'THEN INC(SPRTEMP,1SHL(8-SPRTEMP2));
763 TITLEBAR(0,'EDIT SPRITE');
764 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE SIZE ');
765 TEXTCOLOR(C_VALUE); IF L[II].SPRSIZE=0THEN WRITELN('(',B.SPRSIZE,')')
766 ELSE WRITELN('(',L[II].SPRSIZE,')');
767 IF L[II].SPRSIZE=0THEN BEGIN
768 TEXTCOLOR(C_TEXT); WRITE('2: EDIT SPRITE'); TEXTCOLOR(C_VALUE); WRITELN(' (DEFAULT)');
769 END {DEF SPR} ELSE FOR I:=1TO L[II].SPRSIZE DO BEGIN
770 TEXTCOLOR(C_MENU); WRITE(I+1); TEXTCOLOR(C_TEXT); WRITE(': EDIT '); TEXTCOLOR(C_VALUE);
771 WRITELN(BYTE2STR(L[II].SPRITE[I],L[II].SPRSIZE));
774 III:=EDITMENU(1+L[II].SPRSIZE,0);
776 I:=INPUTINT('ENTER NEW SPRITE SIZE','MAXIMUM HEIGHT AND WIDTH; 0=DEFAULT',0,B.SPRSIZE,8);
777 IF I>L[II].SPRSIZE THEN FOR I4:=L[II].SPRSIZE+1TO I DO L[II].SPRITE[I4]:=0;
779 END {SIZE} ELSE IF III>1THEN BEGIN
780 S:=INPUTSTR('ENTER NEW LINE #'+NR(III-1)+' OF SPRITE','EXAMPLE: 100101 = X��X�X',
781 ZERO(BYTE2BIN(L[II].SPRITE[III-1]),8),8);
782 L[II].SPRITE[III-1]:=STR2BYTE(S);
784 UNTIL III=-1; III:=0;
787 PROCEDURE EDITBOUNCIES;
790 TITLEBAR(0,'EDIT BALLS IN LEVEL #'+NR(II));
791 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE BALL');
792 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE BALL');
793 FOR III:=1TO L[II].NRBALLS DO BEGIN
794 TEXTCOLOR(C_MENU); WRITE(III+2); TEXTCOLOR(C_TEXT); WRITE(': BALL #',III,' (');
795 TEXTCOLOR(C_VALUE); WRITE(L[II].BALLS[III].X); TEXTCOLOR(C_TEXT); WRITE(',');
796 TEXTCOLOR(C_VALUE); WRITE(L[II].BALLS[III].Y); TEXTCOLOR(C_TEXT); WRITE(') DIR ');
797 TEXTCOLOR(C_VALUE); WRITELN(L[II].BALLS[III].D);
800 III:=EDITMENU(2+L[II].NRBALLS,0);
803 L[II].BALLS[L[II].NRBALLS].X:=INPUTINT('ENTER X','WHERE THE BALL STARTS BOUNCING',0,63,255);
804 L[II].BALLS[L[II].NRBALLS].Y:=INPUTINT('ENTER Y','',0,27,255);
805 L[II].BALLS[L[II].NRBALLS].D:=INPUTINT('ENTER DIRECTION','0/1:DOWN; 2/3:UP; 1/3:RIGHT; 0/2:LEFT',0,0,3);
806 END {CREATE} ELSE IF III=2THEN BEGIN
807 III:=INPUTINT('ENTER THE BOUNCY BALL TO REMOVE','(0 CANCELS)',0,0,L[II].NRBALLS);
809 DEC(L[II].NRBALLS); FOR I4:=III TO L[II].NRBALLS DO L[II].BALLS[I4]:=L[II].BALLS[I4+1];
811 END {DELETE} ELSE IF III>0THEN BEGIN
812 L[II].BALLS[III-2].X:=INPUTINT('ENTER X','NOTE THE BOUNCY BALLS WILL PROBABLY BOLDLY GO SOME OTHER PLACE ANYWAY',
813 0,L[II].BALLS[III-2].X,255);
814 L[II].BALLS[III-2].Y:=INPUTINT('ENTER Y','',0,L[II].BALLS[III-2].Y,255);
815 L[II].BALLS[III-2].D:=INPUTINT('ENTER DIRECTION','0/1:DOWN; 2/3:UP; 1/3:RIGHT; 0/2:LEFT',0,L[II].BALLS[III-2].D,3);
817 UNTIL III=-1; III:=0;
823 TITLEBAR(0,'EDIT WORMS IN LEVEL #'+NR(II));
824 IF II>B.LSINGLE THEN III:=4 ELSE III:=1;
825 FOR III:=1TO III DO BEGIN
826 TEXTCOLOR(C_MENU); WRITE(III SHL 1-1); TEXTCOLOR(C_TEXT);
827 WRITE(': WORM #',III,' DIRECTION '); TEXTCOLOR(C_VALUE);
828 WRITELN('(',L[II].W[III].D,')');
829 TEXTCOLOR(C_MENU); WRITE(III SHL 1); TEXTCOLOR(C_TEXT);
830 WRITE(': WORM #',III,' POSITION '); TEXTCOLOR(C_VALUE);
831 WRITELN('(',L[II].W[III].X,',',L[II].W[III].Y,')');
834 IF III=4THEN III:=EDITMENU(8,4)ELSE III:=EDITMENU(2,4);
837 I:=INPUTINT('ENTER WORM #'+NR(III SHR 1+1)+' STARTING DIRECTION',
838 '0=DOWN; 64=RIGHT; 128=UP; 192=LEFT',0,L[II].W[III SHR 1+1].D,255);
839 L[II].W[III SHR 1+1].D:=I;
842 I:=INPUTINT('ENTER WORM #'+NR(III SHR 1)+' BEGIN X-POSITION',
843 'SCREEN = 2-'+NR(L[II].FIELDX-3)+'; CENTER = '+NR((L[II].FIELDX-1)SHR 1),
844 2,L[II].W[III SHR 1].X,L[II].FIELDX-3);
845 L[II].W[III SHR 1].X:=I;
846 I:=INPUTINT('ENTER WORM #'+NR(III SHR 1)+' BEGIN Y-POSITION',
847 'SCREEN = 2-'+NR(L[II].FIELDY-3)+'; CENTER = '+NR((L[II].FIELDY-1)SHR 1),
848 2,L[II].W[III SHR 1].Y,L[II].FIELDY-3);
849 L[II].W[III SHR 1].Y:=I;
852 UNTIL III=-1; III:=0;
855 PROCEDURE EDITLEVSETS;
858 TITLEBAR(3,'LEVEL #'+NR(II)+' SETTINGS');
859 IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
860 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': FLAG POSITIONS ');
861 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].FLAG1X,',',L[II].FLAG1Y,')(',
862 L[II].FLAG2X,',',L[II].FLAG2Y,')');
863 END {CTF} ELSE IF II>B.LSINGLE+B.LMULTI THEN BEGIN
864 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': LAP BORDERS ');
865 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].FLAG1X,'; ',L[II].FLAG1Y,')');
866 END {RACE} ELSE BEGIN
867 IF II>B.LSINGLE THEN TEXTCOLOR(C_TEXT)ELSE TEXTCOLOR(C_MENU);
868 WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': NUMBER OF PEAS ');
869 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].PEAS,')');
871 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': GAME DELAY ');
872 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].DELAY,')');
873 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITE(': STARTING LENGTH ');
874 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].BSIZE,')');
875 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': GROWTH ');
876 TEXTCOLOR(C_VALUE); WRITE('(',L[II].GROWTH,')');
880 1:IF II<=B.LSINGLE THEN
881 L[II].PEAS:=INPUTINT('ENTER TOTAL NUMBER OF PEAS','TOO MANY PEAS WILL MAKE A LEVEL BORING',1,L[II].PEAS,255)
882 ELSE IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
883 IF L[II].SPRSIZE>0THEN I:=L[II].SPRSIZE ELSE I:=B.SPRSIZE;
884 L[II].FLAG1X:=INPUTINT('ENTER X-COORDINATE OF FLAG #1','FLAG OF PLAYERS 1 AND 3',2,L[II].FLAG1X,L[II].FIELDX-2-I);
885 L[II].FLAG1Y:=INPUTINT('ENTER Y-COORDINATE OF FLAG #1','FLAG OF PLAYERS 1 AND 3',2,L[II].FLAG1Y,L[II].FIELDY-2-I);
886 L[II].FLAG2X:=INPUTINT('ENTER X-COORDINATE OF FLAG #2','FLAG OF PLAYERS 2 AND 4',2,L[II].FLAG2X,L[II].FIELDX-2-I);
887 L[II].FLAG2Y:=INPUTINT('ENTER Y-COORDINATE OF FLAG #2','FLAG OF PLAYERS 2 AND 4',2,L[II].FLAG2Y,L[II].FIELDY-2-I);
888 END {CTF} ELSE IF II>B.LSINGLE+B.LMULTI THEN BEGIN
889 L[II].FLAG1X:=INPUTINT('ENTER HORIZONTAL LAP BORDER','USUALLY THE MIDDLE OF THE SCREEN',2,L[II].FIELDY SHR 1,L[II].FIELDY-2);
890 L[II].FLAG1Y:=INPUTINT('ENTER VERTICAL LAP BORDER','USUALLY THE CENTER OF THE SCREEN',2,L[II].FIELDX SHR 1,L[II].FIELDX-2);
892 2:L[II].DELAY:=INPUTINT('ENTER NEW DELAY','0=FASTEST; 4=AVERAGE; 10=SLOW',0,L[II].DELAY,255);
893 3:L[II].BSIZE:=INPUTINT('ENTER WORM BEGIN SIZE','15=NORMAL; TOO SHORT WORMS WILL BE HARD TO PLAY WITH',
895 4:L[II].GROWTH:=INPUTINT('ENTER GROWTH PER PEA','0=NO GROWTH; 15=NORMAL',0,L[II].GROWTH,255);
897 UNTIL III=-1; III:=0;
903 L[II].SIZE:=12+L[II].NRBALLS*3+L[II].SPRSIZE+L[II].NROBJ*5;
904 IF II<=B.LSINGLE THEN L[II].NAME:=ZERO(II,2);
905 IF II>B.LSINGLE THEN INC(L[II].SIZE,10+LENGTH(L[II].NAME));
906 IF II>B.LSINGLE+B.LMULTI THEN INC(L[II].SIZE,2);
907 IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN INC(L[II].SIZE,2);
908 TITLEBAR(3,'EDIT LEVEL #'+NR(II));
909 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': DESCRIPTION ');
910 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].ID,')');
911 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': NAME ');
912 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].NAME,')');
913 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': LEVEL SETTINGS');
914 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE ');
915 TEXTCOLOR(C_VALUE); IF L[II].SPRSIZE=0THEN WRITELN('(DEFAULT)')
916 ELSE WRITELN('(',L[II].SPRSIZE,')');
917 TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITE(': BOUNCY BALLS ');
918 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].NRBALLS,')');
919 TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITE(': WORMS '); TEXTCOLOR(C_VALUE);
920 IF II>B.LSINGLE THEN BEGIN
921 WRITELN('(',L[II].W[1].D,';',L[II].W[2].D,';',L[II].W[3].D,';',L[II].W[4].D,')');
922 END {FOUR WORMS} ELSE
923 WRITELN('(',L[II].W[1].X,',',L[II].W[1].Y,':',L[II].W[1].D,')');
924 TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITE(': FIELD SIZE ');
925 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].FIELDX,',',L[II].FIELDY,')');
926 TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITE(': OBJECTS ');
927 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].NROBJ,')');
928 TEXTCOLOR(C_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITE(': PREVIEW LEVEL');
932 1:L[II].ID:=INPUTSTR('ENTER DESCRIPTION FOR THIS LEVEL',
933 'THIS WON''T BE DISPLAYED DURING THE GAME,IT''S JUST TO MAKE EDITING EASIER',L[II].ID,22); {DESCR}
934 2:L[II].NAME:=INPUTSTR('ENTER DESCRIPTION FOR THIS LEVEL',
935 'MULTIPLAYER LEVELS CAN BE NAMED TO MAKE LIFE EASIER FOR THE PLAYER',L[II].NAME,22); {NAME}
941 FOR III:=L[II].NROBJ DOWNTO 1DO
942 IF L[II].OBJ[III].Y2+L[II].OBJ[III].Y1=255THEN BEGIN
943 DEC(L[II].NROBJ); FOR I4:=III TO L[II].NROBJ DO L[II].OBJ[I4]:=L[II].OBJ[I4+1];
944 END; {REMOVE OLD BARS}
945 L[II].FIELDX:=INPUTINT('ENTER FIELD WIDTH','128=ONE SCREEN; MORE WILL SCROLL THE SCREEN',5,L[II].FIELDX,255);
946 IF L[II].FIELDX<128THEN BEGIN
947 INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=L[II].FIELDX;
948 IF L[II].FIELDX<128THEN DEC(L[II].OBJ[L[II].NROBJ].X1,2);
949 L[II].OBJ[L[II].NROBJ].Y2:=255; L[II].OBJ[L[II].NROBJ].TYP:=3;
950 L[II].OBJ[L[II].NROBJ].X2:=127; L[II].OBJ[L[II].NROBJ].Y1:=0;
952 L[II].FIELDY:=INPUTINT('ENTER FIELD HEIGHT','57=ONE SCREEN; MORE WILL SCROLL THE SCREEN',5,L[II].FIELDY,255);
953 IF L[II].FIELDY<57THEN BEGIN
954 INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=2;
955 L[II].OBJ[L[II].NROBJ].Y2:=255-L[II].FIELDY;
956 L[II].OBJ[L[II].NROBJ].X2:=L[II].FIELDX-1; L[II].OBJ[L[II].NROBJ].TYP:=3;
957 L[II].OBJ[L[II].NROBJ].Y1:=L[II].FIELDY;
963 UNTIL III=-1; III:=0;
967 LABEL EDITHLVL1,EDITHLVL2;
970 TITLEBAR(1,'EDIT LEVELS');
971 IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
972 WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT LEVEL');
973 IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
974 WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': COPY LEVEL');
975 IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
976 WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': MOVE LEVEL');
977 IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
978 WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE LEVEL');
979 TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE SINGLEPLAYER LEVEL');
980 TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE MULTIPLAYER LEVEL');
981 TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE RACE LEVEL');
982 TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE CTF LEVEL');
983 TEXTCOLOR(C_TEXT); WRITELN; III:=EDITMENU(8,5);
986 1:IF B.LTOTAL>0THEN BEGIN
987 II:=INPUTINT('EDIT WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
988 IF II<>0THEN EDITLEVEL;
990 2:IF B.LTOTAL>0THEN BEGIN
991 II:=INPUTINT('COPY WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
994 IF II<=B.LSINGLE THEN BEGIN
996 FOR I:=B.LTOTAL DOWNTO B.LSINGLE+1DO L[I]:=L[I-1];
997 L[B.LSINGLE]:=L[II]; II:=B.LSINGLE
998 END {SP} ELSE IF II<=B.LSINGLE+B.LMULTI THEN BEGIN
999 FOR I:=2TO 6DO IF B.LTO[I]=B.LMULTI THEN BEGIN
1000 INC(B.LTO[I]); IF B.LFROM[I]=0THEN INC(B.LFROM[I]);
1003 FOR I:=B.LTOTAL DOWNTO B.LSINGLE+B.LMULTI+1DO L[I]:=L[I-1];
1004 L[B.LSINGLE+B.LMULTI]:=L[II]; II:=B.LSINGLE+B.LMULTI;
1005 END {MP} ELSE IF II<=B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
1006 INC(B.LRACE); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL;
1007 END {RACE} ELSE BEGIN
1008 INC(B.LCTF); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL;
1010 L[II].ID:='Copy of '+L[II].ID;
1013 3:IF B.LTOTAL>0THEN BEGIN
1014 I:=INPUTINT('MOVE WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
1016 II:=INPUTINT('NEW LEVEL NUMBER','ENTER 0 TO CANCEL',0,0,B.LTOTAL);
1017 IF((I<=B.LSINGLE)AND(II<=B.LSINGLE))
1018 OR((I>B.LSINGLE)AND(I<=B.LMULTI+B.LSINGLE)AND(II>B.LSINGLE)AND(II<=B.LMULTI+B.LSINGLE))
1019 OR((I>B.LSINGLE+B.LMULTI)AND(I<=B.LMULTI+B.LSINGLE+B.LRACE)AND(II>B.LSINGLE+B.LMULTI)AND(II<=B.LMULTI+B.LSINGLE+B.LRACE))
1020 OR((I>B.LSINGLE+B.LMULTI+B.LRACE)AND(II>B.LSINGLE+B.LMULTI+B.LRACE))THEN BEGIN
1021 LTEMP:=L[I]; IF II>I THEN FOR I4:=I TO II-1DO L[I4]:=L[I4+1]
1022 ELSE FOR I4:=I DOWNTO II+1DO L[I4]:=L[I4-1];
1027 4:IF B.LTOTAL>0THEN BEGIN
1028 II:=INPUTINT('DELETE WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
1030 I:=INPUTINT('PLEASE CONFIRM LEVEL TO *REMOVE*','ENTER 0 TO CANCEL',0,0,B.LTOTAL);
1032 IF I<=B.LSINGLE THEN DEC(B.LSINGLE)ELSE
1033 IF I<=B.LMULTI+B.LSINGLE THEN DEC(B.LMULTI)ELSE
1034 IF I<=B.LMULTI+B.LSINGLE+B.LRACE THEN DEC(B.LRACE)ELSE
1036 DEC(B.LTOTAL); FOR I:=II TO B.LTOTAL DO L[I]:=L[I+1];
1037 FOR I:=2TO 6DO BEGIN
1038 IF B.LTO[I]>B.LMULTI THEN B.LTO[I]:=B.LMULTI;
1039 IF B.LFROM[I]>B.LTO[I]THEN B.LFROM[I]:=B.LTO[I];
1041 IF B.LTO[7]>B.LMULTI+B.LRACE THEN B.LTO[7]:=B.LMULTI+B.LRACE;
1042 IF B.LFROM[7]>B.LTO[7]THEN B.LFROM[7]:=B.LTO[7];
1043 IF B.LTO[8]>B.LTOTAL THEN B.LTO[8]:=B.LTOTAL;
1044 IF B.LFROM[8]>B.LTO[8]THEN B.LFROM[8]:=B.LTO[8];
1049 INC(B.LSINGLE); INC(B.LTOTAL); II:=B.LSINGLE;
1050 IF B.LTO[1]=0THEN B.LTO[1]:=1;
1051 FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1];
1052 L[II].ID:='Level #'+NR(II);
1053 L[II].PEAS:=8; L[II].DELAY:=4; L[II].GROWTH:=15; L[II].BSIZE:=15;
1054 L[II].SPRSIZE:=0; L[II].NRBALLS:=0; L[II].W[1].D:=0; L[II].W[1].X:=63;
1055 L[II].W[1].Y:=2; L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0;
1059 FOR I:=2TO 6DO IF B.LTO[I]=B.LMULTI THEN BEGIN
1060 INC(B.LTO[I]); IF B.LFROM[I]=0THEN INC(B.LFROM[I]);
1062 INC(B.LTOTAL); INC(B.LMULTI); II:=B.LSINGLE+B.LMULTI;
1063 FOR I:=B.LSINGLE+B.LMULTI+B.LCTF DOWNTO II+1DO L[I]:=L[I-1];
1064 L[II].ID:='Arena #'+NR(B.LMULTI); L[II].NAME:=ZERO(B.LMULTI,2);
1065 L[II].DELAY:=4; L[II].GROWTH:=15; L[II].BSIZE:=15; L[II].SPRSIZE:=0;
1066 L[II].W[1].D:=$40; L[II].W[1].Y:=28; L[II].W[1].X:=2;
1067 L[II].W[2].D:=$C0; L[II].W[2].Y:=28; L[II].W[2].X:=125;
1068 L[II].W[3].D:=$00; L[II].W[3].Y:=02; L[II].W[3].X:=63;
1069 L[II].W[4].D:=$80; L[II].W[4].Y:=54; L[II].W[4].X:=63;
1070 L[II].NRBALLS:=0; L[II].FIELDX:=128; L[II].FIELDY:=57;
1071 L[II].NROBJ:=0; EDITLEVEL;
1074 INC(B.LRACE); INC(B.LTOTAL); II:=B.LSINGLE+B.LMULTI+B.LRACE;
1075 FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1];
1076 INC(B.LTO[7]); IF B.LFROM[7]=0THEN INC(B.LFROM[7]);
1077 L[II].ID:='Track #'+NR(II); L[II].NAME:=ZERO(B.LRACE,2);
1078 L[II].DELAY:=4; L[II].GROWTH:=15;
1079 L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;
1080 L[II].W[1].D:=$40; L[II].W[1].X:=2; L[II].W[1].Y:=23;
1081 L[II].W[2].D:=$C0; L[II].W[2].X:=125; L[II].W[2].Y:=23;
1082 L[II].W[3].D:=$40; L[II].W[3].X:=2; L[II].W[3].Y:=35;
1083 L[II].W[4].D:=$C0; L[II].W[4].X:=125; L[II].W[4].Y:=35;
1084 L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0;
1085 L[II].FLAG1X:=8; L[II].FLAG2X:=128-8-B.SPRSIZE;
1086 L[II].FLAG1Y:=27; L[II].FLAG2Y:=27;
1090 INC(B.LCTF); INC(B.LTOTAL); II:=B.LTOTAL;
1091 INC(B.LTO[8]); IF B.LFROM[8]=0THEN INC(B.LFROM[8]);
1092 L[II].ID:='Field #'+NR(II); L[II].NAME:=ZERO(B.LCTF,2);
1093 L[II].DELAY:=4; L[II].GROWTH:=15;
1094 L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;
1095 L[II].W[1].D:=$40; L[II].W[1].X:=2; L[II].W[1].Y:=23;
1096 L[II].W[2].D:=$C0; L[II].W[2].X:=125; L[II].W[2].Y:=23;
1097 L[II].W[3].D:=$40; L[II].W[3].X:=2; L[II].W[3].Y:=35;
1098 L[II].W[4].D:=$C0; L[II].W[4].X:=125; L[II].W[4].Y:=35;
1099 L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0;
1100 L[II].FLAG1X:=8; L[II].FLAG2X:=128-8-B.SPRSIZE;
1101 L[II].FLAG1Y:=27; L[II].FLAG2Y:=27;
1105 UNTIL III=-1; III:=0;
1111 TITLEBAR(0,'CHANGE DEFAULTS');
1112 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': HISCORE NAME ');
1113 TEXTCOLOR(C_VALUE); WRITELN('(',B.HINAME,')');
1114 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': END TYPE ');
1115 TEXTCOLOR(C_VALUE); WRITELN('(',ENDTYPE[B.ENDTYPE],')');
1118 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITE(': EDIT MESSAGE ');
1119 TEXTCOLOR(C_VALUE); WRITE('(',COPY(B.ENDSTR,1,18));
1120 IF LENGTH(B.ENDSTR)>18THEN WRITELN('...)')ELSE WRITELN(')');
1122 ELSE BEGIN TEXTCOLOR(C_TEXT); WRITELN('3: CONFIGURE END'); END; {NOTN}
1124 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE SIZE ');
1125 TEXTCOLOR(C_VALUE); WRITELN('(',B.SPRSIZE,')');
1126 FOR I:=1TO B.SPRSIZE DO BEGIN
1127 TEXTCOLOR(C_MENU); WRITE(I+4); TEXTCOLOR(C_TEXT); WRITE(': EDIT '); TEXTCOLOR(C_VALUE);
1128 WRITELN(BYTE2STR(B.SPRITE[I],B.SPRSIZE));
1131 III:=EDITMENU(4+B.SPRSIZE,0);
1134 S:=INPUTSTR('DEFAULT NAME OF HISCORES','LENGTH 3 CHARS',B.HINAME,3);
1135 FOR I:=1TO 3DO B.HINAME[I]:=S[I];
1138 FOR II:=0TO 1DO WRITE(NR(II)+': '+ENDTYPE[II]+CC(' ',40-ORD(ENDTYPE[II,0])));
1139 B.ENDTYPE:=INPUTINT('ENTER NEW END TYPE',S,0,0,1);
1140 IF B.ENDTYPE=1THEN B.ENDSTR:='Congratulations!!';
1144 B.ENDSTR:=INPUTSTR('ENTER NEW END MESSAGE','MAX 255 CHARS','Congratulations!!',255);
1147 I:=INPUTINT('ENTER THE DEFAULT SPRITE SIZE','CAN BE CHANGED PER LEVEL',1,B.SPRSIZE,8);
1148 IF I>B.SPRSIZE THEN FOR I4:=B.SPRSIZE+1TO I DO B.SPRITE[I4]:=0;
1151 ELSE IF III>4THEN BEGIN
1152 S:=INPUTSTR('ENTER NEW LINE #'+NR(III-4)+' OF SPRITE','EXAMPLE: 100101 = X��X�X',
1153 ZERO(BYTE2BIN(B.SPRITE[III-4]),8),8);
1154 B.SPRITE[III-4]:=STR2BYTE(S);
1157 UNTIL III=-1; III:=0;
1163 TITLEBAR(4,UPCS(B.NAME));
1164 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT TITLE');
1165 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DEFAULTS');
1166 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': GAME TYPES');
1167 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': LEVELS');
1168 TEXTCOLOR(C_VALUE); WRITE(' (',B.LTOTAL,')');
1172 1:B.NAME:=INPUTSTR('ENTER NEW TITLE FOR THIS LEVELFILE','NOTE TI-86 DISPLAYS ONLY 22 CHARS ON THEFIRST LINE',
1178 UNTIL III=-1; III:=0;
1183 ASSIGN(F,FILENAME+'.LVL'); {$I-} RESET(F,1); {$I+} I:=IORESULT;
1185 TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT);
1186 WRITELN('FAILED OPENING LEVEL FILE!'); WRITELN('RUNTIME ERROR #',I); HALT;
1188 {$I-} BLOCKREAD(F,B,SIZEOF(B));
1189 FOR I:=1TO B.LTOTAL DO BLOCKREAD(F,L[I],SIZEOF(L[I])); {$I+}
1190 IF(IORESULT<>0)OR(B.HEAD<>HEADEDIT)THEN BEGIN
1191 TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT);
1192 WRITELN('ERROR READING LEVEL FILE!');
1195 IF B.VERSION<>HEADVERSION THEN BEGIN
1196 WRITELN('CAN''T READ FILE VERSION ',B.VERSION,'.'); CLOSE(F); HALT;
1198 FSIZE:=FILESIZE(F); CLOSE(F);
1203 ASSIGN(F,FILENAME+'.LVL'); REWRITE(F,1);
1204 BLOCKWRITE(F,B,SIZEOF(B));
1205 FOR I:=1TO B.LTOTAL DO BLOCKWRITE(F,L[I],SIZEOF(L[I]));
1211 PROCEDURE SAVELEVEL(SAVEWORMS:BYTE);
1213 IF II>B.LSINGLE THEN BEGIN
1214 BLOCKWRITE(FF,L[II].NAME[1],LENGTH(L[II].NAME)); I:=0; BLOCKWRITE(FF,I,1);
1216 BLOCKWRITE(FF,L[II].PEAS,1);
1217 BLOCKWRITE(FF,L[II].DELAY,1);
1218 BLOCKWRITE(FF,L[II].GROWTH,1);
1219 BLOCKWRITE(FF,L[II].BSIZE,1);
1220 BLOCKWRITE(FF,L[II].SPRSIZE,1);
1221 BLOCKWRITE(FF,L[II].SPRITE,L[II].SPRSIZE);
1222 BLOCKWRITE(FF,L[II].NRBALLS,1);
1223 BLOCKWRITE(FF,L[II].BALLS,L[II].NRBALLS*3);
1224 BLOCKWRITE(FF,L[II].W[1].D,3*SAVEWORMS); {D,X,Y}
1225 BLOCKWRITE(FF,L[II].FIELDX,2); {FIELDX,FIELDY}
1226 IF II>B.LSINGLE+B.LMULTI THEN BLOCKWRITE(FF,L[II].FLAG1Y,2); {FLAG1Y,FLAG1X}
1227 IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BLOCKWRITE(FF,L[II].FLAG2Y,2); {FLAG2Y,FLAG2X}
1228 FOR I:=1TO L[II].NROBJ DO BEGIN
1229 IF L[II].OBJ[I].TYP>0THEN BEGIN
1230 BLOCKWRITE(FF,L[II].OBJ[I].TYP,4);
1231 IF(L[II].OBJ[I].TYP=3)AND(L[II].OBJ[I].Y2+L[II].OBJ[I].Y1=255)THEN BEGIN
1232 I4:=MAX(57,L[II].FIELDY)-L[II].OBJ[I].Y1; BLOCKWRITE(FF,I4,1);
1233 END {OFFSCREEN} ELSE BLOCKWRITE(FF,L[II].OBJ[I].Y2,1);
1236 I:=0; BLOCKWRITE(FF,I,1); {LVL END}
1237 END; {COMMONSAVELEVEL}
1239 ASSIGN(FF,FILENAME+'.86S'); REWRITE(FF,1);
1241 BLOCKWRITE(FF,HEAD86S[1],ORD(HEAD86S[0])); {86S-HEADER}
1242 ISTACK:=COMPSIZE; BLOCKWRITE(FF,ISTACK,2); {FILE LENGTH (x+$12)}
1243 I:=$000C; BLOCKWRITE(FF,I,2); {STRING ID}
1244 DEC(ISTACK,$10); BLOCKWRITE(FF,ISTACK,2); {DATA LENGTH (x+2)}
1246 I:=$080C; BLOCKWRITE(FF,I,2); {STRING ID}
1247 S:=LOCS(FILENAME); FOR I:=ORD(S[0])+1TO 8DO S[I]:=#0;
1248 BLOCKWRITE(FF,S[1],8); {PRGNAME}
1249 BLOCKWRITE(FF,ISTACK,2); {DATA LENGTH (x+2)}
1250 DEC(ISTACK,2); BLOCKWRITE(FF,ISTACK,2); {PROG LENGTH (x)}
1252 C:='w'; BLOCKWRITE(FF,C,1); {WORM ID}
1253 I:=HEADVERSION; BLOCKWRITE(FF,I,1); {VERSION}
1254 BLOCKWRITE(FF,B.NAME[1],ORD(B.NAME[0])); {TITLE}
1255 I:=0; BLOCKWRITE(FF,I,1); {STRING TERMINATOR #0}
1257 FOR II:=B.LFROM[1]TO B.LSINGLE+B.LMULTI DO I:=I+L[II].SIZE;
1258 IF B.LFROM[7]>0THEN {RACE LEVELS}
1259 FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7]
1261 IF B.LFROM[8]>0THEN {CTF LEVELS}
1262 FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8]
1264 BLOCKWRITE(FF,I,2); {SIZE}
1266 I2:=0; I:=$F401+B.SPRSIZE;
1267 IF B.LSINGLE=0THEN BLOCKWRITE(FF,I2,2)ELSE BEGIN
1268 BLOCKWRITE(FF,I,2); FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE);
1269 END; {SINGLLVLS} INC(I,1+ORD(B.ENDDATA[0]));
1270 ISTACK:=I; FOR II:=2TO 6DO BEGIN
1271 I:=ISTACK; IF B.LFROM[II]=0THEN I:=0 ELSE
1272 FOR III:=B.LSINGLE TO B.LSINGLE+B.LFROM[II]-2DO
1276 FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO INC(ISTACK,L[II].SIZE);
1277 I:=0; IF B.LRACE=0THEN BLOCKWRITE(FF,I,2)ELSE BLOCKWRITE(FF,ISTACK,2);
1278 FOR II:=B.LSINGLE+B.LMULTI+1TO B.LSINGLE+B.LMULTI+B.LRACE DO INC(ISTACK,L[II].SIZE);
1279 IF B.LCTF=0THEN BLOCKWRITE(FF,I,2)ELSE BLOCKWRITE(FF,ISTACK,2);
1281 FOR II:=1TO 8DO BEGIN
1282 IF B.LFROM[II]=0THEN I:=0 ELSE I:=B.LTO[II]-B.LFROM[II]+1;
1286 BLOCKWRITE(FF,B.SPRSIZE,1);
1287 BLOCKWRITE(FF,B.SPRITE,B.SPRSIZE);
1290 FOR II:=B.LFROM[1]TO B.LSINGLE DO SAVELEVEL(1); {LEVELS SINGLEPL}
1291 I:=255; BLOCKWRITE(FF,I,1); {END}
1292 BLOCKWRITE(FF,B.ENDDATA[1],ORD(B.ENDDATA[0])); {CODE}
1295 FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO SAVELEVEL(4); {LEVELS MULTIPL}
1298 FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7]
1299 DO SAVELEVEL(4); {LEVELS RACE}
1302 FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8]
1303 DO SAVELEVEL(4); {LEVELS CTF}
1305 I:=0; I2:=1; IF B.LFROM[2]>0THEN I2:=I2+1+B.LTO[2]-B.LFROM[2];
1306 IF B.LFROM[3]>0THEN I2:=I2+1+B.LTO[3]-B.LFROM[3];
1307 FOR II:=1TO I2 DO BEGIN BLOCKWRITE(FF,I,2); BLOCKWRITE(FF,B.HINAME,3); END; {HI}
1309 SEEK(FF,$37); I2:=0; I:=0;
1310 REPEAT INC(I,I2); BLOCKREAD(FF,I2,1,ISTACK); UNTIL ISTACK<>1;
1311 BLOCKWRITE(FF,I,2); {CHECKSUM}
1317 TITLEBAR(0,'CHOOSE LEVELFILE');
1318 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': COMPILE, SAVE AND QUIT');
1319 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': SAVE ');
1320 TEXTCOLOR(C_VALUE); WRITELN(FILENAME,'.LVL');
1321 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': QUIT');
1322 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': CONTINUE EDITING');
1323 WRITELN; III:=EDITMENU(4,0);
1326 FILESAVE; FILECOMP; HALT;
1331 WRITE('REALLY QUIT '); TEXTCOLOR(C_SUB); WRITE('[Y/N]'); TEXTCOLOR(C_TEXT);
1332 WRITE('> '); REPEAT C:=READKEY; UNTIL(UPCASE(C)='Y')OR(UPCASE(C)='N');
1333 IF UPCASE(C)='Y'THEN HALT;
1340 VAR SFILE:SEARCHREC;
1342 SFILES:ARRAY[3..9]OF STRING[12];
1344 FINDFIRST('*.LVL',$3F,SFILE); FILESFOUND:=2;
1345 WHILE DOSERROR=0DO BEGIN
1346 INC(FILESFOUND); IF FILESFOUND>9THEN BREAK;
1347 SFILES[FILESFOUND]:=SFILE.NAME; FINDNEXT(SFILE);
1348 END; {FIND MORE LEVELS}
1350 TITLEBAR(0,'CHOOSE LEVELFILE');
1351 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE NEW FILE');
1352 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT EXISTING');
1353 FOR III:=3TO FILESFOUND DO BEGIN
1354 TEXTCOLOR(C_MENU); WRITE(III); TEXTCOLOR(C_TEXT); WRITE(': EDIT');
1355 TEXTCOLOR(C_VALUE); WRITELN(' ',SFILES[III]);
1356 END; {DISPLAY FOUND FILES}
1358 III:=EDITMENU(FILESFOUND,2);
1362 FILENAME:=INPUTSTR('ENTER LEVELNAME','8 CHARS MAX; W/O EXTENSION','WORMLVL1',8);
1363 IF NOT FILEEXIST(FILENAME+'.LVL')THEN FILESAVE;
1367 FILENAME:=INPUTSTR('ENTER FILENAME','W/O EXTENSION','WORMLVL1',8);
1372 FILENAME:=COPY(SFILES[III],1,POS('.LVL',SFILES[III])-1); OPENFILE;
1382 MAINTITLE; EDITFILE;
1383 REPEAT EDITMAIN; EDITQUIT; UNTIL TRUE=FALSE;