1 {WORMEDIT 0.53 OR SOMETHING... BY SHIAR
2 ----------------------------------w00t}
4 {PASCAL.... BECAUSE I'VE GOT A LOT OF EXPERIENCE USING IT, AND I JUST NEEDED A
5 QUICK SUCKY EDITOR. IF YOU'RE WILLING TO WRITE SOMETHING BETTER, JUST MAIL ME}
7 {WRITTEN USING ULTRAEDIT IN DVORAK WITH BORLAND PASCAL 7.0 FILES AND CRT PATCH
8 FOR DOS, HUZZAH. TESTED OK IN DOS 6, WINDOWS 98 AND XP, AND LINUX WITH DOSEMU}
10 {ALLCAPS BECAUSE. AND IT MAKES IT HARDER TO UNDERSTAND THE CODE}
16 TYPE ONELEVEL = RECORD
23 SPRITE:ARRAY[1..8]OF BYTE;
25 BALLS:ARRAY[1..32]OF RECORD
26 Y,X,D:BYTE; {Z:%00=right+down, %11=left+up}
28 W:ARRAY[1..4]OF RECORD
35 OBJ:ARRAY[1..128]OF RECORD
36 TYP:SHORTINT;X1,Y1,X2,Y2:BYTE;
40 CONST GAMETYPE:ARRAY[1..9]OF STRING[12] =
41 ('SINGLEPLAYER','PEAWORM','TRON','DEATHMATCH',
42 'FOODMATCH','MULTIFOODM','TIMEMATCH','RACE','CTF');
44 OBJTYPE:ARRAY[0..4]OF STRING[8] =
45 ('NONE','LINE','FAT LINE','BAR','CIRCLE');
48 ENDTYPE:ARRAY[0..ENDTYPES]OF STRING[12] =
49 ('NONE','MESSAGE','SMALLER MSG');
52 ('**TI86**'+#$1A+#$A+#0+ {HEADER}
53 'Wormy.97 Levelfile made using WormEdit0.53'); {COMMENT}
55 HEADEDIT = ('WormEdit053'+#0+'LVL');
61 HEAD:ARRAY[1..15]OF CHAR;
66 LSINGLE,LMULTI,LRACE,LCTF,LTOTAL:BYTE;
67 LFROM:ARRAY[1..10]OF BYTE;
68 LTO:ARRAY[1..10]OF BYTE;
70 SPRITE:ARRAY[1..8]OF BYTE;
75 HINAME:ARRAY[1..3]OF CHAR;
79 NAME:'Custom Worm Level';
80 DESC:'Not done yet. Obviously.';
82 LSINGLE:0; LMULTI:0; LRACE:0; LCTF:0; LTOTAL:0;
83 LFROM:(0,0,0,0,0,0,0,0,0,0);
84 LTO:(0,0,0,0,0,0,0,0,0,0);
86 SPRITE:(6*16,15*16,15*16,6*16,0,0,0,0);
118 L:ARRAY[1..64]OF ONELEVEL;
129 SETTEXT; SETPAL(3,44,44,32); SETPAL(1,42,0,0);
130 WINDOW(1,1,80,25); TEXTBACKGROUND(CB_TEXT); CLRSCR;
131 TEXTCOLOR(CB_BAR); WRITE('���������������������������<');
132 TEXTCOLOR(14); WRITE(' WormEdit � ');
133 TEXTCOLOR(15); WRITE(' by SHIAR ');
134 TEXTCOLOR(CB_BAR); WRITE('>�����������������������������');
135 WINDOW(41,2,41,25); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); WRITE(CC('�',23));
136 WINDOW(1,25,80,25); TEXTBACKGROUND(CB_BAR); CLRSCR;
137 GOTOXY(74,1); TEXTCOLOR(0); WRITE('v0.53�'); TEXTBACKGROUND(CB_TEXT);
140 PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER);
141 BEGIN {REPLACEMENT_PUTPIXEL}
142 MEM[SEG(WHERE^)+Y*20:OFS(WHERE^)+X]:=COL;
145 PROCEDURE LINE(X,Y,XX,YY:INTEGER;COL:BYTE;WHERE:POINTER);
146 VAR LINE1,LINE2,SX,SY,SXY,SYX,DX1,DX2,DY1,DY2:INTEGER;
147 BEGIN {JUST_A_SIMPLE_LINE_PROCEDURE}
148 SX:=XX-X; SY:=YY-Y; DX1:=SGN(SX); DX2:=DX1; DY1:=SGN(SY); DY2:=0;
149 SXY:=ABS(SX); SYX:=ABS(SY);
150 IF SYX>SXY THEN BEGIN
151 DY2:=DY1; DX2:=0; LINE1:=SXY; SXY:=SYX; SYX:=LINE1;
154 FOR LINE2:=0TO SXY DO BEGIN
155 PUTPIXEL(X,Y,COL,WHERE);
157 IF LINE1<SXY THEN BEGIN
158 INC(X,DX2); INC(Y,DY2);
159 END {STRAIGT_AHEAD} ELSE BEGIN
161 INC(X,DX1); INC(Y,DY1);
166 PROCEDURE PPLINE(X,Y,XX,YY:INTEGER;COL:BYTE);
167 VAR LINE1,LINE2,SX,SY,SXY,SYX,DX1,DX2,DY1,DY2:INTEGER;
169 SX:=XX-X; SY:=YY-Y; DX1:=SGN(SX); DX2:=DX1; DY1:=SGN(SY); DY2:=0;
170 SXY:=ABS(SX); SYX:=ABS(SY);
171 IF SYX>SXY THEN BEGIN
172 DY2:=DY1; DX2:=0; LINE1:=SXY; SXY:=SYX; SYX:=LINE1;
175 FOR LINE2:=0TO SXY DO BEGIN
176 PUTPIXEL(X,Y,GETPIXEL(X,Y,VGA)OR 1-COL,PTR(VGA,0));
178 IF LINE1<SXY THEN BEGIN
179 INC(X,DX2); INC(Y,DY2);
180 END {STRAIGT_AHEAD} ELSE BEGIN
182 INC(X,DX1); INC(Y,DY1);
186 PROCEDURE PPCIRCLE(X,Y,Z,COL:BYTE);
187 VAR XX,YY,ZZ:INTEGER;
189 XX:=-1; YY:=Z; ZZ:=-Z;
192 PPLINE(X-XX,Y+YY,X+XX,Y+YY,COL); PPLINE(X-XX,Y-YY,X+XX,Y-YY,COL);
193 PPLINE(X-YY,Y+XX,X+YY,Y+XX,COL); PPLINE(X-YY,Y-XX,X+YY,Y-XX,COL);
194 IF ZZ>=0 THEN BEGIN ZZ:=ZZ-(YY SHL 1)+2; DEC(YY); END;
199 PROCEDURE PPDISPOBJ(OBJ:INTEGER;COL:BYTE);
202 CASE L[II].OBJ[OBJ].TYP OF
203 1:PPLINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL);
205 PPLINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL);
206 PPLINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2,COL);
207 PPLINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2+1,COL);
208 PPLINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2+1,COL);
211 FOR Y:=L[II].OBJ[OBJ].Y1 TO L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1DO
212 PPLINE(L[II].OBJ[OBJ].X1,MIN(Y,191),L[II].OBJ[OBJ].X2,MIN(Y,191),COL);
214 4:PPCIRCLE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,COL);
218 PROCEDURE DISPMAP(OBJ:INTEGER;WHERE:POINTER);
220 PROCEDURE CIRCLE(X,Y,Z,COL:BYTE);
221 VAR XX,YY,ZZ:INTEGER;
223 XX:=-1; YY:=Z; ZZ:=-Z;
226 LINE(X-XX,Y+YY,X+XX,Y+YY,COL,WHERE);
227 LINE(X-XX,Y-YY,X+XX,Y-YY,COL,WHERE);
228 LINE(X-YY,Y+XX,X+YY,Y+XX,COL,WHERE);
229 LINE(X-YY,Y-XX,X+YY,Y-XX,COL,WHERE);
230 IF ZZ>=0 THEN BEGIN ZZ:=ZZ-(YY SHL 1)+2; DEC(YY); END;
234 PROCEDURE DRAW4PIX(D4X,D4Y:INTEGER;D4XSIZE,D4YSIZE,COL:BYTE);
235 VAR D4LOOPX,D4LOOPY:BYTE;
237 FOR D4LOOPX:=0TO D4XSIZE-1DO FOR D4LOOPY:=0TO D4YSIZE-1DO
238 PUTPIXEL(D4X+D4LOOPX,D4Y+D4LOOPY,COL,WHERE);
240 PROCEDURE DISPOBJ(OBJ:INTEGER;COL:BYTE);
243 CASE L[II].OBJ[OBJ].TYP OF
244 1:LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL,WHERE);
246 LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL,WHERE);
247 LINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2,COL,WHERE);
248 LINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2+1,COL,WHERE);
249 LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2+1,COL,WHERE);
252 FOR Y:=L[II].OBJ[OBJ].Y1 TO L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1DO
253 LINE(L[II].OBJ[OBJ].X1,MIN(Y,191),L[II].OBJ[OBJ].X2,MIN(Y,191),COL,WHERE);
255 4:CIRCLE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,COL);
259 TI:=3; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,2,WHERE); INC(TI,8); END; {GRID}
260 TI:=4; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,2,WHERE); INC(TI,8); END;
261 TI:=7; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,4,WHERE); INC(TI,8); END; {GRID}
262 TI:=0; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,4,WHERE); INC(TI,8); END;
263 TI:=127; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,8,WHERE); INC(TI,128); END;
264 TI:=0; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,8,WHERE); INC(TI,56); END;
266 FOR TI:=2TO L[II].FIELDX-2DO BEGIN
267 IF TI MOD 2=0THEN PUTPIXEL(TI,L[II].FIELDY SHR 1,6,WHERE)
268 ELSE PUTPIXEL(TI,L[II].FIELDY SHR 1,2,WHERE);
270 IF L[II].FIELDY MOD 2=0THEN
271 FOR TI:=2TO L[II].FIELDX-2DO BEGIN
272 IF TI MOD 2=1THEN PUTPIXEL(TI,L[II].FIELDY SHR 1-1,6,WHERE)
273 ELSE PUTPIXEL(TI,L[II].FIELDY SHR 1-1,2,WHERE);
275 FOR TI:=2TO L[II].FIELDY-2DO BEGIN
276 IF TI MOD 2=0THEN PUTPIXEL(L[II].FIELDX SHR 1,TI,6,WHERE)
277 ELSE PUTPIXEL(L[II].FIELDX SHR 1,TI,2,WHERE);
279 IF L[II].FIELDX MOD 2=0THEN
280 FOR TI:=2TO L[II].FIELDY-2DO BEGIN
281 IF TI MOD 2=1THEN PUTPIXEL(L[II].FIELDX SHR 1-1,TI,6,WHERE)
282 ELSE PUTPIXEL(L[II].FIELDX SHR 1-1,TI,2,WHERE);
284 IF(II>B.LSINGLE+B.LMULTI)AND(II<=B.LSINGLE+B.LMULTI+B.LRACE)THEN BEGIN
285 LINE(L[II].FLAG1Y,0,L[II].FLAG1Y,L[II].FLAG1X,26,WHERE);
286 LINE(L[II].FLAG1Y,L[II].FLAG1X,L[II].FLAG1Y,L[II].FIELDY-1,28,WHERE);
287 LINE(0,L[II].FLAG1X,L[II].FIELDX-1,L[II].FLAG1X,16,WHERE);
289 IF II<=B.LSINGLE THEN TI:=1 ELSE TI:=4;
290 FOR TI:=1TO TI DO BEGIN
291 CIRCLE(L[II].W[TI].X,L[II].W[TI].Y,2,12);
292 LINE(L[II].W[TI].X,L[II].W[TI].Y,L[II].W[TI].X+ROUND(SIN(L[II].W[TI].D/128*PI)*20),
293 L[II].W[TI].Y+ROUND(COS(L[II].W[TI].D/128*PI)*20),14,WHERE);
294 LINE(L[II].W[TI].X,L[II].W[TI].Y,L[II].W[TI].X+ROUND(SIN((L[II].W[TI].D-13)/128*PI)*15),
295 L[II].W[TI].Y+ROUND(COS((L[II].W[TI].D-13)/128*PI)*15),12,WHERE);
296 LINE(L[II].W[TI].X,L[II].W[TI].Y,L[II].W[TI].X+ROUND(SIN((L[II].W[TI].D+13)/128*PI)*15),
297 L[II].W[TI].Y+ROUND(COS((L[II].W[TI].D+13)/128*PI)*15),12,WHERE);
298 PUTPIXEL(L[II].W[TI].X,L[II].W[TI].Y,0,WHERE);
300 IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
301 IF L[II].SPRSIZE>0THEN TI:=L[II].SPRSIZE ELSE TI:=B.SPRSIZE;
302 DRAW4PIX(L[II].FLAG1X,L[II].FLAG1Y,TI,TI,26); {FLAGS}
303 DRAW4PIX(L[II].FLAG2X,L[II].FLAG2Y,TI,TI,28);
305 LINE(0,0,255,0,22,WHERE); LINE(0,1,255,1,22,WHERE); {BORDERS}
306 LINE(0,2,0,190-3,22,WHERE); LINE(1,2,1,190-3,22,WHERE);
307 LINE(MAX(126,L[II].FIELDX-2),2,MAX(126,L[II].FIELDX-2),L[II].FIELDY-1,22,WHERE);
308 LINE(MAX(127,L[II].FIELDX-1),2,MAX(127,L[II].FIELDX-1),L[II].FIELDY-1,22,WHERE);
309 LINE(0,L[II].FIELDY-2,L[II].FIELDX-1,L[II].FIELDY-2,22,WHERE);
310 LINE(0,L[II].FIELDY-1,L[II].FIELDX-1,L[II].FIELDY-1,22,WHERE);
311 FOR OBJ2:=1TO L[II].NROBJ DO IF OBJ2<>OBJ THEN DISPOBJ(OBJ2,18); {OBJS}
312 IF(OBJ>0)AND(OBJ<=L[II].NROBJ)THEN DISPOBJ(OBJ,20); {HIGHLIGHTED_OBJ}
313 FOR OBJ2:=1TO L[II].NRBALLS DO
314 DRAW4PIX(L[II].BALLS[OBJ2].X,L[II].BALLS[OBJ2].Y,2,2,20); {BOUNCIES}
317 PROCEDURE DISPMCGACOMMON;
320 SETPAL(0,0,0,0); SETPAL(1,32,0,0); {BACK}
321 SETPAL(2,8,0,0); SETPAL(3,35,0,0); {SUBGRID}
322 SETPAL(4,12,0,0); SETPAL(5,38,0,0); {GRID}
323 SETPAL(6,20,0,0); SETPAL(7,40,0,0); {MID}
324 SETPAL(8,28,0,0); SETPAL(9,44,0,0); {MAINGRID}
326 SETPAL(12,48,32,0); SETPAL(13,44,0,0); {STLN}
327 SETPAL(14,48,48,0); SETPAL(15,52,0,0); {STARTPOS}
328 SETPAL(26,0,0,63); SETPAL(27,63,0,0); {FLAG1}
329 SETPAL(28,0,63,0); SETPAL(29,63,0,0); {FLAG2}
331 SETPAL(16,32,32,32); SETPAL(17,48,0,0); {HALFOBJ}
332 SETPAL(18,48,48,48); SETPAL(19,63,0,0); {OBJ}
333 SETPAL(20,63,63,20); SETPAL(21,63,16,0); {HL_OBJ}
334 SETPAL(22,63,63,63); SETPAL(23,63,0,0); {BORDER}
336 SETPAL(29,0,48,0); {MARK}
337 END; {DISPMCGACOMMON}
339 PROCEDURE DISP1MAP(OBJ:INTEGER);
340 VAR MXX,MYY,TX,TY,TXX,TYY:WORD;
342 {TYPE SCRN = ARRAY[0..199,0..319]OF BYTE;
347 FOR TI:=0 TO 199DO FOR I2:=0 TO 319DO VIRT^[I,I2]:=0; DISPMAP(OBJ,VIRT);
349 FOR I:=0 TO 19DO FOR I2:=0 TO 79DO BEGIN
350 I1X:=ROUND(I2*L[II].FIELDX/80); I1Y:=ROUND(I*L[II].FIELDY/20);
351 CASE VIRT^[I1Y,I1X]OF
358 10..12:TEXTCOLOR(12);
364 DISPMCGACOMMON; DISPMAP(OBJ,PTR(VGA,0)); CLRKEY;
366 IF USEMOUSE THEN BEGIN
367 GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;}
368 PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
370 PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
371 IF M1 THEN PPLINE(MXX,MYY,MX,MY,0);
372 IF M2 THEN PPLINE(MXX,MYY,MX,MY,1);
375 IF KEYPRESSED THEN BEGIN C:=#0;
376 WHILE KEYPRESSED DO C:=READKEY;
378 I4:=L[II].SPRSIZE; IF I4=0THEN I4:=B.SPRSIZE; DEC(I4);
379 FOR TX:=2TO L[II].FIELDX-4 DO FOR TY:=2TO L[II].FIELDY-4 DO BEGIN
381 FOR TXX:=TX TO TX+I4 DO FOR TYY:=TY TO TY+I4 DO
382 IF GETPIXEL(TXX,TYY,VGA)>17THEN TZ:=FALSE;
383 IF TZ THEN PUTPIXEL(TX,TY,29,PTR(VGA,0));
385 END; {DRAW_TEST_PEA_AREA}
387 UNTIL(C=#27)OR(C=' ')OR(C=#13)OR(C='+')OR(C='0'); MAINTITLE;
390 PROCEDURE DISPMANYMAP(MAG:BYTE);
391 TYPE SCRN = ARRAY[0..199,0..319]OF BYTE;
393 PROCEDURE DISP1MANYMAP(OFFSETX,OFFSETY,MAG:BYTE);
394 VAR I1,I1X,I1Y,I1XX,I1YY:BYTE;
396 FOR I:=0 TO 199DO FOR I2:=0 TO 255DO VIRT^[I,I2]:=0; DISPMAP(0,VIRT);
397 FOR I:=0 TO 255 DIV MAG DO FOR I2:=0 TO 199 DIV MAG DO BEGIN
398 {I1X:=ROUND(I2*L[II].FIELDX/80); I1Y:=ROUND(I*L[II].FIELDY/20);}
400 FOR I1XX:=I*MAG TO(I+1)*MAG-1 DO FOR I1YY:=I2*MAG TO(I2+1)*MAG-1DO
401 IF VIRT^[I1YY,I1XX]>I1 THEN I1:=VIRT^[I1YY,I1XX];
402 PUTPIXEL(OFFSETX+I,OFFSETY+I2,I1,PTR(VGA,0));
405 VAR MXX,MYY:WORD; M1,M2:BOOLEAN;
407 DISPMCGACOMMON; NEW(VIRT);
408 MX:=255 DIV MAG+1; MY:=192 DIV MAG+1;
409 FOR II:=1TO MIN(B.LTOTAL,SQR(MAG))DO
410 DISP1MANYMAP(((II-1)MOD MAG)*MX,(II-1)DIV MAG*MY,MAG);
411 DISPOSE(VIRT); CLRKEY;
413 IF USEMOUSE THEN BEGIN
414 GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;}
415 PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
417 PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
418 IF M1 THEN PPLINE(MXX,MYY,MX,MY,0);
419 IF M2 THEN PPLINE(MXX,MYY,MX,MY,1);
422 UNTIL KEYPRESSED; WHILE KEYPRESSED DO READKEY; MAINTITLE;
425 PROCEDURE MAPOBJ(OBJ,OBJSUB:INTEGER);
426 VAR M1,M2,M3:BOOLEAN;
428 XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER;
430 DISPMCGACOMMON; DISPMAP(OBJ,PTR(VGA,0)); CLRKEY;
431 IF OBJSUB=0THEN BEGIN
432 XDEF:=L[II].OBJ[OBJ].X1; YDEF:=L[II].OBJ[OBJ].Y1;
433 END {FROM} ELSE BEGIN
434 XDEF:=L[II].OBJ[OBJ].X2; YDEF:=L[II].OBJ[OBJ].Y2;
436 CASE L[II].OBJ[OBJ].TYP OF
437 1:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-3; YMIN:=2; YMAX:=L[II].FIELDY-3;
439 2:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-4; YMIN:=2; YMAX:=L[II].FIELDY-4;
441 3:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-1; YMIN:=2; YMAX:=L[II].FIELDY-2;
442 IF OBJSUB=0THEN BEGIN
443 IF L[II].OBJ[OBJ].Y2<>0THEN YMAX:=L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1
444 END {X1,Y1} ELSE YMIN:=L[II].OBJ[OBJ].Y1+1;
447 IF OBJSUB=0THEN BEGIN
448 XMAX:=255; YMIN:=0; YMAX:=255;
450 XMAX:=120; XDEF:=ABS(INTEGER(L[II].OBJ[OBJ].X1)-L[II].OBJ[OBJ].X2);
451 YMIN:=L[II].OBJ[OBJ].Y1; YDEF:=L[II].OBJ[OBJ].Y1; YMAX:=L[II].OBJ[OBJ].Y1;
456 IF USEMOUSE THEN BEGIN MX:=XDEF SHL 1; MOUSE(4,MX,MX,MX,MY); END; {INITMOUSE}
460 IF USEMOUSE THEN BEGIN
461 REPEAT GETMOUSEPOS(MX,MY,M1,M2); M3:=KEYPRESSED;
462 UNTIL(MX<>MXX)OR(MY<>MYY)OR(M1)OR(M2)OR(M3);
463 MXX:=MX; MYY:=MY; MX:=MX SHR 1;
467 IF(C=#13)OR(C=' ')THEN M1:=TRUE ELSE M1:=FALSE;
468 IF(C=#27)OR(C='+')THEN M2:=TRUE ELSE M2:=FALSE;
469 IF C='2'THEN INC(MY); {DOWN} IF C='8'THEN DEC(MY); {UP}
470 IF C='4'THEN DEC(MX); {L} IF C='6'THEN INC(MX); {R}
471 IF C=#0 THEN BEGIN C:=READKEY;
472 IF C=#80 THEN INC(MY); {DOWN} IF C=#72 THEN DEC(MY); {UP}
473 IF C=#75 THEN DEC(MX); {L} IF C=#77 THEN INC(MX); {R}
477 IF MX<XMIN THEN MX:=XMIN; IF MX>XMAX THEN MX:=XMAX;
478 IF MY<YMIN THEN MY:=YMIN; IF MY>YMAX THEN MY:=YMAX;
479 IF M2 THEN BEGIN MX:=XDEF; MY:=YDEF; END; {R_BUTTON}
480 IF(USEMOUSE)AND((MX<>MXX)OR(MY<>MYY))THEN BEGIN
481 MX:=MX SHL 1; MOUSE(4,MX,MX,MX,MY); MX:=MX SHR 1;
482 END; {SET_NEW_MOUSE_POS}
484 IF OBJSUB=0THEN CASE L[II].OBJ[OBJ].TYP OF
486 INC(L[II].OBJ[OBJ].Y2,L[II].OBJ[OBJ].Y1-MY);
487 L[II].OBJ[OBJ].X1:=MX; L[II].OBJ[OBJ].Y1:=MY;
489 ELSE BEGIN L[II].OBJ[OBJ].X1:=MX; L[II].OBJ[OBJ].Y1:=MY; END; {DEF}
490 END {FROM} ELSE CASE L[II].OBJ[OBJ].TYP OF
491 3:BEGIN L[II].OBJ[OBJ].X2:=MX; L[II].OBJ[OBJ].Y2:=MY-L[II].OBJ[OBJ].Y1;
493 4:BEGIN L[II].OBJ[OBJ].X2:=ABS(MX-INTEGER(L[II].OBJ[OBJ].X1)); L[II].OBJ[OBJ].Y2:=0; END; {CIRCLE}
494 ELSE BEGIN L[II].OBJ[OBJ].X2:=MX; L[II].OBJ[OBJ].Y2:=MY; END; {DEF}
498 IF USEMOUSE THEN WHILE(M1)OR(M2)DO GETMOUSEPOS(MX,MY,M1,M2);
499 WHILE KEYPRESSED DO C:=READKEY;
500 IF(L[II].OBJ[OBJ].TYP=3)AND(L[II].OBJ[OBJ].Y1<0)THEN BEGIN
501 I4:=L[II].OBJ[OBJ].Y1; L[II].OBJ[OBJ].Y1:=L[II].OBJ[OBJ].Y2;
502 L[II].OBJ[OBJ].Y1:=-I4;
503 END; {SWAP Y FOR BOX}
506 FUNCTION NR(VALUE:LONGINT):STRING;
509 STR(VALUE,NRSTR); NR:=NRSTR;
512 PROCEDURE HELPBAR(HELPPAGE:BYTE);
515 IF HELPPAGE=0 THEN BEGIN
516 TEXTCOLOR(C_GRID); WRITE('�'); WINDOW(42,14,80,24); CLRSCR; EXIT;
518 TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_GRID); WRITE('�'); TEXTCOLOR(C_BAR);
519 WRITE('HELP',' ':39-4); WINDOW(42,15,80,24); TEXTBACKGROUND(CB_TEXT); TEXTCOLOR(C_TEXT);
520 CLRSCR; CASE HELPPAGE OF
521 1:WRITE('PRESS <F1> OR <H> FOR HELP');
522 2:WRITE('YOU UNDERSTAND EVERYTHING');
523 3:WRITE('THIS AIN''T A BUG, IT A FEATURE!');
524 4:WRITE('ALL YOUR WORMS ARE BELONG TO US!');
525 5:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL LEVELS');
526 6:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL OBJECTS');
527 8:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL BOUNCIES');
528 END; {TEXT TO DISPLAY}
532 PROCEDURE DISPLEVELS;
534 WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
535 IF B.LTOTAL<1 THEN WRITELN('NONE PRESENT')ELSE
536 FOR II:=LVLPOS TO MIN(B.LTOTAL,LVLPOS+9)DO BEGIN
537 IF LVLDISP=1 THEN WRITE(II) {CONTINOUS}
538 ELSE IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN WRITE(II-B.LSINGLE-B.LMULTI-B.LRACE)ELSE
539 IF II>B.LSINGLE+B.LMULTI THEN WRITE(II-B.LSINGLE-B.LMULTI)ELSE
540 IF II>B.LSINGLE THEN WRITE(II-B.LSINGLE)ELSE WRITE(II); {SEPERATE}
541 IF II>=B.LFROM[1]THEN TEXTCOLOR(C_VALUE);
542 WRITELN(': '+L[II].ID); TEXTCOLOR(C_TEXT);
547 PROCEDURE DISPOBJECTS;
549 WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
550 IF L[II].NROBJ<1THEN WRITELN('NONE')
551 ELSE FOR I4:=OBJPOS TO MIN(L[II].NROBJ,OBJPOS+9)DO BEGIN
552 WRITE(I4); TEXTCOLOR(C_VALUE);
553 IF L[II].OBJ[I4].TYP>0 THEN BEGIN
554 WRITE(': ',OBJTYPE[L[II].OBJ[I4].TYP]);
555 WRITE(' (',L[II].OBJ[I4].X1,',',L[II].OBJ[I4].Y1,')-(');
556 CASE L[II].OBJ[I4].TYP OF
557 1,2:WRITELN(L[II].OBJ[I4].X2,',',L[II].OBJ[I4].Y2,')');
558 3:WRITELN(L[II].OBJ[I4].X2,',',L[II].OBJ[I4].Y1+L[II].OBJ[I4].Y2,')');
559 4:WRITELN(L[II].OBJ[I4].X2,')');
561 END {ENABLED} ELSE WRITELN(': DISABLED'); TEXTCOLOR(C_TEXT);
566 PROCEDURE DISPBOUNCIES;
568 WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
569 IF L[II].NRBALLS<1THEN WRITELN('NONE')
570 ELSE FOR I4:=BBPOS TO MIN(L[II].NRBALLS,BBPOS+9)DO BEGIN
571 WRITE(I4); TEXTCOLOR(C_VALUE);
572 WRITE(': (',L[II].BALLS[I4].X,',',L[II].BALLS[I4].Y,'),',L[II].BALLS[I4].D);
578 FUNCTION EDITMENU(EDITMENUMAX,HELPPAGE:BYTE):SHORTINT;
579 VAR EDITOK,MENUPOS:SHORTINT;
581 MENUPOS:=1; EDITOK:=0;
582 WINDOW(2,3,3,20); GOTOXY(1,1); TEXTCOLOR(C_MENU); WRITE('>>');
584 GOTOXY(1,1); REPEAT UNTIL KEYPRESSED; C:=READKEY;
585 IF C=' 'THEN EDITOK:=10 {10} ELSE
586 IF(C>='1')AND(C<=CHR(EDITMENUMAX+48))AND(C<='9')THEN EDITOK:=ORD(C)-48 {1..<=9} ELSE
587 IF(EDITMENUMAX>9)AND(UPCASE(C)>='A')AND(UPCASE(C)<=CHR(EDITMENUMAX+55))AND(UPCASE(C)<='Z')THEN
588 EDITOK:=ORD(UPCASE(C))-55 {1..<=9} ELSE
589 IF C=#13 THEN EDITOK:=MENUPOS {ENTER} ELSE
590 IF(C=#27)OR(C='-')OR(C='+')THEN EDITOK:=-1 {EXIT} ELSE
591 IF UPCASE(C)='H'THEN HELPBAR(HELPPAGE) ELSE
592 IF C=#0THEN BEGIN C:=READKEY;
593 IF(C=#80)AND(MENUPOS<EDITMENUMAX)THEN BEGIN
594 TEXTCOLOR(C_TEXT); GOTOXY(1,MENUPOS); WRITE(': ');
595 INC(MENUPOS); TEXTCOLOR(C_MENU); GOTOXY(1,MENUPOS); WRITE('>>');
597 IF(C=#72)AND(MENUPOS>1)THEN BEGIN
598 TEXTCOLOR(C_TEXT); GOTOXY(1,MENUPOS); WRITE(': ');
599 DEC(MENUPOS); TEXTCOLOR(C_MENU); GOTOXY(1,MENUPOS); WRITE('>>');
601 IF HELPPAGE=5THEN BEGIN
602 IF(C=#77)AND(LVLPOS<B.LTOTAL-9)THEN BEGIN INC(LVLPOS); DISPLEVELS; END {R} ELSE
603 IF(C=#75)AND(LVLPOS>1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {L} ELSE
604 END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
605 IF(C=#77)AND(OBJPOS<L[II].NROBJ-9)THEN BEGIN INC(OBJPOS); DISPOBJECTS; END {R} ELSE
606 IF(C=#75)AND(OBJPOS>1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {L} ELSE
607 END {OBJS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
608 IF(C=#77)AND(BBPOS<L[II].NRBALLS-9)THEN BEGIN INC(BBPOS); DISPBOUNCIES; END {R} ELSE
609 IF(C=#75)AND(BBPOS>1)THEN BEGIN DEC(BBPOS); DISPBOUNCIES; END {L} ELSE
610 END; {BOUNCIES DISPED}
611 IF C=#59THEN HELPBAR(HELPPAGE);
613 UNTIL EDITOK<>0; EDITMENU:=EDITOK; TEXTCOLOR(C_TEXT);
616 FUNCTION COMPSIZE:WORD;
619 IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE); {SP}
620 IF B.LMULTI>0THEN FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO INC(I,L[II].SIZE); {MP}
622 FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]DO INC(I,L[II].SIZE); {RACE}
624 FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[9]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[9]DO INC(I,L[II].SIZE); {CTF}
628 1:B.ENDDATA:=#$21+CHR(LO(PC+10+I))+CHR(HI(PC+10+I))+#$CD+#$37+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
629 {LD HL,MSG\CALL _PUTS\JP _GETKEY\.DB MSG}
630 2:B.ENDDATA:=#$21+#0+#$1C+#$22+#$7C+#$C3+#$21+CHR(LO(PC+16+I))+CHR(HI(PC+16+I))
631 +#$CD+#$A5+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
632 {LD HL,X\LD (_PENCOL),HL\LD HL,MSG\CALL _VPUTS\JP _GETKEY\.DB MSG}
633 ELSE B.ENDDATA:=#$C9; {RET}
635 INC(I,ORD(B.ENDDATA[0]));
637 INC(I,$35+ORD(B.NAME[0])+ORD(B.DESC[0]));
638 IF B.LFROM[1]>0THEN INC(I,5); {HI_SP}
639 IF B.LFROM[2]>0THEN I:=I+((1+B.LTO[2]-B.LFROM[2])*5); {HI_PW}
640 IF B.LFROM[3]>0THEN I:=I+((1+B.LTO[3]-B.LFROM[3])*5); {HI_TRON}
645 PROCEDURE TITLEBAR(BAR:SHORTINT;TITLNAME:STRING);
647 HELPBAR(0); WINDOW(41,2,42,2);
648 IF BAR=0THEN TEXTBACKGROUND(CB_TEXT)ELSE TEXTBACKGROUND(CB_BAR);
649 TEXTCOLOR(C_GRID); WRITE('�'); WINDOW(42,2,80,13); TEXTBACKGROUND(CB_TEXT); CLRSCR;
650 TEXTCOLOR(C_BAR); TEXTBACKGROUND(CB_BAR);
653 WRITE('LEVELS',' ':39-6); LVLDISP:=1; DISPLEVELS;
656 WRITE('LEVEL OBJECTS',' ':39-13); DISPOBJECTS;
659 WRITE('LEVEL INFO',' ':39-10); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT);
661 IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN WRITELN(' CTF #',II-B.LSINGLE-B.LMULTI-B.LRACE)ELSE
662 IF II>B.LSINGLE+B.LMULTI THEN WRITELN(' RACE #',II-B.LSINGLE-B.LMULTI)ELSE
663 IF II>B.LSINGLE THEN WRITELN(' MP #',II-B.LSINGLE)ELSE WRITELN;
664 WRITELN('LEVEL SIZE: ',L[II].SIZE);
665 IF II<=B.LSINGLE THEN WRITELN('SINGLEPLAYER')ELSE FOR I:=2TO 6DO
666 IF(II-B.LSINGLE>=B.LFROM[I])AND(II-B.LSINGLE<=B.LTO[I])THEN
667 WRITELN(GAMETYPE[I]);
670 WRITE(FILENAME,'.LVL',' ':35-ORD(FILENAME[0])); TEXTCOLOR(C_TEXT);
671 TEXTBACKGROUND(CB_TEXT); WRITE('FILE VERSION: '); TEXTCOLOR(C_VALUE);
672 WRITELN(B.VERSION); TEXTCOLOR(C_TEXT); WRITE('FILE SIZE: '); TEXTCOLOR(C_VALUE);
673 WRITE(FSIZE SHR 10); TEXTCOLOR(C_TEXT); WRITELN('kB');
674 WRITE('COMPILED: '); TEXTCOLOR(C_VALUE); WRITE(COMPSIZE); TEXTCOLOR(C_TEXT);
678 WRITE('LEVELS',' ':39-6); LVLDISP:=2; DISPLEVELS;
682 TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE(TITLNAME,' ':40-ORD(TITLNAME[0]));
683 WINDOW(1,3,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR;
686 FUNCTION INPUTSTR(ISTR,ICOM,IDEF:STRING;IMAX:BYTE):STRING;
687 VAR IVAL:STRING; IOK:BOOLEAN;
690 TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE('INPUT',' ':40-5);
691 WINDOW(1,15,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR;
693 TEXTCOLOR(C_TEXT); WRITELN(ISTR); TEXTCOLOR(C_SUB); WRITELN(ICOM);
694 TEXTCOLOR(C_SUB); WRITELN('ENTER FOR DEFAULT:'); WRITELN(IDEF);
695 TEXTCOLOR(C_TEXT); WRITE('> '); READLN(IVAL);
696 IF IVAL=''THEN IVAL:=IDEF;
697 IOK:=FALSE; IF ORD(IVAL[0])<=IMAX THEN IOK:=TRUE
698 ELSE BEGIN CLRSCR; WRITELN('OH NO, THAT''S TOO MUCH!'); END; {TOOLONG}
699 UNTIL IOK; INPUTSTR:=IVAL;
702 FUNCTION INPUTINT(ISTR,ICOM:STRING;IMIN,IDEF,IMAX:INTEGER):INTEGER;
703 FUNCTION READ:INTEGER;
704 VAR REI1:INTEGER; REI2:BYTE;
705 BEGIN {INPUTS POSITIVE INTEGER VALUE FROM KEYBOARD}
706 REI1:=0; {VALUE} REI2:=0; {SIZE}
708 REPEAT C:=READKEY; UNTIL C<>'';
710 #8,'+','-':IF REI2>0THEN BEGIN
711 REI1:=REI1 DIV 10; DEC(REI2); WRITE(#8+' '+#8);
713 '0'..'9':IF REI2<4THEN BEGIN
714 REI1:=REI1*10+ORD(C)-48; INC(REI2); WRITE(C);
716 #13:IF REI2=0THEN REI1:=-1; {ENTER}
718 UNTIL C=#13; {UNTIL ENTER PRESSED}
721 VAR IVAL:INTEGER; IOK:BOOLEAN;
724 TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE('INPUT',' ':40-5);
725 WINDOW(1,15,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR;
727 TEXTCOLOR(C_TEXT); WRITELN(ISTR); TEXTCOLOR(C_SUB); WRITELN(ICOM);
728 TEXTCOLOR(C_SUB); WRITE('(RANGE '); TEXTCOLOR(C_TEXT); WRITE(IMIN); TEXTCOLOR(C_SUB);
729 WRITE(' TO '); TEXTCOLOR(C_TEXT); WRITE(IMAX); TEXTCOLOR(C_SUB);
730 WRITE('; DEFAULT VALUE '); TEXTCOLOR(C_TEXT); WRITE(IDEF); TEXTCOLOR(C_SUB);
731 WRITELN(')'); TEXTCOLOR(C_TEXT); WRITE('> '); IVAL:=READ; IF IVAL=-1THEN IVAL:=IDEF;
732 IOK:=FALSE; IF(IVAL>=IMIN)AND(IVAL<=IMAX)THEN IOK:=TRUE
733 ELSE BEGIN CLRSCR; WRITELN('OUT OF RANGE!'); END; {OUTOFRANGE}
734 UNTIL IOK; INPUTINT:=IVAL;
738 LABEL EDITGAME1,EDITGAME2;
741 TITLEBAR(5,'EDIT GAMETYPES'); TEXTCOLOR(C_MENU); WRITE('1');
742 TEXTCOLOR(C_TEXT); WRITE(': SINGLEPLAYER ');
743 TEXTCOLOR(C_VALUE); IF(B.LSINGLE=0)OR(B.LFROM[1]=0)THEN WRITELN('(NO LEVELS)')
744 ELSE WRITELN('(',B.LTO[1]-B.LFROM[1]+1,' OF ',B.LSINGLE,')');
745 FOR II:=2TO 7DO BEGIN
746 TEXTCOLOR(C_MENU); WRITE(II); TEXTCOLOR(C_TEXT); WRITE(': '+GAMETYPE[II],' ');
747 TEXTCOLOR(C_VALUE); IF B.LFROM[II]=0THEN WRITELN('(NO LEVELS)')
748 ELSE WRITELN('(',B.LFROM[II],'-',B.LTO[II],')');
750 TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITE(': RACE '); TEXTCOLOR(C_VALUE);
751 IF B.LFROM[8]=0THEN WRITELN('(NO LEVELS)')ELSE WRITELN('(',B.LTO[8]-B.LFROM[8]+1,' OF ',B.LRACE,')');
752 TEXTCOLOR(C_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITE(': CTF '); TEXTCOLOR(C_VALUE);
753 IF B.LFROM[9]=0THEN WRITE('(NO LEVELS)')ELSE WRITE('(',B.LTO[9]-B.LFROM[9]+1,' OF ',B.LCTF,')');
757 B.LFROM[1]:=INPUTINT('ENTER LEVELS TO SKIP','USE THIS TO TEMPORARILY REMOVE THE FIRSTFEW LEVELS',
758 0,0,MAX(0,B.LSINGLE-1)); INC(B.LFROM[1]);
759 B.LTO[1]:=INPUTINT('ENTER LEVELS SELECTABLE','THE HIGHEST LEVEL SOMEONE CAN START IN WITHOUT PLAYING IT EARLIER',
760 0,1,B.LSINGLE+1-B.LFROM[1]);
761 IF B.LTO[1]=0THEN B.LFROM[1]:=0 ELSE B.LTO[1]:=B.LTO[1]+B.LFROM[1]-1;
762 END {SINGLEPLAYER} ELSE IF III=8THEN BEGIN
763 B.LFROM[8]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LRACE);
765 B.LTO[8]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[8],B.LRACE,B.LRACE);
766 END {RACE} ELSE IF III=9THEN BEGIN
767 B.LFROM[9]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LCTF);
769 B.LTO[9]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[9],B.LCTF,B.LCTF);
770 END {CTF} ELSE IF III>0THEN BEGIN
771 B.LFROM[III]:=INPUTINT('ENTER NEW STARTING LEVEL',
772 'THAT LEVEL WILL BE LEVEL #1 IN GAMEMODE '+GAMETYPE[III]+'. 0=NO LEVELS',0,1,B.LMULTI);
773 IF B.LFROM[III]>0THEN
774 B.LTO[III]:=INPUTINT('ENTER LAST LEVEL NUMBER',NR(B.LMULTI)+' LEVELS PRESENT',
775 B.LFROM[III],B.LMULTI,B.LMULTI);
777 UNTIL III=-1; III:=0;
784 TITLEBAR(2,'EDIT OBJECT #'+NR(I)+' IN LEVEL '+NR(II));
785 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': OBJECT TYPE ');
786 III:=L[II].OBJ[I].TYP; TEXTCOLOR(C_VALUE); WRITELN('(',ABS(III),')');
788 IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT); WRITE('2'); TEXTCOLOR(C_TEXT);
789 IF ABS(L[II].OBJ[I].TYP)=4THEN WRITE(': OBJECT POSITION ')ELSE WRITE(': OBJECT BEGIN');
790 IF L[II].OBJ[I].TYP>0THEN BEGIN
791 TEXTCOLOR(C_VALUE); WRITELN(' (',L[II].OBJ[I].X1,',',L[II].OBJ[I].Y1,')');
792 END {PRESENT} ELSE WRITELN;
793 IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
794 WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SELECT');
795 IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT); WRITE('4'); TEXTCOLOR(C_TEXT);
796 IF ABS(L[II].OBJ[I].TYP)=4THEN WRITE(': OBJECT SIZE ')ELSE WRITE(': OBJECT END ');
797 TEXTCOLOR(C_VALUE); CASE L[II].OBJ[I].TYP OF
798 3:WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y1+L[II].OBJ[I].Y2,')');
799 4:WRITELN('(',L[II].OBJ[I].X2,')');
800 1..10:WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y2,')');
803 IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
804 WRITE('5'); TEXTCOLOR(C_TEXT); WRITELN(': SELECT');
805 TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITELN(': PREVIEW');
806 TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT);
807 IF L[II].OBJ[I].TYP<0THEN WRITE(': ENABLE')ELSE WRITE(': DISABLE');
808 END; {OBJECT PROPERTIES}
810 IF III<>0THEN III:=EDITMENU(7,6)ELSE III:=EDITMENU(1,6);
813 S:=''; FOR I4:=0TO 4DO S:=S+NR(I4)+': '+OBJTYPE[I4]+CC(' ',37-ORD(OBJTYPE[I4,0]));
814 L[II].OBJ[I].TYP:=INPUTINT('ENTER OBJECT TYPE',S,0,0,4);
815 IF L[II].OBJ[I].TYP=4THEN BEGIN
816 L[II].OBJ[I].X1:=(L[II].FIELDX-1)SHR 1;
817 L[II].OBJ[I].Y1:=(L[II].FIELDY-1)SHR 1;
818 L[II].OBJ[I].X2:=MIN(L[II].FIELDY-3,L[II].FIELDX-3)SHR 2;
820 END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN
821 IF(L[II].OBJ[I].TYP=1)OR(L[II].OBJ[I].TYP=3)THEN I4:=2 ELSE I4:=3;
822 L[II].OBJ[I].X1:=(L[II].FIELDX-1)SHR 1-(L[II].FIELDX-1)SHR 2;
823 L[II].OBJ[I].Y1:=(L[II].FIELDY-1)SHR 1-(L[II].FIELDY-1)SHR 2;
824 L[II].OBJ[I].X2:=(L[II].FIELDX-1)SHR 1+(L[II].FIELDX-1)SHR 2;
825 L[II].OBJ[I].Y2:=(L[II].FIELDY-1)SHR 1+(L[II].FIELDY-1)SHR 2;
826 IF L[II].OBJ[I].TYP=3THEN
827 L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1; {BOX}
831 S:='SCREEN=(2,2)-('+NR(L[II].FIELDX-3)+','+NR(L[II].FIELDY-3)+
832 '); CENTER=('+NR((L[II].FIELDX-1)SHR 1)+','+NR((L[II].FIELDY-1)SHR 1)+')';
833 IF L[II].OBJ[I].TYP=4THEN BEGIN
834 L[II].OBJ[I].X1:=INPUTINT('ENTER X',S+
835 ' BE CAREFUL DRAWING OFF-SCREEN!',0,L[II].OBJ[I].X1,255);
836 L[II].OBJ[I].Y1:=INPUTINT('ENTER Y',S+
837 ' DON''T TRY Y<0; MIGHT CRASH CALC!!!',0,L[II].OBJ[I].Y1,255);
838 END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN
839 IF L[II].OBJ[I].TYP=3THEN
840 L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2+L[II].OBJ[I].Y1-3;
841 IF(L[II].OBJ[I].TYP=1)OR(L[II].OBJ[I].TYP=3)THEN I4:=2 ELSE I4:=3;
842 L[II].OBJ[I].X1:=INPUTINT('ENTER BEGIN X',S,2,L[II].OBJ[I].X1,L[II].FIELDX-I4);
843 L[II].OBJ[I].Y1:=INPUTINT('ENTER BEGIN Y',S,2,L[II].OBJ[I].Y1,L[II].FIELDY-I4);
844 IF L[II].OBJ[I].TYP=3THEN
845 L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1+3;
850 IF L[II].OBJ[I].TYP=4 THEN BEGIN
851 L[II].OBJ[I].X2:=INPUTINT('ENTER SIZE','CROSSING BOUNDARIES NOT CHECKED',
852 3,L[II].OBJ[I].X2,255{L[II].FIELDX-3)SHR 1});
854 END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN
855 S:='SCREEN=(0,0)-('+NR(L[II].FIELDX-2)+','+NR(L[II].FIELDY-2)+
856 '); CENTER=('+NR((L[II].FIELDX-1)SHR 1)+','+NR((L[II].FIELDY-1)SHR 1)+')';
857 IF(L[II].OBJ[I].TYP=1)OR(L[II].OBJ[I].TYP=3)THEN I4:=2 ELSE I4:=3;
858 L[II].OBJ[I].X2:=INPUTINT('ENTER END X',S,2,L[II].OBJ[I].X2,L[II].FIELDX-I4);
859 L[II].OBJ[I].Y2:=INPUTINT('ENTER END Y',S,2,L[II].OBJ[I].Y2,L[II].FIELDY-I4);
860 IF L[II].OBJ[I].TYP=3THEN BEGIN
861 IF L[II].OBJ[I].Y2<L[II].OBJ[I].Y1 THEN BEGIN
862 I4:=L[II].OBJ[I].Y2; L[II].OBJ[I].Y2:=L[II].OBJ[I].Y1;
864 END; {END BEFORE START}
865 L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1;
872 L[II].OBJ[I].TYP:=-L[II].OBJ[I].TYP;
873 END; {DISABLE/ENABLE}
875 UNTIL III=-1; III:=0;
879 LABEL EDITOBJS1,EDITOBJS2;
882 TITLEBAR(2,'EDIT LEVEL OBJECTS');
883 IF L[II].NROBJ>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
884 WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT OBJECT');
885 IF L[II].NROBJ>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
886 WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE OBJECT');
887 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE OBJECT');
888 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': PLACE OBJECT');
889 TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITE(': VIEW OBJECT');
893 1:IF L[II].NROBJ>0THEN BEGIN
894 I:=INPUTINT('EDIT WHICH OBJECT','',1,1,L[II].NROBJ);
897 2:IF L[II].NROBJ>0THEN BEGIN
898 I:=INPUTINT('DELETE WHICH OBJECT','0=CANCEL',0,0,L[II].NROBJ);
900 I4:=INPUTINT('PLEASE CONFIRM OBJECT TO *REMOVE*','ENTER 0 TO CANCEL',0,0,L[II].NROBJ);
902 DEC(L[II].NROBJ); FOR I:=I4 TO L[II].NROBJ DO L[II].OBJ[I]:=L[II].OBJ[I+1];
907 INC(L[II].NROBJ); I:=L[II].NROBJ; L[II].OBJ[I].TYP:=0; EDITOBJ;
910 INC(L[II].NROBJ); I:=L[II].NROBJ; L[II].OBJ[I].TYP:=0;
911 S:=''; FOR I4:=0TO 4DO S:=S+NR(I4)+': '+OBJTYPE[I4]+CC(' ',37-ORD(OBJTYPE[I4,0]));
912 L[II].OBJ[I].TYP:=INPUTINT('ENTER OBJECT TYPE',S,0,0,4);
913 L[II].OBJ[I].X1:=0; L[II].OBJ[I].Y1:=0; L[II].OBJ[I].X2:=0;
914 L[II].OBJ[I].Y2:=0; MAPOBJ(I,0);
915 IF L[II].OBJ[I].TYP=3THEN BEGIN
916 L[II].OBJ[I].X2:=L[II].OBJ[I].X1; L[II].OBJ[I].Y2:=1;
917 END; {BOX} MAPOBJ(I,1);
920 I4:=INPUTINT('ENTER OBJECT TO HIGHLIGHT','0 FOR NONE',0,0,L[II].NROBJ);
924 UNTIL III=-1; III:=0;
927 FUNCTION BYTE2STR(SPRITE,SPRSIZE:BYTE):STRING;
928 VAR SPRTEMP:STRING[8];
932 FOR SPRTEMP2:=1TO 8-SPRSIZE DO SPRITE:=SPRITE SHR 1;
933 FOR SPRTEMP2:=9-SPRSIZE TO 8DO BEGIN
934 IF SPRITE MOD 2=1THEN SPRTEMP:='X'+SPRTEMP ELSE SPRTEMP:='�'+SPRTEMP;
935 SPRITE:=SPRITE SHR 1;
940 FUNCTION BYTE2BIN(BYI1:BYTE):LONGINT;
941 VAR BYI2:BYTE; BYI3:LONGINT;
944 FOR BYI2:=0TO 7DO BEGIN
945 IF BYI1 AND 1=1THEN BYI3:=BYI3+POW(10,BYI2);
951 FUNCTION STR2BYTE(SPRITE:STRING):BYTE;
952 VAR SPRTEMP,SPRTEMP2:BYTE;
954 SPRTEMP:=0; SPRTEMP2:=1;
955 FOR SPRTEMP2:=1TO LENGTH(SPRITE)DO
956 IF SPRITE[SPRTEMP2]='1'THEN INC(SPRTEMP,1SHL(8-SPRTEMP2));
963 TITLEBAR(0,'EDIT SPRITE');
964 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE SIZE ');
965 TEXTCOLOR(C_VALUE); IF L[II].SPRSIZE=0THEN WRITELN('(',B.SPRSIZE,')')
966 ELSE WRITELN('(',L[II].SPRSIZE,')');
967 IF L[II].SPRSIZE=0THEN BEGIN
968 TEXTCOLOR(C_TEXT); WRITE('2: EDIT SPRITE'); TEXTCOLOR(C_VALUE); WRITELN(' (DEFAULT)');
969 END {DEF SPR} ELSE FOR I:=1TO L[II].SPRSIZE DO BEGIN
970 TEXTCOLOR(C_MENU); WRITE(I+1); TEXTCOLOR(C_TEXT); WRITE(': EDIT '); TEXTCOLOR(C_VALUE);
971 WRITELN(BYTE2STR(L[II].SPRITE[I],L[II].SPRSIZE));
974 III:=EDITMENU(1+L[II].SPRSIZE,0);
976 I:=INPUTINT('ENTER NEW SPRITE SIZE','MAXIMUM HEIGHT AND WIDTH; 0=DEFAULT',0,B.SPRSIZE,8);
977 IF I>L[II].SPRSIZE THEN FOR I4:=L[II].SPRSIZE+1TO I DO L[II].SPRITE[I4]:=0;
979 END {SIZE} ELSE IF III>1THEN BEGIN
980 S:=INPUTSTR('ENTER NEW LINE #'+NR(III-1)+' OF SPRITE','EXAMPLE: 100101 = X��X�X',
981 ZERO(BYTE2BIN(L[II].SPRITE[III-1]),8),8);
982 L[II].SPRITE[III-1]:=STR2BYTE(S);
984 UNTIL III=-1; III:=0;
987 PROCEDURE EDITBOUNCIES;
990 TITLEBAR(8,'EDIT BALLS IN LEVEL #'+NR(II));
991 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE BALL');
992 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE BALL');
993 FOR III:=1TO L[II].NRBALLS DO BEGIN
994 TEXTCOLOR(C_MENU); WRITE(III+2); TEXTCOLOR(C_TEXT); WRITE(': BALL #',III,' (');
995 TEXTCOLOR(C_VALUE); WRITE(L[II].BALLS[III].X); TEXTCOLOR(C_TEXT); WRITE(',');
996 TEXTCOLOR(C_VALUE); WRITE(L[II].BALLS[III].Y); TEXTCOLOR(C_TEXT); WRITE(') DIR ');
997 TEXTCOLOR(C_VALUE); WRITELN(L[II].BALLS[III].D);
1000 III:=EDITMENU(2+L[II].NRBALLS,0);
1003 L[II].BALLS[L[II].NRBALLS].X:=INPUTINT('ENTER X','WHERE THE BALL STARTS BOUNCING',0,63,255);
1004 L[II].BALLS[L[II].NRBALLS].Y:=INPUTINT('ENTER Y','',0,27,255);
1005 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);
1006 END {CREATE} ELSE IF III=2THEN BEGIN
1007 III:=INPUTINT('ENTER THE BOUNCY BALL TO REMOVE','(0 CANCELS)',0,0,L[II].NRBALLS);
1009 DEC(L[II].NRBALLS); FOR I4:=III TO L[II].NRBALLS DO L[II].BALLS[I4]:=L[II].BALLS[I4+1];
1011 END {DELETE} ELSE IF III>0THEN BEGIN
1012 L[II].BALLS[III-2].X:=INPUTINT('ENTER X','NOTE THE BOUNCY BALLS WILL PROBABLY BOLDLY GO SOME OTHER PLACE ANYWAY',
1013 0,L[II].BALLS[III-2].X,255);
1014 L[II].BALLS[III-2].Y:=INPUTINT('ENTER Y','',0,L[II].BALLS[III-2].Y,255);
1015 L[II].BALLS[III-2].D:=INPUTINT('ENTER DIRECTION','0/1:DOWN; 2/3:UP; 1/3:RIGHT; 0/2:LEFT',0,L[II].BALLS[III-2].D,3);
1017 UNTIL III=-1; III:=0;
1020 PROCEDURE EDITWORMS;
1023 TITLEBAR(0,'EDIT WORMS IN LEVEL #'+NR(II));
1024 IF II>B.LSINGLE THEN III:=4 ELSE III:=1;
1025 FOR III:=1TO III DO BEGIN
1026 TEXTCOLOR(C_MENU); WRITE(III SHL 1-1); TEXTCOLOR(C_TEXT);
1027 WRITE(': WORM #',III,' DIRECTION '); TEXTCOLOR(C_VALUE);
1028 WRITELN('(',L[II].W[III].D,')');
1029 TEXTCOLOR(C_MENU); WRITE(III SHL 1); TEXTCOLOR(C_TEXT);
1030 WRITE(': WORM #',III,' POSITION '); TEXTCOLOR(C_VALUE);
1031 WRITELN('(',L[II].W[III].X,',',L[II].W[III].Y,')');
1034 IF III=4THEN III:=EDITMENU(8,4)ELSE III:=EDITMENU(2,4);
1037 I:=INPUTINT('ENTER WORM #'+NR(III SHR 1+1)+' STARTING DIRECTION',
1038 '0=DOWN; 64=RIGHT; 128=UP; 192=LEFT',0,L[II].W[III SHR 1+1].D,255);
1039 L[II].W[III SHR 1+1].D:=I;
1042 I:=INPUTINT('ENTER WORM #'+NR(III SHR 1)+' BEGIN X-POSITION',
1043 'SCREEN = 2-'+NR(L[II].FIELDX-3)+'; CENTER = '+NR((L[II].FIELDX-1)SHR 1),
1044 2,L[II].W[III SHR 1].X,L[II].FIELDX-3);
1045 L[II].W[III SHR 1].X:=I;
1046 I:=INPUTINT('ENTER WORM #'+NR(III SHR 1)+' BEGIN Y-POSITION',
1047 'SCREEN = 2-'+NR(L[II].FIELDY-3)+'; CENTER = '+NR((L[II].FIELDY-1)SHR 1),
1048 2,L[II].W[III SHR 1].Y,L[II].FIELDY-3);
1049 L[II].W[III SHR 1].Y:=I;
1052 UNTIL III=-1; III:=0;
1055 PROCEDURE EDITLEVSETS;
1058 TITLEBAR(3,'LEVEL #'+NR(II)+' SETTINGS');
1059 IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
1060 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': FLAG POSITIONS ');
1061 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].FLAG1X,',',L[II].FLAG1Y,')(',
1062 L[II].FLAG2X,',',L[II].FLAG2Y,')');
1063 END {CTF} ELSE IF II>B.LSINGLE+B.LMULTI THEN BEGIN
1064 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': LAP BORDERS ');
1065 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].FLAG1X,'; ',L[II].FLAG1Y,')');
1066 END {RACE} ELSE BEGIN
1067 IF II>B.LSINGLE THEN TEXTCOLOR(C_TEXT)ELSE TEXTCOLOR(C_MENU);
1068 WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': NUMBER OF PEAS ');
1069 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].PEAS,')');
1071 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': GAME DELAY ');
1072 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].DELAY,')');
1073 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITE(': STARTING LENGTH ');
1074 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].BSIZE,')');
1075 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': GROWTH ');
1076 TEXTCOLOR(C_VALUE); WRITE('(',L[II].GROWTH,')');
1080 1:IF II<=B.LSINGLE THEN
1081 L[II].PEAS:=INPUTINT('ENTER TOTAL NUMBER OF PEAS','TOO MANY PEAS WILL MAKE A LEVEL BORING',1,L[II].PEAS,255)
1082 ELSE IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
1083 IF L[II].SPRSIZE>0THEN I:=L[II].SPRSIZE ELSE I:=B.SPRSIZE;
1084 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);
1085 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);
1086 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);
1087 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);
1088 END {CTF} ELSE IF II>B.LSINGLE+B.LMULTI THEN BEGIN
1089 L[II].FLAG1X:=INPUTINT('ENTER HORIZONTAL LAP BORDER','USUALLY THE MIDDLE OF THE SCREEN',2,L[II].FIELDY SHR 1,L[II].FIELDY-2);
1090 L[II].FLAG1Y:=INPUTINT('ENTER VERTICAL LAP BORDER','USUALLY THE CENTER OF THE SCREEN',2,L[II].FIELDX SHR 1,L[II].FIELDX-2);
1092 2:L[II].DELAY:=INPUTINT('ENTER NEW DELAY','0=FASTEST; 4=AVERAGE; 10=SLOW',0,L[II].DELAY,255);
1093 3:L[II].BSIZE:=INPUTINT('ENTER WORM BEGIN SIZE','15=NORMAL; TOO SHORT WORMS WILL BE HARD TO PLAY WITH',
1095 4:L[II].GROWTH:=INPUTINT('ENTER GROWTH PER PEA','0=NO GROWTH; 15=NORMAL',0,L[II].GROWTH,255);
1097 UNTIL III=-1; III:=0;
1100 PROCEDURE EDITLEVEL;
1103 L[II].SIZE:=12+L[II].NRBALLS*3+L[II].SPRSIZE+L[II].NROBJ*5;
1104 FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(L[II].SIZE,5);
1105 IF II<=B.LSINGLE THEN L[II].NAME:=ZERO(II,2);
1106 IF II>B.LSINGLE THEN INC(L[II].SIZE,10+LENGTH(L[II].NAME));
1107 IF II>B.LSINGLE+B.LMULTI THEN INC(L[II].SIZE,2);
1108 IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN INC(L[II].SIZE,2);
1109 TITLEBAR(3,'EDIT LEVEL #'+NR(II));
1110 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': DESCRIPTION ');
1111 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].ID,')');
1112 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': NAME ');
1113 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].NAME,')');
1114 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': LEVEL SETTINGS');
1115 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE ');
1116 TEXTCOLOR(C_VALUE); IF L[II].SPRSIZE=0THEN WRITELN('(DEFAULT)')
1117 ELSE WRITELN('(',L[II].SPRSIZE,')');
1118 TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITE(': BOUNCY BALLS ');
1119 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].NRBALLS,')');
1120 TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITE(': WORMS '); TEXTCOLOR(C_VALUE);
1121 IF II>B.LSINGLE THEN BEGIN
1122 WRITELN('(',L[II].W[1].D,';',L[II].W[2].D,';',L[II].W[3].D,';',L[II].W[4].D,')');
1123 END {FOUR WORMS} ELSE
1124 WRITELN('(',L[II].W[1].X,',',L[II].W[1].Y,':',L[II].W[1].D,')');
1125 TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITE(': FIELD SIZE ');
1126 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].FIELDX,',',L[II].FIELDY,')');
1127 TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITE(': OBJECTS ');
1128 TEXTCOLOR(C_VALUE); WRITELN('(',L[II].NROBJ,')');
1129 TEXTCOLOR(C_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITE(': PREVIEW LEVEL');
1133 1:L[II].ID:=INPUTSTR('ENTER DESCRIPTION FOR THIS LEVEL',
1134 'THIS WON''T BE DISPLAYED DURING THE GAME,IT''S JUST TO MAKE EDITING EASIER',L[II].ID,22); {DESCR}
1135 2:L[II].NAME:=INPUTSTR('ENTER DESCRIPTION FOR THIS LEVEL',
1136 'MULTIPLAYER LEVELS CAN BE NAMED TO MAKE LIFE EASIER FOR THE PLAYER',L[II].NAME,22); {NAME}
1142 FOR III:=L[II].NROBJ DOWNTO 1DO
1143 IF L[II].OBJ[III].Y2+L[II].OBJ[III].Y1=255THEN BEGIN
1144 DEC(L[II].NROBJ); FOR I4:=III TO L[II].NROBJ DO L[II].OBJ[I4]:=L[II].OBJ[I4+1];
1145 END; {REMOVE OLD BARS}
1146 L[II].FIELDX:=INPUTINT('ENTER FIELD WIDTH','128=ONE SCREEN; MORE WILL SCROLL THE SCREEN',5,L[II].FIELDX,255);
1147 IF L[II].FIELDX<128THEN BEGIN
1148 INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=L[II].FIELDX;
1149 IF L[II].FIELDX<128THEN DEC(L[II].OBJ[L[II].NROBJ].X1,2);
1150 L[II].OBJ[L[II].NROBJ].Y2:=255; L[II].OBJ[L[II].NROBJ].TYP:=3;
1151 L[II].OBJ[L[II].NROBJ].X2:=127; L[II].OBJ[L[II].NROBJ].Y1:=0;
1153 L[II].FIELDY:=INPUTINT('ENTER FIELD HEIGHT','57=ONE SCREEN; MORE WILL SCROLL THE SCREEN',5,L[II].FIELDY,255);
1154 IF L[II].FIELDY<57THEN BEGIN
1155 INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=2;
1156 L[II].OBJ[L[II].NROBJ].Y2:=257-L[II].FIELDY;
1157 L[II].OBJ[L[II].NROBJ].X2:=L[II].FIELDX-1; L[II].OBJ[L[II].NROBJ].TYP:=3;
1158 L[II].OBJ[L[II].NROBJ].Y1:=L[II].FIELDY;
1164 UNTIL III=-1; III:=0;
1168 LABEL EDITHLVL1,EDITHLVL2;
1171 TITLEBAR(1,'EDIT LEVELS');
1172 IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
1173 WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT LEVEL');
1174 IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
1175 WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': COPY LEVEL');
1176 IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
1177 WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': MOVE LEVEL');
1178 IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
1179 WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE LEVEL');
1180 TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE SINGLEPLAYER LEVEL');
1181 TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE MULTIPLAYER LEVEL');
1182 TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE RACE LEVEL');
1183 TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE CTF LEVEL');
1184 TEXTCOLOR(C_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITELN(': PREVIEW LEVELS');
1185 TEXTCOLOR(C_TEXT); WRITELN; III:=EDITMENU(9,5);
1188 1:IF B.LTOTAL>0THEN BEGIN
1189 II:=INPUTINT('EDIT WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
1190 IF II<>0THEN EDITLEVEL;
1192 2:IF B.LTOTAL>0THEN BEGIN
1193 II:=INPUTINT('COPY WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
1196 IF II<=B.LSINGLE THEN BEGIN
1198 FOR I:=B.LTOTAL DOWNTO B.LSINGLE+1DO L[I]:=L[I-1];
1199 L[B.LSINGLE]:=L[II]; II:=B.LSINGLE
1200 END {SP} ELSE IF II<=B.LSINGLE+B.LMULTI THEN BEGIN
1201 FOR I:=2TO 6DO IF B.LTO[I]=B.LMULTI THEN BEGIN
1202 INC(B.LTO[I]); IF B.LFROM[I]=0THEN INC(B.LFROM[I]);
1205 FOR I:=B.LTOTAL DOWNTO B.LSINGLE+B.LMULTI+1DO L[I]:=L[I-1];
1206 L[B.LSINGLE+B.LMULTI]:=L[II]; II:=B.LSINGLE+B.LMULTI;
1207 END {MP} ELSE IF II<=B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
1208 INC(B.LRACE); FOR I:=B.LTOTAL DOWNTO B.LSINGLE+B.LMULTI+B.LRACE+1DO L[I]:=L[I-1];
1209 L[B.LSINGLE+B.LMULTI+B.LRACE]:=L[II]; II:=B.LSINGLE+B.LMULTI+B.LRACE;
1210 END {RACE} ELSE BEGIN
1211 INC(B.LCTF); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL;
1213 L[II].ID:='Copy of '+L[II].ID;
1216 3:IF B.LTOTAL>0THEN BEGIN
1217 I:=INPUTINT('MOVE WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
1219 II:=INPUTINT('NEW LEVEL NUMBER','ENTER 0 TO CANCEL',0,0,B.LTOTAL);
1220 IF II<>0THEN IF((I<=B.LSINGLE)AND(II<=B.LSINGLE))
1221 OR((I>B.LSINGLE)AND(I<=B.LMULTI+B.LSINGLE)AND(II>B.LSINGLE)AND(II<=B.LMULTI+B.LSINGLE))
1222 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))
1223 OR((I>B.LSINGLE+B.LMULTI+B.LRACE)AND(II>B.LSINGLE+B.LMULTI+B.LRACE))THEN BEGIN
1224 LTEMP:=L[I]; IF II>I THEN FOR I4:=I TO II-1DO L[I4]:=L[I4+1]
1225 ELSE FOR I4:=I DOWNTO II+1DO L[I4]:=L[I4-1];
1230 4:IF B.LTOTAL>0THEN BEGIN
1231 II:=INPUTINT('DELETE WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
1233 I:=INPUTINT('PLEASE CONFIRM LEVEL TO *REMOVE*','ENTER 0 TO CANCEL',0,0,B.LTOTAL);
1235 IF I<=B.LSINGLE THEN DEC(B.LSINGLE)ELSE
1236 IF I<=B.LMULTI+B.LSINGLE THEN DEC(B.LMULTI)ELSE
1237 IF I<=B.LMULTI+B.LSINGLE+B.LRACE THEN DEC(B.LRACE)ELSE
1239 DEC(B.LTOTAL); FOR I:=II TO B.LTOTAL DO L[I]:=L[I+1];
1240 FOR I:=2TO 7DO BEGIN
1241 IF B.LTO[I]>B.LMULTI THEN B.LTO[I]:=B.LMULTI;
1242 IF B.LFROM[I]>B.LTO[I]THEN B.LFROM[I]:=B.LTO[I];
1244 IF B.LTO[8]>B.LMULTI+B.LRACE THEN B.LTO[8]:=B.LMULTI+B.LRACE;
1245 IF B.LFROM[8]>B.LTO[8]THEN B.LFROM[8]:=B.LTO[8];
1246 IF B.LTO[9]>B.LTOTAL THEN B.LTO[9]:=B.LTOTAL;
1247 IF B.LFROM[9]>B.LTO[9]THEN B.LFROM[9]:=B.LTO[9];
1252 INC(B.LSINGLE); INC(B.LTOTAL); II:=B.LSINGLE;
1253 IF B.LTO[1]=0THEN B.LTO[1]:=1; IF B.LFROM[1]=0THEN B.LFROM[1]:=1;
1254 FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1];
1255 L[II].ID:='Level #'+NR(II);
1256 L[II].PEAS:=8; L[II].DELAY:=4; L[II].GROWTH:=15; L[II].BSIZE:=15;
1257 L[II].SPRSIZE:=0; L[II].NRBALLS:=0; L[II].W[1].D:=0; L[II].W[1].X:=63;
1258 L[II].W[1].Y:=2; L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0;
1262 FOR I:=2TO 7DO IF B.LTO[I]=B.LMULTI THEN BEGIN
1263 INC(B.LTO[I]); IF B.LFROM[I]=0THEN INC(B.LFROM[I]);
1265 INC(B.LTOTAL); INC(B.LMULTI); II:=B.LSINGLE+B.LMULTI;
1266 FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1];
1267 L[II].ID:='Arena #'+NR(B.LMULTI); L[II].NAME:=ZERO(B.LMULTI,2);
1268 L[II].DELAY:=4; L[II].GROWTH:=15; L[II].BSIZE:=15; L[II].SPRSIZE:=0;
1269 L[II].W[1].D:=$40; L[II].W[1].Y:=28; L[II].W[1].X:=2;
1270 L[II].W[2].D:=$C0; L[II].W[2].Y:=28; L[II].W[2].X:=125;
1271 L[II].W[3].D:=$00; L[II].W[3].Y:=02; L[II].W[3].X:=63;
1272 L[II].W[4].D:=$80; L[II].W[4].Y:=54; L[II].W[4].X:=63;
1273 L[II].NRBALLS:=0; L[II].FIELDX:=128; L[II].FIELDY:=57;
1274 L[II].NROBJ:=0; EDITLEVEL;
1277 INC(B.LRACE); INC(B.LTOTAL); II:=B.LSINGLE+B.LMULTI+B.LRACE;
1278 FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1];
1279 INC(B.LTO[8]); IF B.LFROM[8]=0THEN INC(B.LFROM[8]);
1280 L[II].ID:='Track #'+NR(II); L[II].NAME:=ZERO(B.LRACE,2);
1281 L[II].DELAY:=8; L[II].GROWTH:=15;
1282 L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;
1283 L[II].W[1].D:=$40; L[II].W[1].X:=2; L[II].W[1].Y:=23;
1284 L[II].W[2].D:=$C0; L[II].W[2].X:=125; L[II].W[2].Y:=23;
1285 L[II].W[3].D:=$40; L[II].W[3].X:=2; L[II].W[3].Y:=35;
1286 L[II].W[4].D:=$C0; L[II].W[4].X:=125; L[II].W[4].Y:=35;
1287 L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0;
1288 L[II].FLAG1X:=28; L[II].FLAG1Y:=63; L[II].FLAG2X:=0; L[II].FLAG2Y:=0;
1292 INC(B.LCTF); INC(B.LTOTAL); II:=B.LTOTAL;
1293 INC(B.LTO[9]); IF B.LFROM[9]=0THEN INC(B.LFROM[9]);
1294 L[II].ID:='Field #'+NR(II); L[II].NAME:=ZERO(B.LCTF,2);
1295 L[II].DELAY:=5; L[II].GROWTH:=15;
1296 L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;
1297 L[II].W[1].D:=$40; L[II].W[1].X:=2; L[II].W[1].Y:=23;
1298 L[II].W[2].D:=$C0; L[II].W[2].X:=125; L[II].W[2].Y:=23;
1299 L[II].W[3].D:=$40; L[II].W[3].X:=2; L[II].W[3].Y:=35;
1300 L[II].W[4].D:=$C0; L[II].W[4].X:=125; L[II].W[4].Y:=35;
1301 L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0;
1302 L[II].FLAG1X:=8; L[II].FLAG2X:=128-8-B.SPRSIZE;
1303 L[II].FLAG1Y:=27; L[II].FLAG2Y:=27;
1307 II:=INPUTINT('MAP SIZE','4=SHRINK 16 MAPS ON SCREEN',1,5,32);
1311 UNTIL III=-1; III:=0;
1317 TITLEBAR(0,'CHANGE DEFAULTS');
1318 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': HISCORE NAME ');
1319 TEXTCOLOR(C_VALUE); WRITELN('(',B.HINAME,')');
1320 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': END TYPE ');
1321 TEXTCOLOR(C_VALUE); WRITELN('(',ENDTYPE[B.ENDTYPE],')');
1324 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITE(': EDIT MESSAGE ');
1325 TEXTCOLOR(C_VALUE); WRITE('(',COPY(B.ENDSTR,1,18));
1326 IF LENGTH(B.ENDSTR)>18THEN WRITELN('...)')ELSE WRITELN(')');
1328 ELSE BEGIN TEXTCOLOR(C_TEXT); WRITELN('3: CONFIGURE END'); END; {NOTN}
1330 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE SIZE ');
1331 TEXTCOLOR(C_VALUE); WRITELN('(',B.SPRSIZE,')');
1332 FOR I:=1TO B.SPRSIZE DO BEGIN
1333 TEXTCOLOR(C_MENU); IF I>5THEN WRITE(CHR(I+59))ELSE WRITE(I+4);
1334 TEXTCOLOR(C_TEXT); WRITE(': EDIT '); TEXTCOLOR(C_VALUE);
1335 WRITELN(BYTE2STR(B.SPRITE[I],B.SPRSIZE));
1338 III:=EDITMENU(4+B.SPRSIZE,0);
1341 S:=INPUTSTR('DEFAULT NAME OF HISCORES','LENGTH 3 CHARS',B.HINAME,3);
1342 FOR I:=1TO 3DO B.HINAME[I]:=S[I];
1346 FOR II:=0TO ENDTYPES DO S:=S+(NR(II)+': '+ENDTYPE[II]+CC(' ',37-ORD(ENDTYPE[II,0])));
1347 B.ENDTYPE:=INPUTINT('ENTER NEW END TYPE',S,0,0,ENDTYPES);
1348 IF B.ENDTYPE>0THEN B.ENDSTR:='Congratulations!!';
1352 B.ENDSTR:=INPUTSTR('ENTER NEW END MESSAGE','MAX 255 CHARS','Congratulations!!',255);
1355 I:=INPUTINT('ENTER THE DEFAULT SPRITE SIZE','CAN BE CHANGED PER LEVEL',1,B.SPRSIZE,8);
1356 IF I>B.SPRSIZE THEN FOR I4:=B.SPRSIZE+1TO I DO B.SPRITE[I4]:=0;
1359 ELSE IF III>4THEN BEGIN
1360 S:=INPUTSTR('ENTER NEW LINE #'+NR(III-4)+' OF SPRITE','EXAMPLE: 100101 = X��X�X',
1361 ZERO(BYTE2BIN(B.SPRITE[III-4]),8),8);
1362 B.SPRITE[III-4]:=STR2BYTE(S);
1365 UNTIL III=-1; III:=0;
1371 TITLEBAR(4,UPCS(B.NAME));
1372 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT TITLE');
1373 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DESCRIPTION');
1374 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': DEFAULTS');
1375 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': GAME TYPES');
1376 TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITE(': LEVELS');
1377 TEXTCOLOR(C_VALUE); WRITE(' (',B.LTOTAL,')');
1381 1:B.NAME:=INPUTSTR('ENTER NEW TITLE FOR THIS LEVELFILE',
1382 'NOTE TI-86 DISPLAYS ONLY 22 CHARS ON THEFIRST LINE',B.NAME,32); {TITLE}
1383 2:B.DESC:=INPUTSTR('ENTER NEW DESCRIPTION FOR THIS LEVELFILE',
1384 'DISPLAYED AT THE LEVEL-SELECTION SCREEN.',B.DESC,64); {DESC}
1389 UNTIL III=-1; III:=0;
1394 ASSIGN(F,FILENAME+'.LVL'); {$I-} RESET(F,1); {$I+} I:=IORESULT;
1396 TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT);
1397 WRITELN('FAILED OPENING LEVEL FILE!'); WRITELN('RUNTIME ERROR #',I); HALT;
1399 {$I-} BLOCKREAD(F,B,SIZEOF(B));
1400 FOR I:=1TO B.LTOTAL DO BLOCKREAD(F,L[I],SIZEOF(L[I])); {$I+}
1401 IF IORESULT<>0THEN BEGIN
1402 TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT);
1403 WRITELN('ERROR READING LEVEL FILE!');
1406 IF B.HEAD<>HEADEDIT THEN BEGIN
1407 TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT);
1408 WRITELN('WRONG HEADER!');
1411 IF B.VERSION<>HEADVERSION THEN BEGIN
1412 WRITELN('CAN''T READ FILE VERSION ',B.VERSION,'.'); CLOSE(F); HALT;
1414 FSIZE:=FILESIZE(F); CLOSE(F);
1419 ASSIGN(F,FILENAME+'.LVL'); REWRITE(F,1);
1420 BLOCKWRITE(F,B,SIZEOF(B));
1421 FOR I:=1TO B.LTOTAL DO BLOCKWRITE(F,L[I],SIZEOF(L[I]));
1427 PROCEDURE SAVELEVEL(SAVEWORMS:BYTE);
1429 IF II>B.LSINGLE THEN BEGIN
1430 BLOCKWRITE(FF,L[II].NAME[1],LENGTH(L[II].NAME)); I:=0; BLOCKWRITE(FF,I,1);
1432 BLOCKWRITE(FF,L[II].PEAS,1);
1433 BLOCKWRITE(FF,L[II].DELAY,1);
1434 BLOCKWRITE(FF,L[II].GROWTH,1);
1435 BLOCKWRITE(FF,L[II].BSIZE,1);
1436 BLOCKWRITE(FF,L[II].SPRSIZE,1);
1437 BLOCKWRITE(FF,L[II].SPRITE,L[II].SPRSIZE);
1438 BLOCKWRITE(FF,L[II].NRBALLS,1);
1439 BLOCKWRITE(FF,L[II].BALLS,L[II].NRBALLS*3);
1440 BLOCKWRITE(FF,L[II].W[1].D,3*SAVEWORMS); {D,X,Y}
1441 BLOCKWRITE(FF,L[II].FIELDX,2); {FIELDX,FIELDY}
1442 IF II>B.LSINGLE+B.LMULTI THEN BLOCKWRITE(FF,L[II].FLAG1Y,2); {FLAG1Y,FLAG1X}
1443 IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BLOCKWRITE(FF,L[II].FLAG2Y,2); {FLAG2Y,FLAG2X}
1444 FOR I:=1TO L[II].NROBJ DO BEGIN
1445 IF L[II].OBJ[I].TYP>0THEN BEGIN
1446 BLOCKWRITE(FF,L[II].OBJ[I].TYP,4);
1447 IF(L[II].OBJ[I].TYP=3)AND(L[II].OBJ[I].Y2+L[II].OBJ[I].Y1=255)THEN BEGIN
1448 I4:=MAX(57,L[II].FIELDY)-L[II].OBJ[I].Y1; BLOCKWRITE(FF,I4,1);
1449 END {OFFSCREEN} ELSE BLOCKWRITE(FF,L[II].OBJ[I].Y2,1);
1452 I:=0; BLOCKWRITE(FF,I,1); {LVL END}
1453 END; {COMMONSAVELEVEL}
1455 ASSIGN(FF,FILENAME+'.86S'); REWRITE(FF,1);
1457 BLOCKWRITE(FF,HEAD86S[1],ORD(HEAD86S[0])); {86S-HEADER}
1458 ISTACK:=COMPSIZE; BLOCKWRITE(FF,ISTACK,2); {FILE LENGTH (x+$12)}
1459 I:=$000C; BLOCKWRITE(FF,I,2); {STRING ID}
1460 DEC(ISTACK,$10); BLOCKWRITE(FF,ISTACK,2); {DATA LENGTH (x+2)}
1462 I:=$080C; BLOCKWRITE(FF,I,2); {STRING ID}
1463 S:=LOCS(FILENAME); FOR I:=ORD(S[0])+1TO 8DO S[I]:=#0;
1464 BLOCKWRITE(FF,S[1],8); {PRGNAME}
1465 BLOCKWRITE(FF,ISTACK,2); {DATA LENGTH (x+2)}
1466 DEC(ISTACK,2); BLOCKWRITE(FF,ISTACK,2); {PROG LENGTH (x)}
1468 C:='w'; BLOCKWRITE(FF,C,1); {WORM ID}
1469 I:=HEADOUTVERSION; BLOCKWRITE(FF,I,1); {VERSION}
1470 I:=0; BLOCKWRITE(FF,B.NAME[1],ORD(B.NAME[0])); {TITLE}
1471 BLOCKWRITE(FF,I,1); {STRING TERMINATOR #0}
1472 BLOCKWRITE(FF,B.DESC[1],ORD(B.DESC[0])); {DESCRIPTION} BLOCKWRITE(FF,I,1);
1473 I:=1+B.SPRSIZE+ORD(B.ENDDATA[0])+1;
1474 FOR II:=B.LFROM[1]TO B.LSINGLE+B.LMULTI DO I:=I+L[II].SIZE;
1475 IF B.LFROM[8]>0THEN {RACE LEVELS}
1476 FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]
1478 IF B.LFROM[9]>0THEN {CTF LEVELS}
1479 FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[9]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[9]
1481 BLOCKWRITE(FF,I,2); {SIZE}
1483 I2:=0; I:=PC+1+B.SPRSIZE;
1484 IF B.LSINGLE=0THEN BLOCKWRITE(FF,I2,2)ELSE BEGIN
1485 BLOCKWRITE(FF,I,2); FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE);
1486 END; {SINGLLVLS} INC(I,1+ORD(B.ENDDATA[0]));
1487 ISTACK:=I; FOR II:=2TO 7DO BEGIN
1488 I:=ISTACK; IF B.LFROM[II]=0THEN I:=0 ELSE
1489 FOR III:=B.LSINGLE TO B.LSINGLE+B.LFROM[II]-2DO
1493 FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO INC(ISTACK,L[II].SIZE);
1494 I:=0; IF B.LRACE=0THEN BLOCKWRITE(FF,I,2)ELSE BLOCKWRITE(FF,ISTACK,2);
1495 FOR II:=B.LSINGLE+B.LMULTI+1TO B.LSINGLE+B.LMULTI+B.LRACE DO INC(ISTACK,L[II].SIZE);
1496 IF B.LCTF=0THEN BLOCKWRITE(FF,I,2)ELSE BLOCKWRITE(FF,ISTACK,2);
1498 FOR II:=1TO 9DO BEGIN
1499 IF B.LFROM[II]=0THEN I:=0 ELSE I:=B.LTO[II]-B.LFROM[II]+1;
1502 I:=42; BLOCKWRITE(FF,I,1); {UNUSED}
1504 BLOCKWRITE(FF,B.SPRSIZE,1);
1505 BLOCKWRITE(FF,B.SPRITE,B.SPRSIZE);
1508 FOR II:=B.LFROM[1]TO B.LSINGLE DO SAVELEVEL(1); {LEVELS SINGLEPL}
1509 I:=255; BLOCKWRITE(FF,I,1); {END}
1510 BLOCKWRITE(FF,B.ENDDATA[1],ORD(B.ENDDATA[0])); {CODE}
1513 FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO SAVELEVEL(4); {LEVELS MULTIPL}
1516 FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]
1517 DO SAVELEVEL(4); {LEVELS RACE}
1520 FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[9]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[9]
1521 DO SAVELEVEL(4); {LEVELS CTF}
1523 I:=0; I2:=0; IF B.LFROM[1]>0THEN INC(I2);
1524 IF B.LFROM[2]>0THEN I2:=I2+1+B.LTO[2]-B.LFROM[2];
1525 IF B.LFROM[3]>0THEN I2:=I2+1+B.LTO[3]-B.LFROM[3];
1526 FOR II:=1TO I2 DO BEGIN BLOCKWRITE(FF,I,2); BLOCKWRITE(FF,B.HINAME,3); END; {HI}
1528 SEEK(FF,$37); I2:=0; I:=0;
1529 REPEAT INC(I,I2); BLOCKREAD(FF,I2,1,ISTACK); UNTIL ISTACK<>1;
1530 BLOCKWRITE(FF,I,2); {CHECKSUM}
1533 PROCEDURE EDITFILE(STARTUP:BOOLEAN);
1534 VAR SFILE:SEARCHREC;
1536 SFILES:ARRAY[3..9]OF STRING[12];
1538 FINDFIRST('*.LVL',$3F,SFILE); FILESFOUND:=2;
1539 WHILE DOSERROR=0DO BEGIN
1540 INC(FILESFOUND); IF FILESFOUND>9THEN BREAK;
1541 SFILES[FILESFOUND]:=SFILE.NAME; FINDNEXT(SFILE);
1542 END; {FIND MORE LEVELS}
1543 IF STARTUP THEN BEGIN
1544 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': ALL DONE!');
1548 TITLEBAR(0,'CHOOSE LEVELFILE');
1549 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE NEW FILE');
1550 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT EXISTING');
1551 FOR III:=3TO FILESFOUND DO BEGIN
1552 TEXTCOLOR(C_MENU); WRITE(III); TEXTCOLOR(C_TEXT); WRITE(': EDIT');
1553 TEXTCOLOR(C_VALUE); WRITELN(' ',SFILES[III]);
1554 END; {DISPLAY FOUND FILES}
1556 III:=EDITMENU(FILESFOUND,2);
1560 FILENAME:=INPUTSTR('ENTER LEVELNAME','8 CHARS MAX; W/O EXTENSION','WORMLVL1',8);
1561 IF NOT FILEEXIST(FILENAME+'.LVL')THEN FILESAVE;
1565 FILENAME:=INPUTSTR('ENTER FILENAME','W/O EXTENSION','WORMLVL1',8);
1570 FILENAME:=COPY(SFILES[III],1,POS('.LVL',SFILES[III])-1); OPENFILE;
1579 TITLEBAR(0,'CHOOSE LEVELFILE');
1580 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': COMPILE, SAVE AND QUIT');
1581 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': SAVE ');
1582 TEXTCOLOR(C_VALUE); WRITELN(FILENAME,'.LVL');
1583 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': QUIT');
1584 TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': LOAD');
1585 TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITELN(': CONTINUE EDITING');
1586 WRITELN; III:=EDITMENU(5,0);
1589 FILESAVE; FILECOMP; QUITOK:=TRUE;
1594 WRITE('REALLY QUIT '); TEXTCOLOR(C_SUB); WRITE('[Y/N]'); TEXTCOLOR(C_TEXT);
1595 WRITE('> '); REPEAT C:=READKEY; UNTIL(UPCASE(C)='Y')OR(UPCASE(C)='N');
1596 IF UPCASE(C)='Y'THEN QUITOK:=TRUE;
1598 4:EDITFILE(FALSE); {LOAD}
1600 UNTIL(III>=4)OR(QUITOK);
1606 MAINTITLE; TITLEBAR(0,'LOADING WORMEDIT...');
1607 TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': WORMEDIT STARTED');
1608 TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': MOUSE... ');
1609 MOUSE(0,I,I2,MX,MY); IF I<>0THEN BEGIN USEMOUSE:=TRUE; WRITELN(' FOUND');
1610 END {MOUSE} ELSE BEGIN
1611 WRITELN(' NOT FOUND!'); USEMOUSE:=FALSE; REPEAT UNTIL KEYPRESSED;
1613 TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SEARCHING FOR LEVELS');
1614 EDITFILE(TRUE); REPEAT EDITMAIN; EDITQUIT; UNTIL QUITOK=TRUE;
1615 WINDOW(1,1,80,25); TEXTCOLOR(7); TEXTBACKGROUND(0); CLRSCR;
1616 WRITE('EXITING '); TEXTCOLOR(15); WRITE('WORMEDIT 0.53 BY SHIAR');
1617 TEXTCOLOR(7); WRITELN('.'); WRITELN('BYEBYE..'); WRITELN;