-USES CRT;
+{WORMEDIT 0.53 OR SOMETHING... BY SHIAR
+ ----------------------------------w00t}
-CONST GAMETYPE:ARRAY[1..8]OF STRING[12] =
- ('SINGLEPLAYER','PEAWORM','TRON','DEATHMATCH',
- 'FOODMATCH','LINKPLAY','RACE','CTF');
+{PASCAL.... BECAUSE I'VE GOT A LOT OF EXPERIENCE USING IT, AND I JUST NEEDED A
+ QUICK SUCKY EDITOR. IF YOU'RE WILLING TO WRITE SOMETHING BETTER, JUST MAIL ME}
- OBJTYPE:ARRAY[0..3]OF STRING[8] =
- ('NONE','LINE','FAT LINE','BAR');
+{WRITTEN USING ULTRAEDIT IN DVORAK WITH BORLAND PASCAL 7.0 FILES AND CRT PATCH
+ FOR DOS, HUZZAH. TESTED OK IN DOS 6, WINDOWS 98 AND XP, AND LINUX WITH DOSEMU}
- ENDTYPE:ARRAY[-1..0]OF STRING[8] =
- ('MESSAGE','NONE');
+{ALLCAPS BECAUSE. AND IT MAKES IT HARDER TO UNDERSTAND THE CODE}
+
+{ENJOY! >:}
+
+USES CRT,SHIAR,DOS;
+
+TYPE ONELEVEL = RECORD
+ ID:STRING[22];
+ NAME:STRING[22];
+ SIZE:BYTE;
+ PEAS,DELAY:BYTE;
+ GROWTH,BSIZE:BYTE;
+ SPRSIZE:BYTE;
+ SPRITE:ARRAY[1..8]OF BYTE;
+ NRBALLS:BYTE;
+ BALLS:ARRAY[1..32]OF RECORD
+ Y,X,D:BYTE; {Z:%00=right+down, %11=left+up}
+ END; {BALLS}
+ W:ARRAY[1..4]OF RECORD
+ D,Y,X:BYTE;
+ END; {W(ORMS)}
+ FIELDX,FIELDY:BYTE;
+ FLAG1Y,FLAG1X:BYTE;
+ FLAG2Y,FLAG2X:BYTE;
+ NROBJ:BYTE;
+ OBJ:ARRAY[1..128]OF RECORD
+ TYP:SHORTINT;X1,Y1,X2,Y2:BYTE;
+ END; {OBJ}
+ END; {ONELEVEL}
+
+CONST GAMETYPE:ARRAY[1..9]OF STRING[12] =
+ ('SINGLEPLAYER','PEAWORM','TRON','DEATHMATCH',
+ 'FOODMATCH','MULTIFOODM','TIMEMATCH','RACE','CTF');
+
+ OBJTYPE:ARRAY[0..4]OF STRING[8] =
+ ('NONE','LINE','FAT LINE','BAR','CIRCLE');
+
+ ENDTYPES = 2;
+ ENDTYPE:ARRAY[0..ENDTYPES]OF STRING[12] =
+ ('NONE','MESSAGE','SMALLER MSG');
HEAD86S:STRING[53] =
- ('**TI86**'+#$1A+#$A+#0+ {HEADER}
- 'Levelfile for Worm 0�92 made with WormEdit'); {COMMENT}
+ ('**TI86**'+#$1A+#$A+#0+ {HEADER}
+ 'Wormy.97 Levelfile made using WormEdit0.53'); {COMMENT}
- HEADEDIT = ('WormEdit�92'+#0+'LVL');
- HEADVERSION = 92;
+ HEADEDIT = ('WormEdit053'+#0+'LVL');
+ HEADVERSION = 53;
+ HEADOUTVERSION = 97;
+ PC = $F080; {F400}
B:RECORD
- HEAD:ARRAY[1..15]OF CHAR;
- VERSION:BYTE;
- NAME:STRING[32];
- LSINGLE,LMULTI,LCTF,LTOTAL:BYTE;
- LFROM:ARRAY[1..8]OF BYTE;
- LTO:ARRAY[1..8]OF BYTE;
- SPRSIZE:BYTE;
- SPRITE:ARRAY[1..8]OF BYTE;
+ HEAD:ARRAY[1..15]OF CHAR;
+ VERSION:BYTE;
+ NAME:STRING[32];
+ DESC:STRING[64];
+ RES:STRING[255];
+ LSINGLE,LMULTI,LRACE,LCTF,LTOTAL:BYTE;
+ LFROM:ARRAY[1..10]OF BYTE;
+ LTO:ARRAY[1..10]OF BYTE;
+ SPRSIZE:BYTE;
+ SPRITE:ARRAY[1..8]OF BYTE;
ENDTYPE:INTEGER;
- ENDDATA:STRING[255];
+ ENDSTR:STRING[255];
+ ENDDATA:STRING[255];
+ RES2:STRING[255];
+ HINAME:ARRAY[1..3]OF CHAR;
END {B} =
- (HEAD:HEADEDIT;
- VERSION:HEADVERSION;
+ (HEAD:HEADEDIT;
+ VERSION:HEADVERSION;
NAME:'Custom Worm Level';
- LSINGLE:0; LMULTI:0; LCTF:0; LTOTAL:0;
- LFROM:(0,0,0,0,0,0,0,0);
- LTO:(0,0,0,0,0,0,0,0);
+ DESC:'Not done yet. Obviously.';
+ RES:'';
+ LSINGLE:0; LMULTI:0; LRACE:0; LCTF:0; LTOTAL:0;
+ LFROM:(0,0,0,0,0,0,0,0,0,0);
+ LTO:(0,0,0,0,0,0,0,0,0,0);
SPRSIZE:4;
SPRITE:(6*16,15*16,15*16,6*16,0,0,0,0);
- {01100000
- 11110000
- 11110000
- 01100000}
- ENDTYPE:0);
+ {01100000
+ 11110000
+ 11110000
+ 01100000}
+ ENDTYPE:0;
+ ENDSTR:'';
+ ENDDATA:#$C9;
+ RES2:'';
+ HINAME:'WOR');
+ LVLPOS:BYTE = 1;
+ OBJPOS:BYTE = 1;
+ BBPOS :BYTE = 1;
+
+ C_BAR = 15;
+ CB_BAR = 1;
+ C_MENU = 14;
+ CB_TEXT = 0;
+ C_TEXT = 7;
+ C_SUB = 8;
+ C_HI = 15;
+ C_VALUE = 3;
+ C_GRID = 7;
VAR I,I2:WORD;
II,III,I4:SHORTINT;
C:CHAR;
S:STRING;
F,FF:FILE;
+ MX,MY:WORD;
- L:ARRAY[1..64]OF RECORD
- NAME:STRING[32];
- SIZE:BYTE;
- PEAS,DELAY:BYTE;
- GROWTH,BSIZE:BYTE;
- SPRSIZE:BYTE;
- SPRITE:ARRAY[1..8]OF BYTE;
- NRBALLS:BYTE;
- BALLS:ARRAY[1..32]OF RECORD
- Y,X,D:BYTE; {Z:%00=right+down, %11=left+up}
- END; {BALLS}
- W:ARRAY[1..4]OF RECORD
- D,Y,X:BYTE;
- END; {W(ORMS)}
- FIELDX,FIELDY:BYTE;
- FLAG1Y,FLAG1X:BYTE;
- FLAG2Y,FLAG2X:BYTE;
- NROBJ:BYTE;
- OBJ:ARRAY[1..32]OF RECORD
- TYP,X1,Y1,X2,Y2:BYTE;
- END; {OBJ}
- END; {L}
+ L:ARRAY[1..64]OF ONELEVEL;
+ LTEMP:ONELEVEL;
+ USEMOUSE:BOOLEAN;
+ QUITOK:BOOLEAN;
+ FSIZE:LONGINT;
FILENAME:STRING[8];
+ LVLDISP:BYTE;
+
+PROCEDURE MAINTITLE;
+BEGIN
+ SETTEXT; SETPAL(3,44,44,32); SETPAL(1,42,0,0);
+ WINDOW(1,1,80,25); TEXTBACKGROUND(CB_TEXT); CLRSCR;
+ TEXTCOLOR(CB_BAR); WRITE('���������������������������<');
+ TEXTCOLOR(14); WRITE(' WormEdit � ');
+ TEXTCOLOR(15); WRITE(' by SHIAR ');
+ TEXTCOLOR(CB_BAR); WRITE('>�����������������������������');
+ WINDOW(41,2,41,25); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); WRITE(CC('�',23));
+ WINDOW(1,25,80,25); TEXTBACKGROUND(CB_BAR); CLRSCR;
+ GOTOXY(74,1); TEXTCOLOR(0); WRITE('v0.53�'); TEXTBACKGROUND(CB_TEXT);
+END; {MAINTITLE}
+
+PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER);
+BEGIN {REPLACEMENT_PUTPIXEL}
+ MEM[SEG(WHERE^)+Y*20:OFS(WHERE^)+X]:=COL;
+END; {PUTPIXEL}
+
+PROCEDURE LINE(X,Y,XX,YY:INTEGER;COL:BYTE;WHERE:POINTER);
+VAR LINE1,LINE2,SX,SY,SXY,SYX,DX1,DX2,DY1,DY2:INTEGER;
+BEGIN {JUST_A_SIMPLE_LINE_PROCEDURE}
+ SX:=XX-X; SY:=YY-Y; DX1:=SGN(SX); DX2:=DX1; DY1:=SGN(SY); DY2:=0;
+ SXY:=ABS(SX); SYX:=ABS(SY);
+ IF SYX>SXY THEN BEGIN
+ DY2:=DY1; DX2:=0; LINE1:=SXY; SXY:=SYX; SYX:=LINE1;
+ END; {VERTICAL_LINE}
+ LINE1:=SXY SHR 1;
+ FOR LINE2:=0TO SXY DO BEGIN
+ PUTPIXEL(X,Y,COL,WHERE);
+ LINE1:=LINE1+SYX;
+ IF LINE1<SXY THEN BEGIN
+ INC(X,DX2); INC(Y,DY2);
+ END {STRAIGT_AHEAD} ELSE BEGIN
+ LINE1:=LINE1-SXY;
+ INC(X,DX1); INC(Y,DY1);
+ END; {NEXT_STEP}
+ END; {DRAW_THE_LINE}
+END; {LINE}
+
+PROCEDURE PPLINE(X,Y,XX,YY:INTEGER;COL:BYTE);
+VAR LINE1,LINE2,SX,SY,SXY,SYX,DX1,DX2,DY1,DY2:INTEGER;
+BEGIN {SPECIAL LINE}
+ SX:=XX-X; SY:=YY-Y; DX1:=SGN(SX); DX2:=DX1; DY1:=SGN(SY); DY2:=0;
+ SXY:=ABS(SX); SYX:=ABS(SY);
+ IF SYX>SXY THEN BEGIN
+ DY2:=DY1; DX2:=0; LINE1:=SXY; SXY:=SYX; SYX:=LINE1;
+ END; {VERTICAL_LINE}
+ LINE1:=SXY SHR 1;
+ FOR LINE2:=0TO SXY DO BEGIN
+ PUTPIXEL(X,Y,GETPIXEL(X,Y,VGA)OR 1-COL,PTR(VGA,0));
+ LINE1:=LINE1+SYX;
+ IF LINE1<SXY THEN BEGIN
+ INC(X,DX2); INC(Y,DY2);
+ END {STRAIGT_AHEAD} ELSE BEGIN
+ LINE1:=LINE1-SXY;
+ INC(X,DX1); INC(Y,DY1);
+ END; {NEXT_STEP}
+ END; {DRAW_THE_LINE}
+END; {PPLINE}
+PROCEDURE PPCIRCLE(X,Y,Z,COL:BYTE);
+VAR XX,YY,ZZ:INTEGER;
+BEGIN
+ XX:=-1; YY:=Z; ZZ:=-Z;
+ REPEAT
+ INC(XX);
+ PPLINE(X-XX,Y+YY,X+XX,Y+YY,COL); PPLINE(X-XX,Y-YY,X+XX,Y-YY,COL);
+ PPLINE(X-YY,Y+XX,X+YY,Y+XX,COL); PPLINE(X-YY,Y-XX,X+YY,Y-XX,COL);
+ IF ZZ>=0 THEN BEGIN ZZ:=ZZ-(YY SHL 1)+2; DEC(YY); END;
+ ZZ:=ZZ+(XX SHL 1)+3;
+ UNTIL XX>=YY;
+END; {PPCIRCLE}
+
+PROCEDURE PPDISPOBJ(OBJ:INTEGER;COL:BYTE);
+VAR Y:BYTE;
+BEGIN
+ CASE L[II].OBJ[OBJ].TYP OF
+ 1:PPLINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL);
+ 2:BEGIN
+ PPLINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL);
+ PPLINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2,COL);
+ 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);
+ PPLINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2+1,COL);
+ END; {FATLINE}
+ 3:BEGIN
+ FOR Y:=L[II].OBJ[OBJ].Y1 TO L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1DO
+ PPLINE(L[II].OBJ[OBJ].X1,MIN(Y,191),L[II].OBJ[OBJ].X2,MIN(Y,191),COL);
+ END; {BOX}
+ 4:PPCIRCLE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,COL);
+ END; {OBJECT TYPE}
+END; {DISPOBJ}
+
+PROCEDURE DISPMAP(OBJ:INTEGER;WHERE:POINTER);
+VAR OBJ2,TI:INTEGER;
+PROCEDURE CIRCLE(X,Y,Z,COL:BYTE);
+VAR XX,YY,ZZ:INTEGER;
+BEGIN
+ XX:=-1; YY:=Z; ZZ:=-Z;
+ REPEAT
+ INC(XX);
+ LINE(X-XX,Y+YY,X+XX,Y+YY,COL,WHERE);
+ LINE(X-XX,Y-YY,X+XX,Y-YY,COL,WHERE);
+ LINE(X-YY,Y+XX,X+YY,Y+XX,COL,WHERE);
+ LINE(X-YY,Y-XX,X+YY,Y-XX,COL,WHERE);
+ IF ZZ>=0 THEN BEGIN ZZ:=ZZ-(YY SHL 1)+2; DEC(YY); END;
+ ZZ:=ZZ+(XX SHL 1)+3;
+ UNTIL XX>=YY;
+END; {CIRCLE}
+PROCEDURE DRAW4PIX(D4X,D4Y:INTEGER;D4XSIZE,D4YSIZE,COL:BYTE);
+VAR D4LOOPX,D4LOOPY:BYTE;
+BEGIN
+ FOR D4LOOPX:=0TO D4XSIZE-1DO FOR D4LOOPY:=0TO D4YSIZE-1DO
+ PUTPIXEL(D4X+D4LOOPX,D4Y+D4LOOPY,COL,WHERE);
+END; {DRAW4PIX}
+PROCEDURE DISPOBJ(OBJ:INTEGER;COL:BYTE);
+VAR Y:BYTE;
+BEGIN
+ CASE L[II].OBJ[OBJ].TYP OF
+ 1:LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL,WHERE);
+ 2:BEGIN
+ LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL,WHERE);
+ 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);
+ 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);
+ 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);
+ END; {FATLINE}
+ 3:BEGIN
+ FOR Y:=L[II].OBJ[OBJ].Y1 TO L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1DO
+ LINE(L[II].OBJ[OBJ].X1,MIN(Y,191),L[II].OBJ[OBJ].X2,MIN(Y,191),COL,WHERE);
+ END; {BOX}
+ 4:CIRCLE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,COL);
+ END; {OBJECT TYPE}
+END; {DISPOBJ}
+BEGIN {---}
+ TI:=3; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,2,WHERE); INC(TI,8); END; {GRID}
+ TI:=4; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,2,WHERE); INC(TI,8); END;
+ TI:=7; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,4,WHERE); INC(TI,8); END; {GRID}
+ TI:=0; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,4,WHERE); INC(TI,8); END;
+ TI:=127; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,8,WHERE); INC(TI,128); END;
+ TI:=0; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,8,WHERE); INC(TI,56); END;
+
+ FOR TI:=2TO L[II].FIELDX-2DO BEGIN
+ IF TI MOD 2=0THEN PUTPIXEL(TI,L[II].FIELDY SHR 1,6,WHERE)
+ ELSE PUTPIXEL(TI,L[II].FIELDY SHR 1,2,WHERE);
+ END; {MID}
+ IF L[II].FIELDY MOD 2=0THEN
+ FOR TI:=2TO L[II].FIELDX-2DO BEGIN
+ IF TI MOD 2=1THEN PUTPIXEL(TI,L[II].FIELDY SHR 1-1,6,WHERE)
+ ELSE PUTPIXEL(TI,L[II].FIELDY SHR 1-1,2,WHERE);
+ END; {DOUBLEMID}
+ FOR TI:=2TO L[II].FIELDY-2DO BEGIN
+ IF TI MOD 2=0THEN PUTPIXEL(L[II].FIELDX SHR 1,TI,6,WHERE)
+ ELSE PUTPIXEL(L[II].FIELDX SHR 1,TI,2,WHERE);
+ END; {CENTER}
+ IF L[II].FIELDX MOD 2=0THEN
+ FOR TI:=2TO L[II].FIELDY-2DO BEGIN
+ IF TI MOD 2=1THEN PUTPIXEL(L[II].FIELDX SHR 1-1,TI,6,WHERE)
+ ELSE PUTPIXEL(L[II].FIELDX SHR 1-1,TI,2,WHERE);
+ END; {DOUBLECENTER}
+ IF(II>B.LSINGLE+B.LMULTI)AND(II<=B.LSINGLE+B.LMULTI+B.LRACE)THEN BEGIN
+ LINE(L[II].FLAG1Y,0,L[II].FLAG1Y,L[II].FLAG1X,26,WHERE);
+ LINE(L[II].FLAG1Y,L[II].FLAG1X,L[II].FLAG1Y,L[II].FIELDY-1,28,WHERE);
+ LINE(0,L[II].FLAG1X,L[II].FIELDX-1,L[II].FLAG1X,16,WHERE);
+ END; {RACE}
+ IF II<=B.LSINGLE THEN TI:=1 ELSE TI:=4;
+ FOR TI:=1TO TI DO BEGIN
+ CIRCLE(L[II].W[TI].X,L[II].W[TI].Y,2,12);
+ 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),
+ L[II].W[TI].Y+ROUND(COS(L[II].W[TI].D/128*PI)*20),14,WHERE);
+ 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),
+ L[II].W[TI].Y+ROUND(COS((L[II].W[TI].D-13)/128*PI)*15),12,WHERE);
+ 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),
+ L[II].W[TI].Y+ROUND(COS((L[II].W[TI].D+13)/128*PI)*15),12,WHERE);
+ PUTPIXEL(L[II].W[TI].X,L[II].W[TI].Y,0,WHERE);
+ END; {WORMS}
+ IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
+ IF L[II].SPRSIZE>0THEN TI:=L[II].SPRSIZE ELSE TI:=B.SPRSIZE;
+ DRAW4PIX(L[II].FLAG1X,L[II].FLAG1Y,TI,TI,26); {FLAGS}
+ DRAW4PIX(L[II].FLAG2X,L[II].FLAG2Y,TI,TI,28);
+ END; {DRAW FLAGS}
+ LINE(0,0,255,0,22,WHERE); LINE(0,1,255,1,22,WHERE); {BORDERS}
+ LINE(0,2,0,190-3,22,WHERE); LINE(1,2,1,190-3,22,WHERE);
+ LINE(MAX(126,L[II].FIELDX-2),2,MAX(126,L[II].FIELDX-2),L[II].FIELDY-1,22,WHERE);
+ LINE(MAX(127,L[II].FIELDX-1),2,MAX(127,L[II].FIELDX-1),L[II].FIELDY-1,22,WHERE);
+ LINE(0,L[II].FIELDY-2,L[II].FIELDX-1,L[II].FIELDY-2,22,WHERE);
+ LINE(0,L[II].FIELDY-1,L[II].FIELDX-1,L[II].FIELDY-1,22,WHERE);
+ FOR OBJ2:=1TO L[II].NROBJ DO IF OBJ2<>OBJ THEN DISPOBJ(OBJ2,18); {OBJS}
+ IF(OBJ>0)AND(OBJ<=L[II].NROBJ)THEN DISPOBJ(OBJ,20); {HIGHLIGHTED_OBJ}
+ FOR OBJ2:=1TO L[II].NRBALLS DO
+ DRAW4PIX(L[II].BALLS[OBJ2].X,L[II].BALLS[OBJ2].Y,2,2,20); {BOUNCIES}
+END; {DISPMAP}
+
+PROCEDURE DISPMCGACOMMON;
+BEGIN
+ SETMCGA;
+ SETPAL(0,0,0,0); SETPAL(1,32,0,0); {BACK}
+ SETPAL(2,8,0,0); SETPAL(3,35,0,0); {SUBGRID}
+ SETPAL(4,12,0,0); SETPAL(5,38,0,0); {GRID}
+ SETPAL(6,20,0,0); SETPAL(7,40,0,0); {MID}
+ SETPAL(8,28,0,0); SETPAL(9,44,0,0); {MAINGRID}
+
+ SETPAL(12,48,32,0); SETPAL(13,44,0,0); {STLN}
+ SETPAL(14,48,48,0); SETPAL(15,52,0,0); {STARTPOS}
+ SETPAL(26,0,0,63); SETPAL(27,63,0,0); {FLAG1}
+ SETPAL(28,0,63,0); SETPAL(29,63,0,0); {FLAG2}
+
+ SETPAL(16,32,32,32); SETPAL(17,48,0,0); {HALFOBJ}
+ SETPAL(18,48,48,48); SETPAL(19,63,0,0); {OBJ}
+ SETPAL(20,63,63,20); SETPAL(21,63,16,0); {HL_OBJ}
+ SETPAL(22,63,63,63); SETPAL(23,63,0,0); {BORDER}
+
+ SETPAL(29,0,48,0); {MARK}
+END; {DISPMCGACOMMON}
+
+PROCEDURE DISP1MAP(OBJ:INTEGER);
+VAR MXX,MYY,TX,TY,TXX,TYY:WORD;
+ M1,M2,TZ:BOOLEAN;
+{TYPE SCRN = ARRAY[0..199,0..319]OF BYTE;
+VAR VIRT:^SCRN;
+ I1,I1X,I1Y:BYTE;
+BEGIN
+ NEW(VIRT);
+ FOR TI:=0 TO 199DO FOR I2:=0 TO 319DO VIRT^[I,I2]:=0; DISPMAP(OBJ,VIRT);
+ WINDOW(1,3,80,20);
+ FOR I:=0 TO 19DO FOR I2:=0 TO 79DO BEGIN
+ I1X:=ROUND(I2*L[II].FIELDX/80); I1Y:=ROUND(I*L[II].FIELDY/20);
+ CASE VIRT^[I1Y,I1X]OF
+ 0:TEXTCOLOR(0);
+ 1:TEXTCOLOR(8);
+ 2:TEXTCOLOR(7);
+ 3:TEXTCOLOR(15);
+ 4,5:TEXTCOLOR(14);
+ 6..9:TEXTCOLOR(9);
+ 10..12:TEXTCOLOR(12);
+ END;
+ WRITE('�');
+ END;
+ DISPOSE(VIRT);}
+BEGIN
+ DISPMCGACOMMON; DISPMAP(OBJ,PTR(VGA,0)); CLRKEY;
+ REPEAT
+ IF USEMOUSE THEN BEGIN
+ GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;}
+ PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
+ DELAY(10);
+ PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
+ IF M1 THEN PPLINE(MXX,MYY,MX,MY,0);
+ IF M2 THEN PPLINE(MXX,MYY,MX,MY,1);
+ MXX:=MX; MYY:=MY;
+ END; {MOUSE}
+ IF KEYPRESSED THEN BEGIN C:=#0;
+ WHILE KEYPRESSED DO C:=READKEY;
+ IF C='1'THEN BEGIN
+ I4:=L[II].SPRSIZE; IF I4=0THEN I4:=B.SPRSIZE; DEC(I4);
+ FOR TX:=2TO L[II].FIELDX-4 DO FOR TY:=2TO L[II].FIELDY-4 DO BEGIN
+ TZ:=TRUE;
+ FOR TXX:=TX TO TX+I4 DO FOR TYY:=TY TO TY+I4 DO
+ IF GETPIXEL(TXX,TYY,VGA)>17THEN TZ:=FALSE;
+ IF TZ THEN PUTPIXEL(TX,TY,29,PTR(VGA,0));
+ END; {TEST_FIELD}
+ END; {DRAW_TEST_PEA_AREA}
+ END; {KEYPRESSED}
+ UNTIL(C=#27)OR(C=' ')OR(C=#13)OR(C='+')OR(C='0'); MAINTITLE;
+END; {DISP1MAP}
+
+PROCEDURE DISPMANYMAP(MAG:BYTE);
+TYPE SCRN = ARRAY[0..199,0..319]OF BYTE;
+VAR VIRT:^SCRN;
+PROCEDURE DISP1MANYMAP(OFFSETX,OFFSETY,MAG:BYTE);
+VAR I1,I1X,I1Y,I1XX,I1YY:BYTE;
+BEGIN
+ FOR I:=0 TO 199DO FOR I2:=0 TO 255DO VIRT^[I,I2]:=0; DISPMAP(0,VIRT);
+ FOR I:=0 TO 255 DIV MAG DO FOR I2:=0 TO 199 DIV MAG DO BEGIN
+ {I1X:=ROUND(I2*L[II].FIELDX/80); I1Y:=ROUND(I*L[II].FIELDY/20);}
+ I1:=0;
+ FOR I1XX:=I*MAG TO(I+1)*MAG-1 DO FOR I1YY:=I2*MAG TO(I2+1)*MAG-1DO
+ IF VIRT^[I1YY,I1XX]>I1 THEN I1:=VIRT^[I1YY,I1XX];
+ PUTPIXEL(OFFSETX+I,OFFSETY+I2,I1,PTR(VGA,0));
+ END;
+END; {DISP1MANYMAP}
+VAR MXX,MYY:WORD; M1,M2:BOOLEAN;
+BEGIN
+ DISPMCGACOMMON; NEW(VIRT);
+ MX:=255 DIV MAG+1; MY:=192 DIV MAG+1;
+ FOR II:=1TO MIN(B.LTOTAL,SQR(MAG))DO
+ DISP1MANYMAP(((II-1)MOD MAG)*MX,(II-1)DIV MAG*MY,MAG);
+ DISPOSE(VIRT); CLRKEY;
+ REPEAT
+ IF USEMOUSE THEN BEGIN
+ GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;}
+ PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
+ DELAY(10);
+ PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
+ IF M1 THEN PPLINE(MXX,MYY,MX,MY,0);
+ IF M2 THEN PPLINE(MXX,MYY,MX,MY,1);
+ MXX:=MX; MYY:=MY;
+ END; {MOUSE}
+ UNTIL KEYPRESSED; WHILE KEYPRESSED DO READKEY; MAINTITLE;
+END; {DISP1MAP}
+
+PROCEDURE MAPOBJ(OBJ,OBJSUB:INTEGER);
+VAR M1,M2,M3:BOOLEAN;
+ MXX,MYY:WORD;
+ XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER;
+BEGIN
+ DISPMCGACOMMON; DISPMAP(OBJ,PTR(VGA,0)); CLRKEY;
+ IF OBJSUB=0THEN BEGIN
+ XDEF:=L[II].OBJ[OBJ].X1; YDEF:=L[II].OBJ[OBJ].Y1;
+ END {FROM} ELSE BEGIN
+ XDEF:=L[II].OBJ[OBJ].X2; YDEF:=L[II].OBJ[OBJ].Y2;
+ END; {TO}
+ CASE L[II].OBJ[OBJ].TYP OF
+ 1:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-3; YMIN:=2; YMAX:=L[II].FIELDY-3;
+ END; {LINE}
+ 2:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-4; YMIN:=2; YMAX:=L[II].FIELDY-4;
+ END; {FATTY}
+ 3:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-1; YMIN:=2; YMAX:=L[II].FIELDY-2;
+ IF OBJSUB=0THEN BEGIN
+ IF L[II].OBJ[OBJ].Y2<>0THEN YMAX:=L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1
+ END {X1,Y1} ELSE YMIN:=L[II].OBJ[OBJ].Y1+1;
+ END; {BOX}
+ 4:BEGIN XMIN:=0;
+ IF OBJSUB=0THEN BEGIN
+ XMAX:=255; YMIN:=0; YMAX:=255;
+ END {POS} ELSE BEGIN
+ XMAX:=120; XDEF:=ABS(INTEGER(L[II].OBJ[OBJ].X1)-L[II].OBJ[OBJ].X2);
+ YMIN:=L[II].OBJ[OBJ].Y1; YDEF:=L[II].OBJ[OBJ].Y1; YMAX:=L[II].OBJ[OBJ].Y1;
+ END; {SIZE}
+ END; {CIRCLE}
+ END; {TYPE}
+ MY:=YDEF;
+ IF USEMOUSE THEN BEGIN MX:=XDEF SHL 1; MOUSE(4,MX,MX,MX,MY); END; {INITMOUSE}
+ MX:=XDEF;
+ REPEAT
+ PPDISPOBJ(OBJ,0);
+ IF USEMOUSE THEN BEGIN
+ REPEAT GETMOUSEPOS(MX,MY,M1,M2); M3:=KEYPRESSED;
+ UNTIL(MX<>MXX)OR(MY<>MYY)OR(M1)OR(M2)OR(M3);
+ MXX:=MX; MYY:=MY; MX:=MX SHR 1;
+ END; {MOUSE}
+ IF M3 THEN BEGIN
+ C:=READKEY;
+ IF(C=#13)OR(C=' ')THEN M1:=TRUE ELSE M1:=FALSE;
+ IF(C=#27)OR(C='+')THEN M2:=TRUE ELSE M2:=FALSE;
+ IF C='2'THEN INC(MY); {DOWN} IF C='8'THEN DEC(MY); {UP}
+ IF C='4'THEN DEC(MX); {L} IF C='6'THEN INC(MX); {R}
+ IF C=#0 THEN BEGIN C:=READKEY;
+ IF C=#80 THEN INC(MY); {DOWN} IF C=#72 THEN DEC(MY); {UP}
+ IF C=#75 THEN DEC(MX); {L} IF C=#77 THEN INC(MX); {R}
+ END; {EXTENDED}
+ END; {KEYPRESSED}
+ IF NOT M1 THEN BEGIN
+ IF MX<XMIN THEN MX:=XMIN; IF MX>XMAX THEN MX:=XMAX;
+ IF MY<YMIN THEN MY:=YMIN; IF MY>YMAX THEN MY:=YMAX;
+ IF M2 THEN BEGIN MX:=XDEF; MY:=YDEF; END; {R_BUTTON}
+ IF(USEMOUSE)AND((MX<>MXX)OR(MY<>MYY))THEN BEGIN
+ MX:=MX SHL 1; MOUSE(4,MX,MX,MX,MY); MX:=MX SHR 1;
+ END; {SET_NEW_MOUSE_POS}
+ PPDISPOBJ(OBJ,1);
+ IF OBJSUB=0THEN CASE L[II].OBJ[OBJ].TYP OF
+ 3:BEGIN
+ INC(L[II].OBJ[OBJ].Y2,L[II].OBJ[OBJ].Y1-MY);
+ L[II].OBJ[OBJ].X1:=MX; L[II].OBJ[OBJ].Y1:=MY;
+ END; {BOX}
+ ELSE BEGIN L[II].OBJ[OBJ].X1:=MX; L[II].OBJ[OBJ].Y1:=MY; END; {DEF}
+ END {FROM} ELSE CASE L[II].OBJ[OBJ].TYP OF
+ 3:BEGIN L[II].OBJ[OBJ].X2:=MX; L[II].OBJ[OBJ].Y2:=MY-L[II].OBJ[OBJ].Y1;
+ END; {BOX}
+ 4:BEGIN L[II].OBJ[OBJ].X2:=ABS(MX-INTEGER(L[II].OBJ[OBJ].X1)); L[II].OBJ[OBJ].Y2:=0; END; {CIRCLE}
+ ELSE BEGIN L[II].OBJ[OBJ].X2:=MX; L[II].OBJ[OBJ].Y2:=MY; END; {DEF}
+ END; {TO}
+ END; {K}
+ UNTIL M1; MAINTITLE;
+ IF USEMOUSE THEN WHILE(M1)OR(M2)DO GETMOUSEPOS(MX,MY,M1,M2);
+ WHILE KEYPRESSED DO C:=READKEY;
+ IF(L[II].OBJ[OBJ].TYP=3)AND(L[II].OBJ[OBJ].Y1<0)THEN BEGIN
+ I4:=L[II].OBJ[OBJ].Y1; L[II].OBJ[OBJ].Y1:=L[II].OBJ[OBJ].Y2;
+ L[II].OBJ[OBJ].Y1:=-I4;
+ END; {SWAP Y FOR BOX}
+END; {MAPOBJ}
-FUNCTION NR(VALUE:INTEGER):STRING;
+FUNCTION NR(VALUE:LONGINT):STRING;
VAR NRSTR:STRING;
BEGIN
STR(VALUE,NRSTR); NR:=NRSTR;
END; {NR}
-FUNCTION EDITMENU(EDITMENUMAX:BYTE):SHORTINT;
+PROCEDURE HELPBAR(HELPPAGE:BYTE);
+BEGIN
+ WINDOW(41,14,80,24);
+ IF HELPPAGE=0 THEN BEGIN
+ TEXTCOLOR(C_GRID); WRITE('�'); WINDOW(42,14,80,24); CLRSCR; EXIT;
+ END; {REMOVE}
+ TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_GRID); WRITE('�'); TEXTCOLOR(C_BAR);
+ WRITE('HELP',' ':39-4); WINDOW(42,15,80,24); TEXTBACKGROUND(CB_TEXT); TEXTCOLOR(C_TEXT);
+ CLRSCR; CASE HELPPAGE OF
+ 1:WRITE('PRESS <F1> OR <H> FOR HELP');
+ 2:WRITE('YOU UNDERSTAND EVERYTHING');
+ 3:WRITE('THIS AIN''T A BUG, IT A FEATURE!');
+ 4:WRITE('ALL YOUR WORMS ARE BELONG TO US!');
+ 5:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL LEVELS');
+ 6:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL OBJECTS');
+ 8:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL BOUNCIES');
+ END; {TEXT TO DISPLAY}
+ WINDOW(2,3,3,20);
+END; {HELPBAR}
+
+PROCEDURE DISPLEVELS;
+BEGIN
+ WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
+ IF B.LTOTAL<1 THEN WRITELN('NONE PRESENT')ELSE
+ FOR II:=LVLPOS TO MIN(B.LTOTAL,LVLPOS+9)DO BEGIN
+ IF LVLDISP=1 THEN WRITE(II) {CONTINOUS}
+ ELSE IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN WRITE(II-B.LSINGLE-B.LMULTI-B.LRACE)ELSE
+ IF II>B.LSINGLE+B.LMULTI THEN WRITE(II-B.LSINGLE-B.LMULTI)ELSE
+ IF II>B.LSINGLE THEN WRITE(II-B.LSINGLE)ELSE WRITE(II); {SEPERATE}
+ IF II>=B.LFROM[1]THEN TEXTCOLOR(C_VALUE);
+ WRITELN(': '+L[II].ID); TEXTCOLOR(C_TEXT);
+ END; {DISP LEVELS}
+ WINDOW(2,3,3,20);
+END; {DISPLEVELS}
+
+PROCEDURE DISPOBJECTS;
+BEGIN
+ WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
+ IF L[II].NROBJ<1THEN WRITELN('NONE')
+ ELSE FOR I4:=OBJPOS TO MIN(L[II].NROBJ,OBJPOS+9)DO BEGIN
+ WRITE(I4); TEXTCOLOR(C_VALUE);
+ IF L[II].OBJ[I4].TYP>0 THEN BEGIN
+ WRITE(': ',OBJTYPE[L[II].OBJ[I4].TYP]);
+ WRITE(' (',L[II].OBJ[I4].X1,',',L[II].OBJ[I4].Y1,')-(');
+ CASE L[II].OBJ[I4].TYP OF
+ 1,2:WRITELN(L[II].OBJ[I4].X2,',',L[II].OBJ[I4].Y2,')');
+ 3:WRITELN(L[II].OBJ[I4].X2,',',L[II].OBJ[I4].Y1+L[II].OBJ[I4].Y2,')');
+ 4:WRITELN(L[II].OBJ[I4].X2,')');
+ END; {TYPE}
+ END {ENABLED} ELSE WRITELN(': DISABLED'); TEXTCOLOR(C_TEXT);
+ END; {DISP OBJS}
+ WINDOW(2,3,3,20);
+END; {DISPOBJECTS}
+
+PROCEDURE DISPBOUNCIES;
BEGIN
+ WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
+ IF L[II].NRBALLS<1THEN WRITELN('NONE')
+ ELSE FOR I4:=BBPOS TO MIN(L[II].NRBALLS,BBPOS+9)DO BEGIN
+ WRITE(I4); TEXTCOLOR(C_VALUE);
+ WRITE(': (',L[II].BALLS[I4].X,',',L[II].BALLS[I4].Y,'),',L[II].BALLS[I4].D);
+ TEXTCOLOR(C_TEXT);
+ END; {DISP OBJS}
+ WINDOW(2,3,3,20);
+END; {DISPLEVELS}
+
+FUNCTION EDITMENU(EDITMENUMAX,HELPPAGE:BYTE):SHORTINT;
+VAR EDITOK,MENUPOS:SHORTINT;
+BEGIN
+ MENUPOS:=1; EDITOK:=0;
+ WINDOW(2,3,3,20); GOTOXY(1,1); TEXTCOLOR(C_MENU); WRITE('>>');
REPEAT
- REPEAT C:=READKEY;
- UNTIL(C>='1')AND(C<=CHR(EDITMENUMAX+48))OR(C=#27);
- IF C=#27THEN EDITMENU:=-1 ELSE EDITMENU:=ORD(C)-48;
- UNTIL ORD(C)<>0;
+ GOTOXY(1,1); REPEAT UNTIL KEYPRESSED; C:=READKEY;
+ IF C=' 'THEN EDITOK:=10 {10} ELSE
+ IF(C>='1')AND(C<=CHR(EDITMENUMAX+48))AND(C<='9')THEN EDITOK:=ORD(C)-48 {1..<=9} ELSE
+ IF(EDITMENUMAX>9)AND(UPCASE(C)>='A')AND(UPCASE(C)<=CHR(EDITMENUMAX+55))AND(UPCASE(C)<='Z')THEN
+ EDITOK:=ORD(UPCASE(C))-55 {1..<=9} ELSE
+ IF C=#13 THEN EDITOK:=MENUPOS {ENTER} ELSE
+ IF(C=#27)OR(C='-')OR(C='+')THEN EDITOK:=-1 {EXIT} ELSE
+ IF UPCASE(C)='H'THEN HELPBAR(HELPPAGE) ELSE
+ IF C=#0THEN BEGIN C:=READKEY;
+ IF(C=#80)AND(MENUPOS<EDITMENUMAX)THEN BEGIN
+ TEXTCOLOR(C_TEXT); GOTOXY(1,MENUPOS); WRITE(': ');
+ INC(MENUPOS); TEXTCOLOR(C_MENU); GOTOXY(1,MENUPOS); WRITE('>>');
+ END; {DOWN}
+ IF(C=#72)AND(MENUPOS>1)THEN BEGIN
+ TEXTCOLOR(C_TEXT); GOTOXY(1,MENUPOS); WRITE(': ');
+ DEC(MENUPOS); TEXTCOLOR(C_MENU); GOTOXY(1,MENUPOS); WRITE('>>');
+ END; {UP}
+ IF HELPPAGE=5THEN BEGIN
+ IF(C=#77)AND(LVLPOS<B.LTOTAL-9)THEN BEGIN INC(LVLPOS); DISPLEVELS; END {R} ELSE
+ IF(C=#75)AND(LVLPOS>1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {L} ELSE
+ END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
+ IF(C=#77)AND(OBJPOS<L[II].NROBJ-9)THEN BEGIN INC(OBJPOS); DISPOBJECTS; END {R} ELSE
+ IF(C=#75)AND(OBJPOS>1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {L} ELSE
+ END {OBJS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
+ IF(C=#77)AND(BBPOS<L[II].NRBALLS-9)THEN BEGIN INC(BBPOS); DISPBOUNCIES; END {R} ELSE
+ IF(C=#75)AND(BBPOS>1)THEN BEGIN DEC(BBPOS); DISPBOUNCIES; END {L} ELSE
+ END; {BOUNCIES DISPED}
+ IF C=#59THEN HELPBAR(HELPPAGE);
+ END; {EXTENDED}
+ UNTIL EDITOK<>0; EDITMENU:=EDITOK; TEXTCOLOR(C_TEXT);
END; {EDITMENU}
FUNCTION COMPSIZE:WORD;
BEGIN
- I:=$32+B.SPRSIZE+ORD(B.NAME[0])+
- 2*(1+(B.LTO[2]-B.LFROM[2])+(B.LTO[3]-B.LFROM[3]));
- FOR II:=1TO B.LTOTAL DO INC(I,L[II].SIZE);
+ I:=B.SPRSIZE+1;
+ IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE); {SP}
+ IF B.LMULTI>0THEN FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO INC(I,L[II].SIZE); {MP}
+ IF B.LFROM[8]>0THEN
+ FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]DO INC(I,L[II].SIZE); {RACE}
+ IF B.LFROM[9]>0THEN
+ 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}
+
+{MAKE SP_END CODE}
+ CASE B.ENDTYPE OF
+ 1:B.ENDDATA:=#$21+CHR(LO(PC+10+I))+CHR(HI(PC+10+I))+#$CD+#$37+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
+ {LD HL,MSG\CALL _PUTS\JP _GETKEY\.DB MSG}
+ 2:B.ENDDATA:=#$21+#0+#$1C+#$22+#$7C+#$C3+#$21+CHR(LO(PC+16+I))+CHR(HI(PC+16+I))
+ +#$CD+#$A5+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
+ {LD HL,X\LD (_PENCOL),HL\LD HL,MSG\CALL _VPUTS\JP _GETKEY\.DB MSG}
+ ELSE B.ENDDATA:=#$C9; {RET}
+ END; {ENDTYPE}
+ INC(I,ORD(B.ENDDATA[0]));
+
+ INC(I,$35+ORD(B.NAME[0])+ORD(B.DESC[0]));
+ IF B.LFROM[1]>0THEN INC(I,5); {HI_SP}
+ IF B.LFROM[2]>0THEN I:=I+((1+B.LTO[2]-B.LFROM[2])*5); {HI_PW}
+ IF B.LFROM[3]>0THEN I:=I+((1+B.LTO[3]-B.LFROM[3])*5); {HI_TRON}
+
COMPSIZE:=I;
END; {COMPSIZE}
-PROCEDURE EDITTITLE(BAR:SHORTINT;TITLNAME:STRING);
+PROCEDURE TITLEBAR(BAR:SHORTINT;TITLNAME:STRING);
BEGIN
- WINDOW(41,2,80,20); CLRSCR; TEXTCOLOR(15); TEXTBACKGROUND(1);
+ HELPBAR(0); WINDOW(41,2,42,2);
+ IF BAR=0THEN TEXTBACKGROUND(CB_TEXT)ELSE TEXTBACKGROUND(CB_BAR);
+ TEXTCOLOR(C_GRID); WRITE('�'); WINDOW(42,2,80,13); TEXTBACKGROUND(CB_TEXT); CLRSCR;
+ TEXTCOLOR(C_BAR); TEXTBACKGROUND(CB_BAR);
CASE BAR OF
1:BEGIN
- WRITE('LEVELS',' ':40-6); TEXTCOLOR(7); TEXTBACKGROUND(0);
- IF B.LTOTAL<1THEN WRITELN('NONE PRESENT')ELSE
- FOR II:=1TO B.LTOTAL DO BEGIN
- WRITE(II); TEXTCOLOR(3); WRITELN(': '+L[II].NAME); TEXTCOLOR(7);
- END; {DISP LEVELS}
+ WRITE('LEVELS',' ':39-6); LVLDISP:=1; DISPLEVELS;
END; {1:SINGLVLS}
2:BEGIN
- WRITE('LEVEL OBJECTS',' ':40-13); TEXTCOLOR(7); TEXTBACKGROUND(0);
- IF L[II].NROBJ<1THEN WRITELN('NONE')ELSE
- FOR I:=1TO L[II].NROBJ DO BEGIN
- WRITE(I); TEXTCOLOR(3); WRITE(': ',OBJTYPE[L[II].OBJ[I].TYP]);
- WRITE(' (',L[II].OBJ[I].X1,',',L[II].OBJ[I].Y1,')-(');
- IF L[II].OBJ[I].TYP=3THEN
- WRITELN(L[II].OBJ[I].X2,',',L[II].OBJ[I].Y1+L[II].OBJ[I].Y2,')')
- ELSE WRITELN(L[II].OBJ[I].X2,',',L[II].OBJ[I].Y2,')');
- TEXTCOLOR(7);
- END; {DISP OBJS}
- END; {2:SINGLVLS}
+ WRITE('LEVEL OBJECTS',' ':39-13); DISPOBJECTS;
+ END; {2:OBJS}
3:BEGIN
- WRITE('LEVEL INFO',' ':40-10); TEXTCOLOR(7); TEXTBACKGROUND(0);
- WRITELN('LEVEL #',II,' MP #',II-B.LSINGLE);
+ WRITE('LEVEL INFO',' ':39-10); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT);
+ WRITE('LEVEL #',II);
+ IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN WRITELN(' CTF #',II-B.LSINGLE-B.LMULTI-B.LRACE)ELSE
+ IF II>B.LSINGLE+B.LMULTI THEN WRITELN(' RACE #',II-B.LSINGLE-B.LMULTI)ELSE
+ IF II>B.LSINGLE THEN WRITELN(' MP #',II-B.LSINGLE)ELSE WRITELN;
WRITELN('LEVEL SIZE: ',L[II].SIZE);
- IF II<=B.LSINGLE THEN WRITELN('SINGLEPLAYER')ELSE FOR I:=2TO 7DO
+ IF II<=B.LSINGLE THEN WRITELN('SINGLEPLAYER')ELSE FOR I:=2TO 6DO
IF(II-B.LSINGLE>=B.LFROM[I])AND(II-B.LSINGLE<=B.LTO[I])THEN
WRITELN(GAMETYPE[I]);
END; {3:LEVEL}
4:BEGIN
- WRITE(FILENAME,'.LVL',' ':36-ORD(FILENAME[0])); TEXTCOLOR(7);
- TEXTBACKGROUND(0); WRITE('FILE VERSION: '); TEXTCOLOR(3);
- WRITELN(B.VERSION); TEXTCOLOR(7); WRITE('FILE SIZE: '); TEXTCOLOR(3);
- WRITE(FILESIZE(F)SHR 10); TEXTCOLOR(7); WRITELN('kB');
- WRITE('COMPILED: '); TEXTCOLOR(3); WRITE(COMPSIZE); TEXTCOLOR(7);
+ WRITE(FILENAME,'.LVL',' ':35-ORD(FILENAME[0])); TEXTCOLOR(C_TEXT);
+ TEXTBACKGROUND(CB_TEXT); WRITE('FILE VERSION: '); TEXTCOLOR(C_VALUE);
+ WRITELN(B.VERSION); TEXTCOLOR(C_TEXT); WRITE('FILE SIZE: '); TEXTCOLOR(C_VALUE);
+ WRITE(FSIZE SHR 10); TEXTCOLOR(C_TEXT); WRITELN('kB');
+ WRITE('COMPILED: '); TEXTCOLOR(C_VALUE); WRITE(COMPSIZE); TEXTCOLOR(C_TEXT);
WRITE(' BYTES');
END; {4:FILE}
+ 5:BEGIN
+ WRITE('LEVELS',' ':39-6); LVLDISP:=2; DISPLEVELS;
+ END; {5:LEVELS}
END; {BAR}
- WINDOW(1,2,40,20);
- TEXTBACKGROUND(1); TEXTCOLOR(15); WRITE(TITLNAME,' ':40-ORD(TITLNAME[0]));
- WINDOW(1,3,40,20); TEXTBACKGROUND(0); CLRSCR;
-END; {EDITTITLE}
+ WINDOW(1,2,40,24);
+ TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE(TITLNAME,' ':40-ORD(TITLNAME[0]));
+ WINDOW(1,3,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR;
+END; {TITLEBAR}
+
+FUNCTION INPUTSTR(ISTR,ICOM,IDEF:STRING;IMAX:BYTE):STRING;
+VAR IVAL:STRING; IOK:BOOLEAN;
+BEGIN
+ WINDOW(1,14,40,24);
+ TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE('INPUT',' ':40-5);
+ WINDOW(1,15,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR;
+ REPEAT
+ TEXTCOLOR(C_TEXT); WRITELN(ISTR); TEXTCOLOR(C_SUB); WRITELN(ICOM);
+ TEXTCOLOR(C_SUB); WRITELN('ENTER FOR DEFAULT:'); WRITELN(IDEF);
+ TEXTCOLOR(C_TEXT); WRITE('> '); READLN(IVAL);
+ IF IVAL=''THEN IVAL:=IDEF;
+ IOK:=FALSE; IF ORD(IVAL[0])<=IMAX THEN IOK:=TRUE
+ ELSE BEGIN CLRSCR; WRITELN('OH NO, THAT''S TOO MUCH!'); END; {TOOLONG}
+ UNTIL IOK; INPUTSTR:=IVAL;
+END; {INPUTSTR}
+
+FUNCTION INPUTINT(ISTR,ICOM:STRING;IMIN,IDEF,IMAX:INTEGER):INTEGER;
+FUNCTION READ:INTEGER;
+VAR REI1:INTEGER; REI2:BYTE;
+BEGIN {INPUTS POSITIVE INTEGER VALUE FROM KEYBOARD}
+ REI1:=0; {VALUE} REI2:=0; {SIZE}
+ REPEAT
+ REPEAT C:=READKEY; UNTIL C<>'';
+ CASE C OF
+ #8,'+','-':IF REI2>0THEN BEGIN
+ REI1:=REI1 DIV 10; DEC(REI2); WRITE(#8+' '+#8);
+ END; {BACKSPACE}
+ '0'..'9':IF REI2<4THEN BEGIN
+ REI1:=REI1*10+ORD(C)-48; INC(REI2); WRITE(C);
+ END; {NUMBER}
+ #13:IF REI2=0THEN REI1:=-1; {ENTER}
+ END; {HANDLE INPUT}
+ UNTIL C=#13; {UNTIL ENTER PRESSED}
+ READ:=REI1;
+END; {READLN}
+VAR IVAL:INTEGER; IOK:BOOLEAN;
+BEGIN
+ WINDOW(1,14,40,24);
+ TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE('INPUT',' ':40-5);
+ WINDOW(1,15,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR;
+ REPEAT
+ TEXTCOLOR(C_TEXT); WRITELN(ISTR); TEXTCOLOR(C_SUB); WRITELN(ICOM);
+ TEXTCOLOR(C_SUB); WRITE('(RANGE '); TEXTCOLOR(C_TEXT); WRITE(IMIN); TEXTCOLOR(C_SUB);
+ WRITE(' TO '); TEXTCOLOR(C_TEXT); WRITE(IMAX); TEXTCOLOR(C_SUB);
+ WRITE('; DEFAULT VALUE '); TEXTCOLOR(C_TEXT); WRITE(IDEF); TEXTCOLOR(C_SUB);
+ WRITELN(')'); TEXTCOLOR(C_TEXT); WRITE('> '); IVAL:=READ; IF IVAL=-1THEN IVAL:=IDEF;
+ IOK:=FALSE; IF(IVAL>=IMIN)AND(IVAL<=IMAX)THEN IOK:=TRUE
+ ELSE BEGIN CLRSCR; WRITELN('OUT OF RANGE!'); END; {OUTOFRANGE}
+ UNTIL IOK; INPUTINT:=IVAL;
+END; {INPUTINT}
PROCEDURE EDITGAME;
LABEL EDITGAME1,EDITGAME2;
BEGIN
REPEAT
- EDITTITLE(1,'EDIT GAMETYPES'); TEXTCOLOR(7); WRITE('1: SINGLEPLAYER ');
- TEXTCOLOR(3); IF B.LSINGLE=0THEN WRITELN('(NO LEVELS)')
- ELSE WRITELN('(',B.LSINGLE,')');
+ TITLEBAR(5,'EDIT GAMETYPES'); TEXTCOLOR(C_MENU); WRITE('1');
+ TEXTCOLOR(C_TEXT); WRITE(': SINGLEPLAYER ');
+ TEXTCOLOR(C_VALUE); IF(B.LSINGLE=0)OR(B.LFROM[1]=0)THEN WRITELN('(NO LEVELS)')
+ ELSE WRITELN('(',B.LTO[1]-B.LFROM[1]+1,' OF ',B.LSINGLE,')');
FOR II:=2TO 7DO BEGIN
- TEXTCOLOR(14); WRITE(II); TEXTCOLOR(7); WRITE(': '+GAMETYPE[II],' ');
- TEXTCOLOR(3); IF B.LFROM[II]=0THEN WRITELN('(NO LEVELS)')
- ELSE WRITELN('(',B.LFROM[II]+B.LSINGLE,'-',B.LTO[II]+B.LSINGLE,')');
+ TEXTCOLOR(C_MENU); WRITE(II); TEXTCOLOR(C_TEXT); WRITE(': '+GAMETYPE[II],' ');
+ TEXTCOLOR(C_VALUE); IF B.LFROM[II]=0THEN WRITELN('(NO LEVELS)')
+ ELSE WRITELN('(',B.LFROM[II],'-',B.LTO[II],')');
END; {MULTIP}
- TEXTCOLOR(7); WRITE('8: CTF '); TEXTCOLOR(3);
- IF B.LCTF=0THEN WRITELN('(NO LEVELS)')ELSE WRITELN('(',B.LCTF,')');
- TEXTCOLOR(7); WRITELN;III:=EDITMENU(8);
-
- IF III>1THEN BEGIN
-EDITGAME1:
- WRITELN('ENTER NEW STARTING LEVEL FOR '+GAMETYPE[III]); WRITE('> ');
- READLN(B.LFROM[III]); IF B.LFROM[III]>B.LMULTI THEN BEGIN
- TEXTCOLOR(15); WRITE('THAT LEVEL DOES NOT EXIST! ');
- TEXTCOLOR(7); WRITELN('JUST ',B.LMULTI,' LEVELS PRESENT.');
- GOTO EDITGAME1;
- END; {TOO MUCH}
- IF B.LFROM[III]=0THEN WRITELN('NO LEVELS FOR THIS GAMETYPE.') {NO LVLS}
- ELSE BEGIN
-EDITGAME2:
- WRITE('ENTER LAST LEVEL #> '); READLN(B.LTO[III]);
- IF B.LTO[III]<B.LFROM[III]THEN BEGIN
- WRITELN('LAST LEVEL MUST BE BEHIND THE FIRST LEVEL.'); GOTO EDITGAME2;
- END; {ERROR}
- IF B.LTO[III]>B.LMULTI THEN BEGIN
- TEXTCOLOR(15); WRITE('THAT LEVEL DOES NOT (YET) EXIST! ');
- TEXTCOLOR(7); WRITELN('JUST ',B.LMULTI,' LEVELS PRESENT.');
- GOTO EDITGAME2;
- END; {TOO MUCH}
- END; {ASK LTO}
- END; {HANDLE}
+ TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITE(': RACE '); TEXTCOLOR(C_VALUE);
+ IF B.LFROM[8]=0THEN WRITELN('(NO LEVELS)')ELSE WRITELN('(',B.LTO[8]-B.LFROM[8]+1,' OF ',B.LRACE,')');
+ TEXTCOLOR(C_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITE(': CTF '); TEXTCOLOR(C_VALUE);
+ IF B.LFROM[9]=0THEN WRITE('(NO LEVELS)')ELSE WRITE('(',B.LTO[9]-B.LFROM[9]+1,' OF ',B.LCTF,')');
+
+ III:=EDITMENU(9,5);
+ IF III=1THEN BEGIN
+ B.LFROM[1]:=INPUTINT('ENTER LEVELS TO SKIP','USE THIS TO TEMPORARILY REMOVE THE FIRSTFEW LEVELS',
+ 0,0,MAX(0,B.LSINGLE-1)); INC(B.LFROM[1]);
+ B.LTO[1]:=INPUTINT('ENTER LEVELS SELECTABLE','THE HIGHEST LEVEL SOMEONE CAN START IN WITHOUT PLAYING IT EARLIER',
+ 0,1,B.LSINGLE+1-B.LFROM[1]);
+ IF B.LTO[1]=0THEN B.LFROM[1]:=0 ELSE B.LTO[1]:=B.LTO[1]+B.LFROM[1]-1;
+ END {SINGLEPLAYER} ELSE IF III=8THEN BEGIN
+ B.LFROM[8]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LRACE);
+ IF B.LFROM[8]>0THEN
+ B.LTO[8]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[8],B.LRACE,B.LRACE);
+ END {RACE} ELSE IF III=9THEN BEGIN
+ B.LFROM[9]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LCTF);
+ IF B.LFROM[9]>0THEN
+ B.LTO[9]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[9],B.LCTF,B.LCTF);
+ END {CTF} ELSE IF III>0THEN BEGIN
+ B.LFROM[III]:=INPUTINT('ENTER NEW STARTING LEVEL',
+ 'THAT LEVEL WILL BE LEVEL #1 IN GAMEMODE '+GAMETYPE[III]+'. 0=NO LEVELS',0,1,B.LMULTI);
+ IF B.LFROM[III]>0THEN
+ B.LTO[III]:=INPUTINT('ENTER LAST LEVEL NUMBER',NR(B.LMULTI)+' LEVELS PRESENT',
+ B.LFROM[III],B.LMULTI,B.LMULTI);
+ END; {MULTIPLAYER}
UNTIL III=-1; III:=0;
END; {EDITGAME}
LABEL EDITOBJ1;
BEGIN
REPEAT
- EDITTITLE(2,'EDIT OBJECT #'+NR(I)+' IN LEVEL '+NR(II));
- TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': OBJECT TYPE ');
- III:=L[II].OBJ[I].TYP; TEXTCOLOR(3); WRITELN('(',III,')');
+ TITLEBAR(2,'EDIT OBJECT #'+NR(I)+' IN LEVEL '+NR(II));
+ TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': OBJECT TYPE ');
+ III:=L[II].OBJ[I].TYP; TEXTCOLOR(C_VALUE); WRITELN('(',ABS(III),')');
IF III<>0THEN BEGIN
- TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITE(': OBJECT BEGIN ');
- TEXTCOLOR(3); WRITELN('(',L[II].OBJ[I].X1,',',L[II].OBJ[I].Y1,')');
- TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITE(': OBJECT END ');
- TEXTCOLOR(3); IF L[II].OBJ[I].TYP=3THEN
- WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y1+L[II].OBJ[I].Y2,')')
- ELSE WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y2,')');
+ IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT); WRITE('2'); TEXTCOLOR(C_TEXT);
+ IF ABS(L[II].OBJ[I].TYP)=4THEN WRITE(': OBJECT POSITION ')ELSE WRITE(': OBJECT BEGIN');
+ IF L[II].OBJ[I].TYP>0THEN BEGIN
+ TEXTCOLOR(C_VALUE); WRITELN(' (',L[II].OBJ[I].X1,',',L[II].OBJ[I].Y1,')');
+ END {PRESENT} ELSE WRITELN;
+ IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
+ WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SELECT');
+ IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT); WRITE('4'); TEXTCOLOR(C_TEXT);
+ IF ABS(L[II].OBJ[I].TYP)=4THEN WRITE(': OBJECT SIZE ')ELSE WRITE(': OBJECT END ');
+ TEXTCOLOR(C_VALUE); CASE L[II].OBJ[I].TYP OF
+ 3:WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y1+L[II].OBJ[I].Y2,')');
+ 4:WRITELN('(',L[II].OBJ[I].X2,')');
+ 1..10:WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y2,')');
+ ELSE WRITELN;
+ END; {TYPE}
+ IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
+ WRITE('5'); TEXTCOLOR(C_TEXT); WRITELN(': SELECT');
+ TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITELN(': PREVIEW');
+ TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT);
+ IF L[II].OBJ[I].TYP<0THEN WRITE(': ENABLE')ELSE WRITE(': DISABLE');
END; {OBJECT PROPERTIES}
- WRITELN; TEXTCOLOR(7); IF III<>0THEN III:=EDITMENU(3)ELSE III:=EDITMENU(1);
+
+ IF III<>0THEN III:=EDITMENU(7,6)ELSE III:=EDITMENU(1,6);
CASE III OF
1:BEGIN
-EDITOBJ1:
- WRITELN('ENTER OBJECT TYPE');
- TEXTCOLOR(8); FOR I4:=0TO 3DO WRITE(I4,': ',OBJTYPE[I4],' ');
- TEXTCOLOR(7); WRITELN; WRITE('> '); READLN(L[II].OBJ[I].TYP);
- IF L[II].OBJ[I].TYP>3THEN BEGIN
- WRITELN('INVALID TYPE!'); GOTO EDITOBJ1;
- END; {INVALID}
- TEXTCOLOR(8); WRITELN('SCREEN=(2,2)-(',L[II].FIELDX-2,',',L[II].FIELDY-2,
- '); CENTER=(',(L[II].FIELDX-1)SHR 1,',',(L[II].FIELDY-1)SHR 1,')');
- TEXTCOLOR(7); WRITE('ENTER X1> '); READLN(L[II].OBJ[I].X1);
- WRITE('ENTER Y1> '); READLN(L[II].OBJ[I].Y1);
- WRITE('ENTER X2> '); READLN(L[II].OBJ[I].X2);
- WRITE('ENTER Y2> '); READLN(L[II].OBJ[I].Y2);
- IF L[II].OBJ[I].TYP=3THEN
- L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1;
+ S:=''; FOR I4:=0TO 4DO S:=S+NR(I4)+': '+OBJTYPE[I4]+CC(' ',37-ORD(OBJTYPE[I4,0]));
+ L[II].OBJ[I].TYP:=INPUTINT('ENTER OBJECT TYPE',S,0,0,4);
+ IF L[II].OBJ[I].TYP=4THEN BEGIN
+ L[II].OBJ[I].X1:=(L[II].FIELDX-1)SHR 1;
+ L[II].OBJ[I].Y1:=(L[II].FIELDY-1)SHR 1;
+ L[II].OBJ[I].X2:=MIN(L[II].FIELDY-3,L[II].FIELDX-3)SHR 2;
+ L[II].OBJ[I].Y2:=0;
+ END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN
+ IF(L[II].OBJ[I].TYP=1)OR(L[II].OBJ[I].TYP=3)THEN I4:=2 ELSE I4:=3;
+ L[II].OBJ[I].X1:=(L[II].FIELDX-1)SHR 1-(L[II].FIELDX-1)SHR 2;
+ L[II].OBJ[I].Y1:=(L[II].FIELDY-1)SHR 1-(L[II].FIELDY-1)SHR 2;
+ L[II].OBJ[I].X2:=(L[II].FIELDX-1)SHR 1+(L[II].FIELDX-1)SHR 2;
+ L[II].OBJ[I].Y2:=(L[II].FIELDY-1)SHR 1+(L[II].FIELDY-1)SHR 2;
+ IF L[II].OBJ[I].TYP=3THEN
+ L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1; {BOX}
+ END; {NORMAL OBJECT}
END; {TYPE}
2:BEGIN
- TEXTCOLOR(8); WRITELN('SCREEN=(2,2)-(',L[II].FIELDX-2,',',L[II].FIELDY-2,
- '); CENTER=(',(L[II].FIELDX-1)SHR 1,',',(L[II].FIELDY-1)SHR 1,')');
- TEXTCOLOR(7); WRITE('ENTER BEGIN X> '); READLN(L[II].OBJ[I].X1);
- WRITE('ENTER BEGIN Y> '); READLN(L[II].OBJ[I].Y1);
+ S:='SCREEN=(2,2)-('+NR(L[II].FIELDX-3)+','+NR(L[II].FIELDY-3)+
+ '); CENTER=('+NR((L[II].FIELDX-1)SHR 1)+','+NR((L[II].FIELDY-1)SHR 1)+')';
+ IF L[II].OBJ[I].TYP=4THEN BEGIN
+ L[II].OBJ[I].X1:=INPUTINT('ENTER X',S+
+ ' BE CAREFUL DRAWING OFF-SCREEN!',0,L[II].OBJ[I].X1,255);
+ L[II].OBJ[I].Y1:=INPUTINT('ENTER Y',S+
+ ' DON''T TRY Y<0; MIGHT CRASH CALC!!!',0,L[II].OBJ[I].Y1,255);
+ END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN
+ IF L[II].OBJ[I].TYP=3THEN
+ L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2+L[II].OBJ[I].Y1-3;
+ IF(L[II].OBJ[I].TYP=1)OR(L[II].OBJ[I].TYP=3)THEN I4:=2 ELSE I4:=3;
+ L[II].OBJ[I].X1:=INPUTINT('ENTER BEGIN X',S,2,L[II].OBJ[I].X1,L[II].FIELDX-I4);
+ L[II].OBJ[I].Y1:=INPUTINT('ENTER BEGIN Y',S,2,L[II].OBJ[I].Y1,L[II].FIELDY-I4);
+ IF L[II].OBJ[I].TYP=3THEN
+ L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1+3;
+ END; {NORMAL OBJECT}
END; {BEGIN}
- 3:BEGIN
- TEXTCOLOR(8); WRITELN('SCREEN=(2,2)-(',L[II].FIELDX-2,',',L[II].FIELDY-2,
- '); CENTER=(',(L[II].FIELDX-1)SHR 1,',',(L[II].FIELDY-1)SHR 1,')');
- TEXTCOLOR(7); WRITE('ENTER END X> '); READLN(L[II].OBJ[I].X2);
- WRITE('ENTER END Y> '); READLN(L[II].OBJ[I].Y2);
- IF L[II].OBJ[I].TYP=3THEN
- L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1;
+ 3:MAPOBJ(I,0);
+ 4:BEGIN
+ IF L[II].OBJ[I].TYP=4 THEN BEGIN
+ L[II].OBJ[I].X2:=INPUTINT('ENTER SIZE','CROSSING BOUNDARIES NOT CHECKED',
+ 3,L[II].OBJ[I].X2,255{L[II].FIELDX-3)SHR 1});
+ L[II].OBJ[I].Y2:=0;
+ END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN
+ S:='SCREEN=(0,0)-('+NR(L[II].FIELDX-2)+','+NR(L[II].FIELDY-2)+
+ '); CENTER=('+NR((L[II].FIELDX-1)SHR 1)+','+NR((L[II].FIELDY-1)SHR 1)+')';
+ IF(L[II].OBJ[I].TYP=1)OR(L[II].OBJ[I].TYP=3)THEN I4:=2 ELSE I4:=3;
+ L[II].OBJ[I].X2:=INPUTINT('ENTER END X',S,2,L[II].OBJ[I].X2,L[II].FIELDX-I4);
+ L[II].OBJ[I].Y2:=INPUTINT('ENTER END Y',S,2,L[II].OBJ[I].Y2,L[II].FIELDY-I4);
+ IF L[II].OBJ[I].TYP=3THEN BEGIN
+ IF L[II].OBJ[I].Y2<L[II].OBJ[I].Y1 THEN BEGIN
+ I4:=L[II].OBJ[I].Y2; L[II].OBJ[I].Y2:=L[II].OBJ[I].Y1;
+ L[II].OBJ[I].Y1:=I4;
+ END; {END BEFORE START}
+ L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1;
+ END; {BOX}
+ END; {NORMAL OBJECT}
END; {END}
+ 5:MAPOBJ(I,1);
+ 6:DISP1MAP(I);
+ 7:BEGIN
+ L[II].OBJ[I].TYP:=-L[II].OBJ[I].TYP;
+ END; {DISABLE/ENABLE}
END; {HANDLE}
UNTIL III=-1; III:=0;
END; {EDITOBJ}
LABEL EDITOBJS1,EDITOBJS2;
BEGIN
REPEAT
- EDITTITLE(2,'EDIT LEVEL OBJECTS');
- TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITELN(': CREATE OBJECT');
- TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITELN(': EDIT OBJECT');
- TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITELN(': DELETE OBJECT');
- WRITELN;
- III:=EDITMENU(3);
+ TITLEBAR(2,'EDIT LEVEL OBJECTS');
+ IF L[II].NROBJ>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
+ WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT OBJECT');
+ IF L[II].NROBJ>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
+ WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE OBJECT');
+ TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE OBJECT');
+ TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': PLACE OBJECT');
+ TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITE(': VIEW OBJECT');
+ III:=EDITMENU(5,6);
CASE III OF
- 1:BEGIN
- INC(L[II].NROBJ); I:=L[II].NROBJ; EDITOBJ;
- END; {CREATE}
- 2:BEGIN
-EDITOBJS1:
- WRITE('EDIT WHICH OBJECT> '); READLN(I);
- IF I>L[II].NROBJ THEN BEGIN
- WRITELN('JUST ',L[II].NROBJ,' OBJECTS PRESENT!');
- GOTO EDITOBJS1;
- END; {DNOT EXIST}
- IF I<>0THEN EDITOBJ;
- END; {PEAS}
- 3:BEGIN
-EDITOBJS2:
- WRITE('DELETE WHICH OBJECT> '); READLN(I);
- IF I>L[II].NROBJ THEN BEGIN
- WRITELN('I''M SORRY BUT THAT OBJECT DOES NOT EXIST');
- GOTO EDITOBJS2;
- END; {ERROR}
- IF I<>0THEN BEGIN
- WRITE('PLEASE CONFIRM OBJECT TO '); TEXTCOLOR(15); WRITE('REMOVE');
- TEXTCOLOR(7); WRITE('> '); READLN(I4);
- IF I=I4 THEN BEGIN
+ 1:IF L[II].NROBJ>0THEN BEGIN
+ I:=INPUTINT('EDIT WHICH OBJECT','',1,1,L[II].NROBJ);
+ EDITOBJ;
+ END; {EDIT}
+ 2:IF L[II].NROBJ>0THEN BEGIN
+ I:=INPUTINT('DELETE WHICH OBJECT','0=CANCEL',0,0,L[II].NROBJ);
+ IF I>0THEN BEGIN
+ I4:=INPUTINT('PLEASE CONFIRM OBJECT TO *REMOVE*','ENTER 0 TO CANCEL',0,0,L[II].NROBJ);
+ IF I=I4 THEN BEGIN
DEC(L[II].NROBJ); FOR I:=I4 TO L[II].NROBJ DO L[II].OBJ[I]:=L[II].OBJ[I+1];
- END; {OK}
- END; {SMTN}
+ END; {CONFIRMED}
+ END; {}
END; {DELETE}
+ 3:BEGIN
+ INC(L[II].NROBJ); I:=L[II].NROBJ; L[II].OBJ[I].TYP:=0; EDITOBJ;
+ END; {CREATE}
+ 4:BEGIN
+ INC(L[II].NROBJ); I:=L[II].NROBJ; L[II].OBJ[I].TYP:=0;
+ S:=''; FOR I4:=0TO 4DO S:=S+NR(I4)+': '+OBJTYPE[I4]+CC(' ',37-ORD(OBJTYPE[I4,0]));
+ L[II].OBJ[I].TYP:=INPUTINT('ENTER OBJECT TYPE',S,0,0,4);
+ L[II].OBJ[I].X1:=0; L[II].OBJ[I].Y1:=0; L[II].OBJ[I].X2:=0;
+ L[II].OBJ[I].Y2:=0; MAPOBJ(I,0);
+ IF L[II].OBJ[I].TYP=3THEN BEGIN
+ L[II].OBJ[I].X2:=L[II].OBJ[I].X1; L[II].OBJ[I].Y2:=1;
+ END; {BOX} MAPOBJ(I,1);
+ END; {CREATE}
+ 5:BEGIN
+ I4:=INPUTINT('ENTER OBJECT TO HIGHLIGHT','0 FOR NONE',0,0,L[II].NROBJ);
+ DISP1MAP(I4);
+ END; {DISP}
END; {HANDLE}
UNTIL III=-1; III:=0;
END; {EDITOBJS}
BYTE2STR:=SPRTEMP;
END; {BYTE2STR}
+FUNCTION BYTE2BIN(BYI1:BYTE):LONGINT;
+VAR BYI2:BYTE; BYI3:LONGINT;
+BEGIN
+ BYI3:=0;
+ FOR BYI2:=0TO 7DO BEGIN
+ IF BYI1 AND 1=1THEN BYI3:=BYI3+POW(10,BYI2);
+ BYI1:=BYI1 SHR 1;
+ END;
+ BYTE2BIN:=BYI3;
+END; {BYTE2BIN}
+
FUNCTION STR2BYTE(SPRITE:STRING):BYTE;
VAR SPRTEMP,SPRTEMP2:BYTE;
BEGIN
PROCEDURE EDITSPR;
BEGIN
REPEAT
- EDITTITLE(0,'EDIT SPRITE');
- TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': SPRITE SIZE ');
- TEXTCOLOR(3); IF L[II].SPRSIZE=0THEN WRITELN('(DEFAULT)')
- ELSE WRITELN('(',L[II].SPRSIZE,')');
+ TITLEBAR(0,'EDIT SPRITE');
+ TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE SIZE ');
+ TEXTCOLOR(C_VALUE); IF L[II].SPRSIZE=0THEN WRITELN('(',B.SPRSIZE,')')
+ ELSE WRITELN('(',L[II].SPRSIZE,')');
IF L[II].SPRSIZE=0THEN BEGIN
- TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITE(': EDIT SPRITE');
- TEXTCOLOR(3); WRITELN(' (DEFAULT)');
+ TEXTCOLOR(C_TEXT); WRITE('2: EDIT SPRITE'); TEXTCOLOR(C_VALUE); WRITELN(' (DEFAULT)');
END {DEF SPR} ELSE FOR I:=1TO L[II].SPRSIZE DO BEGIN
- TEXTCOLOR(14); WRITE(I+1); TEXTCOLOR(7); WRITE(': EDIT '); TEXTCOLOR(3);
+ TEXTCOLOR(C_MENU); WRITE(I+1); TEXTCOLOR(C_TEXT); WRITE(': EDIT '); TEXTCOLOR(C_VALUE);
WRITELN(BYTE2STR(L[II].SPRITE[I],L[II].SPRSIZE));
END; {DISP SPRITE}
- TEXTCOLOR(7); WRITELN; III:=EDITMENU(1+L[II].SPRSIZE);
+ III:=EDITMENU(1+L[II].SPRSIZE,0);
IF III=1THEN BEGIN
- WRITE('ENTER NEW SPRITE SIZE (MAX.HEIGHT/WIDTH)> '); READLN(I);
- IF I>L[II].SPRSIZE THEN FOR I4:=L[II].SPRSIZE+1TO I DO
- L[II].SPRITE[I4]:=0;
+ I:=INPUTINT('ENTER NEW SPRITE SIZE','MAXIMUM HEIGHT AND WIDTH; 0=DEFAULT',0,B.SPRSIZE,8);
+ IF I>L[II].SPRSIZE THEN FOR I4:=L[II].SPRSIZE+1TO I DO L[II].SPRITE[I4]:=0;
L[II].SPRSIZE:=I;
END {SIZE} ELSE IF III>1THEN BEGIN
- WRITELN('ENTER NEW LINE #',III-1,' OF SPRITE'); TEXTCOLOR(8);
- WRITE('(ex: 100101 = X��X�X)'); TEXTCOLOR(7); WRITE('> ');
- READLN(S); L[II].SPRITE[III-1]:=STR2BYTE(S);
+ S:=INPUTSTR('ENTER NEW LINE #'+NR(III-1)+' OF SPRITE','EXAMPLE: 100101 = X��X�X',
+ ZERO(BYTE2BIN(L[II].SPRITE[III-1]),8),8);
+ L[II].SPRITE[III-1]:=STR2BYTE(S);
END; {APP}
UNTIL III=-1; III:=0;
END; {EDITSPR}
+PROCEDURE EDITBOUNCIES;
+BEGIN
+ REPEAT
+ TITLEBAR(8,'EDIT BALLS IN LEVEL #'+NR(II));
+ TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE BALL');
+ TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE BALL');
+ FOR III:=1TO L[II].NRBALLS DO BEGIN
+ TEXTCOLOR(C_MENU); WRITE(III+2); TEXTCOLOR(C_TEXT); WRITE(': BALL #',III,' (');
+ TEXTCOLOR(C_VALUE); WRITE(L[II].BALLS[III].X); TEXTCOLOR(C_TEXT); WRITE(',');
+ TEXTCOLOR(C_VALUE); WRITE(L[II].BALLS[III].Y); TEXTCOLOR(C_TEXT); WRITE(') DIR ');
+ TEXTCOLOR(C_VALUE); WRITELN(L[II].BALLS[III].D);
+ END; {WORMS}
+
+ III:=EDITMENU(2+L[II].NRBALLS,0);
+ IF III=1THEN BEGIN
+ INC(L[II].NRBALLS);
+ L[II].BALLS[L[II].NRBALLS].X:=INPUTINT('ENTER X','WHERE THE BALL STARTS BOUNCING',0,63,255);
+ L[II].BALLS[L[II].NRBALLS].Y:=INPUTINT('ENTER Y','',0,27,255);
+ 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);
+ END {CREATE} ELSE IF III=2THEN BEGIN
+ III:=INPUTINT('ENTER THE BOUNCY BALL TO REMOVE','(0 CANCELS)',0,0,L[II].NRBALLS);
+ IF III>0THEN BEGIN
+ DEC(L[II].NRBALLS); FOR I4:=III TO L[II].NRBALLS DO L[II].BALLS[I4]:=L[II].BALLS[I4+1];
+ END; {OK2REMOVE}
+ END {DELETE} ELSE IF III>0THEN BEGIN
+ L[II].BALLS[III-2].X:=INPUTINT('ENTER X','NOTE THE BOUNCY BALLS WILL PROBABLY BOLDLY GO SOME OTHER PLACE ANYWAY',
+ 0,L[II].BALLS[III-2].X,255);
+ L[II].BALLS[III-2].Y:=INPUTINT('ENTER Y','',0,L[II].BALLS[III-2].Y,255);
+ 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);
+ END; {EDIT}
+ UNTIL III=-1; III:=0;
+END; {EDITWORMS}
+
PROCEDURE EDITWORMS;
BEGIN
REPEAT
- EDITTITLE(0,'EDIT WORMS IN LEVEL #'+NR(II));
+ TITLEBAR(0,'EDIT WORMS IN LEVEL #'+NR(II));
IF II>B.LSINGLE THEN III:=4 ELSE III:=1;
FOR III:=1TO III DO BEGIN
- TEXTCOLOR(14); WRITE(III SHL 1-1); TEXTCOLOR(7);
- WRITE(': WORM #',III,' DIRECTION '); TEXTCOLOR(3);
+ TEXTCOLOR(C_MENU); WRITE(III SHL 1-1); TEXTCOLOR(C_TEXT);
+ WRITE(': WORM #',III,' DIRECTION '); TEXTCOLOR(C_VALUE);
WRITELN('(',L[II].W[III].D,')');
- TEXTCOLOR(14); WRITE(III SHL 1); TEXTCOLOR(7);
- WRITE(': WORM #',III,' POSITION '); TEXTCOLOR(3);
+ TEXTCOLOR(C_MENU); WRITE(III SHL 1); TEXTCOLOR(C_TEXT);
+ WRITE(': WORM #',III,' POSITION '); TEXTCOLOR(C_VALUE);
WRITELN('(',L[II].W[III].X,',',L[II].W[III].Y,')');
- END; {}
- TEXTCOLOR(7); WRITELN;
- IF III=4THEN III:=EDITMENU(8)ELSE III:=EDITMENU(2);
+ END; {WORMS}
- CASE III OF
- 1,3,5,7:BEGIN
- WRITELN('ENTER WORM #',(III+1)SHR 1,' STARTING DIRECTION'); TEXTCOLOR(8);
- WRITELN('(0=down; 64=right; 128=up; 192=left)');
- TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].W[(III+1)SHR 1].D:=I;
- END; {DIR}
+ IF III=4THEN III:=EDITMENU(8,4)ELSE III:=EDITMENU(2,4);
+ CASE(III+1)OF
2,4,6,8:BEGIN
- WRITELN('ENTER WORM #',III SHR 1,' BEGIN X-POSITION'); TEXTCOLOR(8);
- WRITELN('(screen = 2-',L[II].FIELDX-2,'; center = ',L[II].FIELDX DIV 2);
- TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].W[III SHR 1].X:=I;
- WRITELN('ENTER WORM #',III SHR 1,' BEGIN Y-POSITION'); TEXTCOLOR(8);
- WRITELN('(screen = 2-',L[II].FIELDY-2,'; center = ',L[II].FIELDY DIV 2);
- TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].W[III SHR 1].Y:=I;
+ I:=INPUTINT('ENTER WORM #'+NR(III SHR 1+1)+' STARTING DIRECTION',
+ '0=DOWN; 64=RIGHT; 128=UP; 192=LEFT',0,L[II].W[III SHR 1+1].D,255);
+ L[II].W[III SHR 1+1].D:=I;
+ END; {DIR}
+ 3,5,7,9:BEGIN
+ I:=INPUTINT('ENTER WORM #'+NR(III SHR 1)+' BEGIN X-POSITION',
+ 'SCREEN = 2-'+NR(L[II].FIELDX-3)+'; CENTER = '+NR((L[II].FIELDX-1)SHR 1),
+ 2,L[II].W[III SHR 1].X,L[II].FIELDX-3);
+ L[II].W[III SHR 1].X:=I;
+ I:=INPUTINT('ENTER WORM #'+NR(III SHR 1)+' BEGIN Y-POSITION',
+ 'SCREEN = 2-'+NR(L[II].FIELDY-3)+'; CENTER = '+NR((L[II].FIELDY-1)SHR 1),
+ 2,L[II].W[III SHR 1].Y,L[II].FIELDY-3);
+ L[II].W[III SHR 1].Y:=I;
END; {POS}
END; {HANDLE}
UNTIL III=-1; III:=0;
END; {EDITWORMS}
+PROCEDURE EDITLEVSETS;
+BEGIN
+ REPEAT
+ TITLEBAR(3,'LEVEL #'+NR(II)+' SETTINGS');
+ IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
+ TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': FLAG POSITIONS ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',L[II].FLAG1X,',',L[II].FLAG1Y,')(',
+ L[II].FLAG2X,',',L[II].FLAG2Y,')');
+ END {CTF} ELSE IF II>B.LSINGLE+B.LMULTI THEN BEGIN
+ TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': LAP BORDERS ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',L[II].FLAG1X,'; ',L[II].FLAG1Y,')');
+ END {RACE} ELSE BEGIN
+ IF II>B.LSINGLE THEN TEXTCOLOR(C_TEXT)ELSE TEXTCOLOR(C_MENU);
+ WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': NUMBER OF PEAS ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',L[II].PEAS,')');
+ END; {SP/MP}
+ TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': GAME DELAY ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',L[II].DELAY,')');
+ TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITE(': STARTING LENGTH ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',L[II].BSIZE,')');
+ TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': GROWTH ');
+ TEXTCOLOR(C_VALUE); WRITE('(',L[II].GROWTH,')');
+
+ III:=EDITMENU(4,0);
+ CASE III OF
+ 1:IF II<=B.LSINGLE THEN
+ L[II].PEAS:=INPUTINT('ENTER TOTAL NUMBER OF PEAS','TOO MANY PEAS WILL MAKE A LEVEL BORING',1,L[II].PEAS,255)
+ ELSE IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
+ IF L[II].SPRSIZE>0THEN I:=L[II].SPRSIZE ELSE I:=B.SPRSIZE;
+ 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);
+ 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);
+ 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);
+ 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);
+ END {CTF} ELSE IF II>B.LSINGLE+B.LMULTI THEN BEGIN
+ L[II].FLAG1X:=INPUTINT('ENTER HORIZONTAL LAP BORDER','USUALLY THE MIDDLE OF THE SCREEN',2,L[II].FIELDY SHR 1,L[II].FIELDY-2);
+ L[II].FLAG1Y:=INPUTINT('ENTER VERTICAL LAP BORDER','USUALLY THE CENTER OF THE SCREEN',2,L[II].FIELDX SHR 1,L[II].FIELDX-2);
+ END; {RACE}
+ 2:L[II].DELAY:=INPUTINT('ENTER NEW DELAY','0=FASTEST; 4=AVERAGE; 10=SLOW',0,L[II].DELAY,255);
+ 3:L[II].BSIZE:=INPUTINT('ENTER WORM BEGIN SIZE','15=NORMAL; TOO SHORT WORMS WILL BE HARD TO PLAY WITH',
+ 1,L[II].BSIZE,255);
+ 4:L[II].GROWTH:=INPUTINT('ENTER GROWTH PER PEA','0=NO GROWTH; 15=NORMAL',0,L[II].GROWTH,255);
+ END; {HANDLE}
+ UNTIL III=-1; III:=0;
+END; {EDITLEVSETS}
+
PROCEDURE EDITLEVEL;
BEGIN
REPEAT
- L[II].SIZE:=12+L[II].NRBALLS+L[II].SPRSIZE+L[II].NROBJ*5;
- IF II>B.LSINGLE THEN INC(L[II].SIZE,9);
- EDITTITLE(3,'EDIT LEVEL #'+NR(II));
- TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': DESCRIPTION ');
- TEXTCOLOR(3); WRITELN('(',L[II].NAME,')');
- TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITE(': NUMBER OF PEAS ');
- TEXTCOLOR(3); WRITELN('(',L[II].PEAS,')');
- TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITE(': GAME DELAY ');
- TEXTCOLOR(3); WRITELN('(',L[II].DELAY,')');
- TEXTCOLOR(14); WRITE('4'); TEXTCOLOR(7); WRITE(': GROWTH ');
- TEXTCOLOR(3); WRITELN('(',L[II].GROWTH,'+',L[II].BSIZE,')');
- TEXTCOLOR(14); WRITE('5'); TEXTCOLOR(7); WRITE(': SPRITE ');
- TEXTCOLOR(3); IF L[II].SPRSIZE=0THEN WRITELN('(DEFAULT)')
+ L[II].SIZE:=12+L[II].NRBALLS*3+L[II].SPRSIZE+L[II].NROBJ*5;
+ FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(L[II].SIZE,5);
+ IF II<=B.LSINGLE THEN L[II].NAME:=ZERO(II,2);
+ IF II>B.LSINGLE THEN INC(L[II].SIZE,10+LENGTH(L[II].NAME));
+ IF II>B.LSINGLE+B.LMULTI THEN INC(L[II].SIZE,2);
+ IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN INC(L[II].SIZE,2);
+ TITLEBAR(3,'EDIT LEVEL #'+NR(II));
+ TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': DESCRIPTION ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',L[II].ID,')');
+ TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': NAME ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',L[II].NAME,')');
+ TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': LEVEL SETTINGS');
+ TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE ');
+ TEXTCOLOR(C_VALUE); IF L[II].SPRSIZE=0THEN WRITELN('(DEFAULT)')
ELSE WRITELN('(',L[II].SPRSIZE,')');
- TEXTCOLOR(14); WRITE('6'); TEXTCOLOR(7); WRITE(': BOUNCY BALLS ');
- TEXTCOLOR(3); WRITELN('(',L[II].NRBALLS,')');
- TEXTCOLOR(14); WRITE('7'); TEXTCOLOR(7); WRITE(': WORMS '); TEXTCOLOR(3);
+ TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITE(': BOUNCY BALLS ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',L[II].NRBALLS,')');
+ TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITE(': WORMS '); TEXTCOLOR(C_VALUE);
IF II>B.LSINGLE THEN BEGIN
WRITELN('(',L[II].W[1].D,';',L[II].W[2].D,';',L[II].W[3].D,';',L[II].W[4].D,')');
END {FOUR WORMS} ELSE
WRITELN('(',L[II].W[1].X,',',L[II].W[1].Y,':',L[II].W[1].D,')');
- TEXTCOLOR(14); WRITE('8'); TEXTCOLOR(7); WRITE(': FIELD SIZE ');
- TEXTCOLOR(3); WRITELN('(',L[II].FIELDX,',',L[II].FIELDY,')');
- TEXTCOLOR(14); WRITE('9'); TEXTCOLOR(7); WRITE(': OBJECTS ');
- TEXTCOLOR(3); WRITELN('(',L[II].NROBJ,')');
- TEXTCOLOR(7); WRITELN;
- III:=EDITMENU(9);
+ TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITE(': FIELD SIZE ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',L[II].FIELDX,',',L[II].FIELDY,')');
+ TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITE(': OBJECTS ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',L[II].NROBJ,')');
+ TEXTCOLOR(C_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITE(': PREVIEW LEVEL');
+ III:=EDITMENU(9,0);
CASE III OF
- 1:BEGIN
- WRITELN('ENTER DESCRIPTION FOR THIS LEVEL'); WRITE('> ');
- READLN(S); IF S<>''THEN L[II].NAME:=S;
- END; {DESCR}
- 2:BEGIN
- WRITE('ENTER TOTAL NUMBER OF PEAS> ');
- READLN(I); L[II].PEAS:=I;
- END; {PEAS}
- 3:BEGIN
- WRITE('ENTER NEW DELAY '); TEXTCOLOR(8); WRITE('(0=fastest; 4=def.)');
- TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].DELAY:=I;
- END; {DELAY}
- 4:BEGIN
- WRITE('ENTER GROWTH PER PEA '); TEXTCOLOR(8); WRITE('(15=default)');
- TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].GROWTH:=I;
- WRITE('ENTER WORM BEGIN SIZE '); TEXTCOLOR(8); WRITE('(15=default)');
- TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].BSIZE:=I;
- END; {GROWTH}
- 5:EDITSPR;
- 7:EDITWORMS;
- 8:BEGIN
- WRITELN('ENTER FIELD WIDTH'); TEXTCOLOR(8);
- WRITE('(128=screen-width; 255=max.)');
- TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].FIELDX:=BYTE(I);
- WRITELN('ENTER FIELD HEIGHT'); TEXTCOLOR(8);
- WRITE('(57=screen-height 255=max.)');
- TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].FIELDY:=BYTE(I);
+ 1:L[II].ID:=INPUTSTR('ENTER DESCRIPTION FOR THIS LEVEL',
+ 'THIS WON''T BE DISPLAYED DURING THE GAME,IT''S JUST TO MAKE EDITING EASIER',L[II].ID,22); {DESCR}
+ 2:L[II].NAME:=INPUTSTR('ENTER DESCRIPTION FOR THIS LEVEL',
+ 'MULTIPLAYER LEVELS CAN BE NAMED TO MAKE LIFE EASIER FOR THE PLAYER',L[II].NAME,22); {NAME}
+ 3:EDITLEVSETS;
+ 4:EDITSPR;
+ 5:EDITBOUNCIES;
+ 6:EDITWORMS;
+ 7:BEGIN
+ FOR III:=L[II].NROBJ DOWNTO 1DO
+ IF L[II].OBJ[III].Y2+L[II].OBJ[III].Y1=255THEN BEGIN
+ DEC(L[II].NROBJ); FOR I4:=III TO L[II].NROBJ DO L[II].OBJ[I4]:=L[II].OBJ[I4+1];
+ END; {REMOVE OLD BARS}
+ L[II].FIELDX:=INPUTINT('ENTER FIELD WIDTH','128=ONE SCREEN; MORE WILL SCROLL THE SCREEN',5,L[II].FIELDX,255);
+ IF L[II].FIELDX<128THEN BEGIN
+ INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=L[II].FIELDX;
+ IF L[II].FIELDX<128THEN DEC(L[II].OBJ[L[II].NROBJ].X1,2);
+ L[II].OBJ[L[II].NROBJ].Y2:=255; L[II].OBJ[L[II].NROBJ].TYP:=3;
+ L[II].OBJ[L[II].NROBJ].X2:=127; L[II].OBJ[L[II].NROBJ].Y1:=0;
+ END; {PUT BAR}
+ L[II].FIELDY:=INPUTINT('ENTER FIELD HEIGHT','57=ONE SCREEN; MORE WILL SCROLL THE SCREEN',5,L[II].FIELDY,255);
+ IF L[II].FIELDY<57THEN BEGIN
+ INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=2;
+ L[II].OBJ[L[II].NROBJ].Y2:=257-L[II].FIELDY;
+ L[II].OBJ[L[II].NROBJ].X2:=L[II].FIELDX-1; L[II].OBJ[L[II].NROBJ].TYP:=3;
+ L[II].OBJ[L[II].NROBJ].Y1:=L[II].FIELDY;
+ END; {PUT BAR}
END; {FIELD}
- 9:EDITOBJS;
+ 8:EDITOBJS;
+ 9:DISP1MAP(0);
END; {HANDLE}
UNTIL III=-1; III:=0;
END; {EDITLEVEL}
LABEL EDITHLVL1,EDITHLVL2;
BEGIN
REPEAT
- EDITTITLE(1,'EDIT LEVELS');
- TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITELN(': EDIT LEVEL');
- TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITELN(': DELETE LEVEL');
- TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITELN(': CREATE SINGLEPLAYER LEVEL');
- TEXTCOLOR(14); WRITE('4'); TEXTCOLOR(7); WRITELN(': CREATE MULTIPLAYER LEVEL');
- TEXTCOLOR(7); WRITE('5'); TEXTCOLOR(7); WRITELN(': CREATE CTF LEVEL');
- TEXTCOLOR(7); WRITELN; III:=EDITMENU(4);
+ TITLEBAR(1,'EDIT LEVELS');
+ IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
+ WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT LEVEL');
+ IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
+ WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': COPY LEVEL');
+ IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
+ WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': MOVE LEVEL');
+ IF B.LTOTAL>0THEN TEXTCOLOR(C_MENU)ELSE TEXTCOLOR(C_TEXT);
+ WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE LEVEL');
+ TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE SINGLEPLAYER LEVEL');
+ TEXTCOLOR(C_MENU); WRITE('6'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE MULTIPLAYER LEVEL');
+ TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE RACE LEVEL');
+ TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE CTF LEVEL');
+ TEXTCOLOR(C_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITELN(': PREVIEW LEVELS');
+ TEXTCOLOR(C_TEXT); WRITELN; III:=EDITMENU(9,5);
CASE III OF
- 1:BEGIN
-EDITHLVL1:
- WRITE('EDIT WHICH LEVEL> '); READLN(II);
- IF II>B.LTOTAL THEN BEGIN
- WRITELN('THAT LEVEL DOES NOT EXIST!'); GOTO EDITHLVL1;
- END; {ERROR}
+ 1:IF B.LTOTAL>0THEN BEGIN
+ II:=INPUTINT('EDIT WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
IF II<>0THEN EDITLEVEL;
END; {EDIT}
- 2:BEGIN
-EDITHLVL2:
- WRITE('DELETE WHICH LEVEL> '); READLN(II);
- IF II>B.LTOTAL THEN BEGIN
- WRITELN('YOU CANNOT DELETE A LEVEL THAT DOES NOT EXIST!');
- GOTO EDITHLVL2;
- END; {ERROR}
+ 2:IF B.LTOTAL>0THEN BEGIN
+ II:=INPUTINT('COPY WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
IF II<>0THEN BEGIN
- WRITE('PLEASE CONFIRM LEVEL TO '); TEXTCOLOR(15); WRITE('DELETE');
- TEXTCOLOR(7); WRITE('> '); READLN(I);
+ INC(B.LTOTAL);
+ IF II<=B.LSINGLE THEN BEGIN
+ INC(B.LSINGLE);
+ FOR I:=B.LTOTAL DOWNTO B.LSINGLE+1DO L[I]:=L[I-1];
+ L[B.LSINGLE]:=L[II]; II:=B.LSINGLE
+ END {SP} ELSE IF II<=B.LSINGLE+B.LMULTI THEN BEGIN
+ FOR I:=2TO 6DO IF B.LTO[I]=B.LMULTI THEN BEGIN
+ INC(B.LTO[I]); IF B.LFROM[I]=0THEN INC(B.LFROM[I]);
+ END; {MP}
+ INC(B.LMULTI);
+ FOR I:=B.LTOTAL DOWNTO B.LSINGLE+B.LMULTI+1DO L[I]:=L[I-1];
+ L[B.LSINGLE+B.LMULTI]:=L[II]; II:=B.LSINGLE+B.LMULTI;
+ END {MP} ELSE IF II<=B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
+ INC(B.LRACE); FOR I:=B.LTOTAL DOWNTO B.LSINGLE+B.LMULTI+B.LRACE+1DO L[I]:=L[I-1];
+ L[B.LSINGLE+B.LMULTI+B.LRACE]:=L[II]; II:=B.LSINGLE+B.LMULTI+B.LRACE;
+ END {RACE} ELSE BEGIN
+ INC(B.LCTF); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL;
+ END; {CTF}
+ L[II].ID:='Copy of '+L[II].ID;
+ END; {>0}
+ END; {COPY}
+ 3:IF B.LTOTAL>0THEN BEGIN
+ I:=INPUTINT('MOVE WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
+ IF II<>0THEN BEGIN
+ II:=INPUTINT('NEW LEVEL NUMBER','ENTER 0 TO CANCEL',0,0,B.LTOTAL);
+ IF II<>0THEN IF((I<=B.LSINGLE)AND(II<=B.LSINGLE))
+ OR((I>B.LSINGLE)AND(I<=B.LMULTI+B.LSINGLE)AND(II>B.LSINGLE)AND(II<=B.LMULTI+B.LSINGLE))
+ 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))
+ OR((I>B.LSINGLE+B.LMULTI+B.LRACE)AND(II>B.LSINGLE+B.LMULTI+B.LRACE))THEN BEGIN
+ LTEMP:=L[I]; IF II>I THEN FOR I4:=I TO II-1DO L[I4]:=L[I4+1]
+ ELSE FOR I4:=I DOWNTO II+1DO L[I4]:=L[I4-1];
+ L[II]:=LTEMP;
+ END; {CONFIRMED}
+ END; {}
+ END; {MOVE}
+ 4:IF B.LTOTAL>0THEN BEGIN
+ II:=INPUTINT('DELETE WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL);
+ IF II<>0THEN BEGIN
+ I:=INPUTINT('PLEASE CONFIRM LEVEL TO *REMOVE*','ENTER 0 TO CANCEL',0,0,B.LTOTAL);
IF I=II THEN BEGIN
IF I<=B.LSINGLE THEN DEC(B.LSINGLE)ELSE
IF I<=B.LMULTI+B.LSINGLE THEN DEC(B.LMULTI)ELSE
- DEC(B.LCTF);
+ IF I<=B.LMULTI+B.LSINGLE+B.LRACE THEN DEC(B.LRACE)ELSE
+ DEC(B.LCTF);
DEC(B.LTOTAL); FOR I:=II TO B.LTOTAL DO L[I]:=L[I+1];
FOR I:=2TO 7DO BEGIN
IF B.LTO[I]>B.LMULTI THEN B.LTO[I]:=B.LMULTI;
IF B.LFROM[I]>B.LTO[I]THEN B.LFROM[I]:=B.LTO[I];
END; {CHECK}
- END; {OK}
- END; {SMTN}
+ IF B.LTO[8]>B.LMULTI+B.LRACE THEN B.LTO[8]:=B.LMULTI+B.LRACE;
+ IF B.LFROM[8]>B.LTO[8]THEN B.LFROM[8]:=B.LTO[8];
+ IF B.LTO[9]>B.LTOTAL THEN B.LTO[9]:=B.LTOTAL;
+ IF B.LFROM[9]>B.LTO[9]THEN B.LFROM[9]:=B.LTO[9];
+ END; {CONFIRMED}
+ END; {}
END; {DELETE}
-
- 3:BEGIN
- INC(B.LSINGLE); INC(B.LTOTAL); II:=B.LSINGLE;
+ 5:BEGIN
+ INC(B.LSINGLE); INC(B.LTOTAL); II:=B.LSINGLE;
+ IF B.LTO[1]=0THEN B.LTO[1]:=1; IF B.LFROM[1]=0THEN B.LFROM[1]:=1;
FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1];
- L[II].NAME:='Level #'+NR(II);
+ L[II].ID:='Level #'+NR(II);
L[II].PEAS:=8; L[II].DELAY:=4; L[II].GROWTH:=15; L[II].BSIZE:=15;
L[II].SPRSIZE:=0; L[II].NRBALLS:=0; L[II].W[1].D:=0; L[II].W[1].X:=63;
L[II].W[1].Y:=2; L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0;
EDITLEVEL;
END; {CREATE SP}
- 4:BEGIN
+ 6:BEGIN
FOR I:=2TO 7DO IF B.LTO[I]=B.LMULTI THEN BEGIN
INC(B.LTO[I]); IF B.LFROM[I]=0THEN INC(B.LFROM[I]);
END; {}
INC(B.LTOTAL); INC(B.LMULTI); II:=B.LSINGLE+B.LMULTI;
FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1];
- L[II].NAME:='Arena #'+NR(B.LMULTI);
+ L[II].ID:='Arena #'+NR(B.LMULTI); L[II].NAME:=ZERO(B.LMULTI,2);
L[II].DELAY:=4; L[II].GROWTH:=15; L[II].BSIZE:=15; L[II].SPRSIZE:=0;
L[II].W[1].D:=$40; L[II].W[1].Y:=28; L[II].W[1].X:=2;
L[II].W[2].D:=$C0; L[II].W[2].Y:=28; L[II].W[2].X:=125;
L[II].NRBALLS:=0; L[II].FIELDX:=128; L[II].FIELDY:=57;
L[II].NROBJ:=0; EDITLEVEL;
END; {CREATE MP}
+ 7:BEGIN
+ INC(B.LRACE); INC(B.LTOTAL); II:=B.LSINGLE+B.LMULTI+B.LRACE;
+ FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1];
+ INC(B.LTO[8]); IF B.LFROM[8]=0THEN INC(B.LFROM[8]);
+ L[II].ID:='Track #'+NR(II); L[II].NAME:=ZERO(B.LRACE,2);
+ L[II].DELAY:=8; L[II].GROWTH:=15;
+ L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;
+ L[II].W[1].D:=$40; L[II].W[1].X:=2; L[II].W[1].Y:=23;
+ L[II].W[2].D:=$C0; L[II].W[2].X:=125; L[II].W[2].Y:=23;
+ L[II].W[3].D:=$40; L[II].W[3].X:=2; L[II].W[3].Y:=35;
+ L[II].W[4].D:=$C0; L[II].W[4].X:=125; L[II].W[4].Y:=35;
+ L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0;
+ L[II].FLAG1X:=28; L[II].FLAG1Y:=63; L[II].FLAG2X:=0; L[II].FLAG2Y:=0;
+ EDITLEVEL;
+ END; {CREATE RACE}
+ 8:BEGIN
+ INC(B.LCTF); INC(B.LTOTAL); II:=B.LTOTAL;
+ INC(B.LTO[9]); IF B.LFROM[9]=0THEN INC(B.LFROM[9]);
+ L[II].ID:='Field #'+NR(II); L[II].NAME:=ZERO(B.LCTF,2);
+ L[II].DELAY:=5; L[II].GROWTH:=15;
+ L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;
+ L[II].W[1].D:=$40; L[II].W[1].X:=2; L[II].W[1].Y:=23;
+ L[II].W[2].D:=$C0; L[II].W[2].X:=125; L[II].W[2].Y:=23;
+ L[II].W[3].D:=$40; L[II].W[3].X:=2; L[II].W[3].Y:=35;
+ L[II].W[4].D:=$C0; L[II].W[4].X:=125; L[II].W[4].Y:=35;
+ L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0;
+ L[II].FLAG1X:=8; L[II].FLAG2X:=128-8-B.SPRSIZE;
+ L[II].FLAG1Y:=27; L[II].FLAG2Y:=27;
+ EDITLEVEL;
+ END; {CREATE CTF}
+ 9:BEGIN
+ II:=INPUTINT('MAP SIZE','4=SHRINK 16 MAPS ON SCREEN',1,5,32);
+ DISPMANYMAP(II);
+ END; {PREVIEW}
END; {HANDLE}
UNTIL III=-1; III:=0;
END; {EDITLVL}
-PROCEDURE EDITDSPR;
+PROCEDURE EDITSETS;
BEGIN
REPEAT
- EDITTITLE(0,'EDIT DEFAULT SPRITE');
- TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': SPRITE SIZE ');
- TEXTCOLOR(3); WRITELN('(',B.SPRSIZE,')');
+ TITLEBAR(0,'CHANGE DEFAULTS');
+ TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITE(': HISCORE NAME ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',B.HINAME,')');
+ TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': END TYPE ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',ENDTYPE[B.ENDTYPE],')');
+ CASE B.ENDTYPE OF
+ 1,2:BEGIN
+ TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITE(': EDIT MESSAGE ');
+ TEXTCOLOR(C_VALUE); WRITE('(',COPY(B.ENDSTR,1,18));
+ IF LENGTH(B.ENDSTR)>18THEN WRITELN('...)')ELSE WRITELN(')');
+ END; {MSG}
+ ELSE BEGIN TEXTCOLOR(C_TEXT); WRITELN('3: CONFIGURE END'); END; {NOTN}
+ END; {TYPE}
+ TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': SPRITE SIZE ');
+ TEXTCOLOR(C_VALUE); WRITELN('(',B.SPRSIZE,')');
FOR I:=1TO B.SPRSIZE DO BEGIN
- TEXTCOLOR(14); WRITE(I+1); TEXTCOLOR(7); WRITE(': EDIT '); TEXTCOLOR(3);
+ TEXTCOLOR(C_MENU); IF I>5THEN WRITE(CHR(I+59))ELSE WRITE(I+4);
+ TEXTCOLOR(C_TEXT); WRITE(': EDIT '); TEXTCOLOR(C_VALUE);
WRITELN(BYTE2STR(B.SPRITE[I],B.SPRSIZE));
END; {DISP SPRITE}
- TEXTCOLOR(7); WRITELN; III:=EDITMENU(1+B.SPRSIZE);
-
- IF III=1THEN BEGIN
- WRITELN('ENTER THE DEFAULT SPRITE SIZE'); TEXTCOLOR(8);
- WRITE('(1-8; can be changed per level)'); TEXTCOLOR(7); WRITE('> ');
- READLN(I); IF(I>0)AND(I<=8)THEN BEGIN
- IF I>B.SPRSIZE THEN FOR I4:=B.SPRSIZE+1TO I DO B.SPRITE[I4]:=0;
- B.SPRSIZE:=I;
- END; {OK}
- END {SIZE} ELSE IF III>1THEN BEGIN
- WRITELN('ENTER NEW LINE #',III-1,' OF SPRITE'); TEXTCOLOR(8);
- WRITE('(ex: 100101 = X��X�X)'); TEXTCOLOR(7); WRITE('> ');
- READLN(S); B.SPRITE[III-1]:=STR2BYTE(S);
- END; {APP}
- UNTIL III=-1; III:=0;
-END; {EDITDSPR}
-PROCEDURE EDITSPEND;
-BEGIN
- REPEAT
- EDITTITLE(0,'SINGLEPLAYER ENDING');
- TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': END TYPE ');
- TEXTCOLOR(3); WRITELN(' (',ENDTYPE[B.ENDTYPE],')'); TEXTCOLOR(14);
- CASE B.ENDTYPE OF
- -1:BEGIN
- WRITE('2'); TEXTCOLOR(7); WRITE(': EDIT MESSAGE');
- TEXTCOLOR(3); WRITE(' (',COPY(B.ENDDATA,1,18));
- IF LENGTH(B.ENDDATA)>18THEN WRITELN('...)')ELSE WRITELN(')');
- END; {MSG}
- END; {TYPE} TEXTCOLOR(7); WRITELN; III:=EDITMENU(2);
+ III:=EDITMENU(4+B.SPRSIZE,0);
CASE III OF
1:BEGIN
- WRITELN('ENTER NEW END TYPE:'); TEXTCOLOR(8);
- FOR II:=0TO 1DO WRITE(II,': ',ENDTYPE[-II],' '); WRITELN; TEXTCOLOR(7);
- WRITE('> '); READLN(II); IF(II<=1)AND(II>=0)THEN B.ENDTYPE:=-II;
- IF II=1THEN B.ENDDATA:='Congratulations!!';
- END; {TITLE}
+ S:=INPUTSTR('DEFAULT NAME OF HISCORES','LENGTH 3 CHARS',B.HINAME,3);
+ FOR I:=1TO 3DO B.HINAME[I]:=S[I];
+ END; {HINAME}
2:BEGIN
- CASE B.ENDTYPE OF
- -1:BEGIN
- WRITE('ENTER NEW END MESSAGE '); TEXTCOLOR(8);
- WRITELN('(max 255 chars)'); WRITE('> ');
- READLN(S); IF S<>''THEN B.ENDDATA:=S;
- END; {MSG}
- END; {TYPE}
- END; {EDIT}
+ S:='';
+ FOR II:=0TO ENDTYPES DO S:=S+(NR(II)+': '+ENDTYPE[II]+CC(' ',37-ORD(ENDTYPE[II,0])));
+ B.ENDTYPE:=INPUTINT('ENTER NEW END TYPE',S,0,0,ENDTYPES);
+ IF B.ENDTYPE>0THEN B.ENDSTR:='Congratulations!!';
+ END; {ENDTYPE}
+ 3:BEGIN
+ IF B.ENDTYPE>0THEN
+ B.ENDSTR:=INPUTSTR('ENTER NEW END MESSAGE','MAX 255 CHARS','Congratulations!!',255);
+ END; {ENDCONF}
+ 4:BEGIN
+ I:=INPUTINT('ENTER THE DEFAULT SPRITE SIZE','CAN BE CHANGED PER LEVEL',1,B.SPRSIZE,8);
+ IF I>B.SPRSIZE THEN FOR I4:=B.SPRSIZE+1TO I DO B.SPRITE[I4]:=0;
+ B.SPRSIZE:=I;
+ END; {SPRSIZE}
+ ELSE IF III>4THEN BEGIN
+ S:=INPUTSTR('ENTER NEW LINE #'+NR(III-4)+' OF SPRITE','EXAMPLE: 100101 = X��X�X',
+ ZERO(BYTE2BIN(B.SPRITE[III-4]),8),8);
+ B.SPRITE[III-4]:=STR2BYTE(S);
+ END; {SPREDIT}
END; {HANDLE}
UNTIL III=-1; III:=0;
-END; {EDITSPEND}
-
+END; {EDITSETS}
PROCEDURE EDITMAIN;
BEGIN
REPEAT
- S:=''; FOR II:=1TO LENGTH(B.NAME)DO S:=S+UPCASE(B.NAME[II]); EDITTITLE(4,S);
- TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITELN(': EDIT TITLE');
- TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITE(': DEFAULT SPRITE');
- TEXTCOLOR(3); WRITELN(' (',B.SPRSIZE,')');
- TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITELN(': GAME TYPES');
- TEXTCOLOR(14); WRITE('4'); TEXTCOLOR(7); WRITE(': SP ENDING');
- TEXTCOLOR(3); WRITELN(' (',ENDTYPE[B.ENDTYPE],')');
- TEXTCOLOR(14); WRITE('5'); TEXTCOLOR(7); WRITE(': LEVELS');
- TEXTCOLOR(3); WRITELN(' (',B.LTOTAL,')');
- TEXTCOLOR(7); WRITELN; III:=EDITMENU(5);
+ TITLEBAR(4,UPCS(B.NAME));
+ TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT TITLE');
+ TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DESCRIPTION');
+ TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': DEFAULTS');
+ TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': GAME TYPES');
+ TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITE(': LEVELS');
+ TEXTCOLOR(C_VALUE); WRITE(' (',B.LTOTAL,')');
+
+ III:=EDITMENU(5,3);
CASE III OF
- 1:BEGIN
- WRITELN('ENTER NEW TITLE FOR THIS LEVELFILE ');
- TEXTCOLOR(8); WRITE('enter=don''t alter; max. length 32 chars ');
- TEXTCOLOR(7); WRITE('> '); READLN(S); IF S<>''THEN B.NAME:=S;
- END; {TITLE}
- 2:EDITDSPR;
- 3:EDITGAME;
- 4:EDITSPEND;
+ 1:B.NAME:=INPUTSTR('ENTER NEW TITLE FOR THIS LEVELFILE',
+ 'NOTE TI-86 DISPLAYS ONLY 22 CHARS ON THEFIRST LINE',B.NAME,32); {TITLE}
+ 2:B.DESC:=INPUTSTR('ENTER NEW DESCRIPTION FOR THIS LEVELFILE',
+ 'DISPLAYED AT THE LEVEL-SELECTION SCREEN.',B.DESC,64); {DESC}
+ 3:EDITSETS;
+ 4:EDITGAME;
5:EDITLVL;
END; {HANDLE}
UNTIL III=-1; III:=0;
PROCEDURE OPENFILE;
BEGIN
- ASSIGN(F,FILENAME+'.LVL'); {$I-} RESET(F,1); {$I+} IF IORESULT=0THEN BEGIN
- {$I-} BLOCKREAD(F,B,SIZEOF(B)); BLOCKREAD(F,L,SIZEOF(L)); {$I+}
- IF(IORESULT<>0)OR(B.HEAD<>HEADEDIT)THEN BEGIN
- TEXTCOLOR(15); WRITE('WARNING!! '); TEXTCOLOR(7);
- WRITELN('ERROR READING LEVEL FILE!');
- CLOSE(F); HALT;
- END; {ERROR}
- IF B.VERSION<>HEADVERSION THEN BEGIN
- WRITELN('CAN''T READ FILE VERSION ',B.VERSION,'.'); CLOSE(F); HALT;
- END; {VERSION}
- END; {OPEN EXISTING FILE}
+ ASSIGN(F,FILENAME+'.LVL'); {$I-} RESET(F,1); {$I+} I:=IORESULT;
+ IF I<>0THEN BEGIN
+ TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT);
+ WRITELN('FAILED OPENING LEVEL FILE!'); WRITELN('RUNTIME ERROR #',I); HALT;
+ END; {CAN'T OPEN}
+ {$I-} BLOCKREAD(F,B,SIZEOF(B));
+ FOR I:=1TO B.LTOTAL DO BLOCKREAD(F,L[I],SIZEOF(L[I])); {$I+}
+ IF IORESULT<>0THEN BEGIN
+ TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT);
+ WRITELN('ERROR READING LEVEL FILE!');
+ CLOSE(F); HALT;
+ END; {ERROR}
+ IF B.HEAD<>HEADEDIT THEN BEGIN
+ TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT);
+ WRITELN('WRONG HEADER!');
+ CLOSE(F); HALT;
+ END; {ERROR}
+ IF B.VERSION<>HEADVERSION THEN BEGIN
+ WRITELN('CAN''T READ FILE VERSION ',B.VERSION,'.'); CLOSE(F); HALT;
+ END; {VERSION}
+ FSIZE:=FILESIZE(F); CLOSE(F);
END; {OPENFILE}
PROCEDURE FILESAVE;
BEGIN
ASSIGN(F,FILENAME+'.LVL'); REWRITE(F,1);
- BLOCKWRITE(F,B,SIZEOF(B)); BLOCKWRITE(F,L,SIZEOF(L)); CLOSE(F);
+ BLOCKWRITE(F,B,SIZEOF(B));
+ FOR I:=1TO B.LTOTAL DO BLOCKWRITE(F,L[I],SIZEOF(L[I]));
+ CLOSE(F);
END; {FILESAVE}
PROCEDURE FILECOMP;
VAR ISTACK:WORD;
+PROCEDURE SAVELEVEL(SAVEWORMS:BYTE);
+BEGIN
+ IF II>B.LSINGLE THEN BEGIN
+ BLOCKWRITE(FF,L[II].NAME[1],LENGTH(L[II].NAME)); I:=0; BLOCKWRITE(FF,I,1);
+ END; {LEVEL_NAME}
+ BLOCKWRITE(FF,L[II].PEAS,1);
+ BLOCKWRITE(FF,L[II].DELAY,1);
+ BLOCKWRITE(FF,L[II].GROWTH,1);
+ BLOCKWRITE(FF,L[II].BSIZE,1);
+ BLOCKWRITE(FF,L[II].SPRSIZE,1);
+ BLOCKWRITE(FF,L[II].SPRITE,L[II].SPRSIZE);
+ BLOCKWRITE(FF,L[II].NRBALLS,1);
+ BLOCKWRITE(FF,L[II].BALLS,L[II].NRBALLS*3);
+ BLOCKWRITE(FF,L[II].W[1].D,3*SAVEWORMS); {D,X,Y}
+ BLOCKWRITE(FF,L[II].FIELDX,2); {FIELDX,FIELDY}
+ IF II>B.LSINGLE+B.LMULTI THEN BLOCKWRITE(FF,L[II].FLAG1Y,2); {FLAG1Y,FLAG1X}
+ IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BLOCKWRITE(FF,L[II].FLAG2Y,2); {FLAG2Y,FLAG2X}
+ FOR I:=1TO L[II].NROBJ DO BEGIN
+ IF L[II].OBJ[I].TYP>0THEN BEGIN
+ BLOCKWRITE(FF,L[II].OBJ[I].TYP,4);
+ IF(L[II].OBJ[I].TYP=3)AND(L[II].OBJ[I].Y2+L[II].OBJ[I].Y1=255)THEN BEGIN
+ I4:=MAX(57,L[II].FIELDY)-L[II].OBJ[I].Y1; BLOCKWRITE(FF,I4,1);
+ END {OFFSCREEN} ELSE BLOCKWRITE(FF,L[II].OBJ[I].Y2,1);
+ END; {VALID}
+ END; {OBJS}
+ I:=0; BLOCKWRITE(FF,I,1); {LVL END}
+END; {COMMONSAVELEVEL}
BEGIN
ASSIGN(FF,FILENAME+'.86S'); REWRITE(FF,1);
BLOCKWRITE(FF,HEAD86S[1],ORD(HEAD86S[0])); {86S-HEADER}
- ISTACK:=$12+6+B.SPRSIZE+ORD(B.NAME[0])+24+2+
- 2*(1+(B.LTO[2]-B.LFROM[2])+(B.LTO[3]-B.LFROM[3]));
- FOR II:=1TO B.LTOTAL DO INC(ISTACK,L[II].SIZE);
- BLOCKWRITE(FF,ISTACK,2); {FILE LENGTH (x+$12)}
+ ISTACK:=COMPSIZE; BLOCKWRITE(FF,ISTACK,2); {FILE LENGTH (x+$12)}
I:=$000C; BLOCKWRITE(FF,I,2); {STRING ID}
DEC(ISTACK,$10); BLOCKWRITE(FF,ISTACK,2); {DATA LENGTH (x+2)}
I:=$080C; BLOCKWRITE(FF,I,2); {STRING ID}
- S:='wormlvl1'; BLOCKWRITE(FF,S[1],8); {PRGNAME}
+ S:=LOCS(FILENAME); FOR I:=ORD(S[0])+1TO 8DO S[I]:=#0;
+ BLOCKWRITE(FF,S[1],8); {PRGNAME}
BLOCKWRITE(FF,ISTACK,2); {DATA LENGTH (x+2)}
DEC(ISTACK,2); BLOCKWRITE(FF,ISTACK,2); {PROG LENGTH (x)}
C:='w'; BLOCKWRITE(FF,C,1); {WORM ID}
- I:=92; BLOCKWRITE(FF,I,1); {VERSION}
- BLOCKWRITE(FF,B.NAME[0],ORD(B.NAME[0])+1); {TITLE}
- I:=1+B.SPRSIZE+2; FOR II:=1TO B.LTOTAL DO I:=I+L[II].SIZE;
+ I:=HEADOUTVERSION; BLOCKWRITE(FF,I,1); {VERSION}
+ I:=0; BLOCKWRITE(FF,B.NAME[1],ORD(B.NAME[0])); {TITLE}
+ BLOCKWRITE(FF,I,1); {STRING TERMINATOR #0}
+ BLOCKWRITE(FF,B.DESC[1],ORD(B.DESC[0])); {DESCRIPTION} BLOCKWRITE(FF,I,1);
+ I:=1+B.SPRSIZE+ORD(B.ENDDATA[0])+1;
+ FOR II:=B.LFROM[1]TO B.LSINGLE+B.LMULTI DO I:=I+L[II].SIZE;
+ IF B.LFROM[8]>0THEN {RACE LEVELS}
+ FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]
+ DO I:=I+L[II].SIZE;
+ IF B.LFROM[9]>0THEN {CTF LEVELS}
+ FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[9]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[9]
+ DO I:=I+L[II].SIZE;
BLOCKWRITE(FF,I,2); {SIZE}
- I2:=0; I:=$F401+B.SPRSIZE;
+ I2:=0; I:=PC+1+B.SPRSIZE;
IF B.LSINGLE=0THEN BLOCKWRITE(FF,I2,2)ELSE BEGIN
- BLOCKWRITE(FF,I,2); FOR II:=1TO B.LSINGLE DO INC(I,L[II].SIZE);
- END; {SINGLLVLS} INC(I,2);
+ BLOCKWRITE(FF,I,2); FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE);
+ END; {SINGLLVLS} INC(I,1+ORD(B.ENDDATA[0]));
ISTACK:=I; FOR II:=2TO 7DO BEGIN
I:=ISTACK; IF B.LFROM[II]=0THEN I:=0 ELSE
FOR III:=B.LSINGLE TO B.LSINGLE+B.LFROM[II]-2DO
INC(I,L[III].SIZE);
BLOCKWRITE(FF,I,2);
END; {LOC}
- FOR II:=B.LSINGLE+B.LMULTI+1TO B.LTOTAL DO INC(ISTACK,L[II].SIZE);
- I:=0; IF B.LCTF=0THEN BLOCKWRITE(FF,I,2)ELSE BLOCKWRITE(FF,ISTACK,2);
+ FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO INC(ISTACK,L[II].SIZE);
+ I:=0; IF B.LRACE=0THEN BLOCKWRITE(FF,I,2)ELSE BLOCKWRITE(FF,ISTACK,2);
+ FOR II:=B.LSINGLE+B.LMULTI+1TO B.LSINGLE+B.LMULTI+B.LRACE DO INC(ISTACK,L[II].SIZE);
+ IF B.LCTF=0THEN BLOCKWRITE(FF,I,2)ELSE BLOCKWRITE(FF,ISTACK,2);
- BLOCKWRITE(FF,B.LSINGLE,1);
- FOR II:=2TO 7DO BEGIN
+ FOR II:=1TO 9DO BEGIN
IF B.LFROM[II]=0THEN I:=0 ELSE I:=B.LTO[II]-B.LFROM[II]+1;
BLOCKWRITE(FF,I,1);
END; {NR}
- BLOCKWRITE(FF,B.LCTF,1);
+ I:=42; BLOCKWRITE(FF,I,1); {UNUSED}
BLOCKWRITE(FF,B.SPRSIZE,1);
BLOCKWRITE(FF,B.SPRITE,B.SPRSIZE);
- FOR II:=1TO B.LSINGLE DO BEGIN
- BLOCKWRITE(FF,L[II].PEAS,1);
- BLOCKWRITE(FF,L[II].DELAY,1);
- BLOCKWRITE(FF,L[II].GROWTH,1);
- BLOCKWRITE(FF,L[II].BSIZE,1);
- BLOCKWRITE(FF,L[II].SPRSIZE,1);
- BLOCKWRITE(FF,L[II].SPRITE,L[II].SPRSIZE);
- BLOCKWRITE(FF,L[II].NRBALLS,1);
- BLOCKWRITE(FF,L[II].BALLS,L[II].NRBALLS*3);
- BLOCKWRITE(FF,L[II].W[1].D,3); {D,X,Y}
- BLOCKWRITE(FF,L[II].FIELDX,2); {FIELDX,FIELDY}
- FOR I:=1TO L[II].NROBJ DO BEGIN
- BLOCKWRITE(FF,L[II].OBJ[I].TYP,5);
- END; {OBJS}
- I:=0; BLOCKWRITE(FF,I,1); {LVL END}
- END; {LEVELS SINGLEPL}
-
+ IF B.LFROM[1]>0THEN
+ FOR II:=B.LFROM[1]TO B.LSINGLE DO SAVELEVEL(1); {LEVELS SINGLEPL}
I:=255; BLOCKWRITE(FF,I,1); {END}
- I:=$C9; BLOCKWRITE(FF,I,1); {RET}
-
- FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO BEGIN
- BLOCKWRITE(FF,L[II].PEAS,1);
- BLOCKWRITE(FF,L[II].DELAY,1);
- BLOCKWRITE(FF,L[II].GROWTH,1);
- BLOCKWRITE(FF,L[II].BSIZE,1);
- BLOCKWRITE(FF,L[II].SPRSIZE,1);
- BLOCKWRITE(FF,L[II].SPRITE,L[II].SPRSIZE);
- BLOCKWRITE(FF,L[II].NRBALLS,1);
- BLOCKWRITE(FF,L[II].BALLS,L[II].NRBALLS*3);
- BLOCKWRITE(FF,L[II].W[1].D,3*4); {D,X,Y}
- BLOCKWRITE(FF,L[II].FIELDX,2); {FIELDX,FIELDY}
- FOR I:=1TO L[II].NROBJ DO BEGIN
- BLOCKWRITE(FF,L[II].OBJ[I].TYP,5);
- END; {OBJS}
- I:=0; BLOCKWRITE(FF,I,1); {LVL END}
- END; {LEVELS MULTIPL}
-
- I:=0; FOR II:=1TO 1+(B.LTO[2]-B.LFROM[2])+(B.LTO[3]-B.LFROM[3])DO
- BLOCKWRITE(FF,I,2); {HI}
+ BLOCKWRITE(FF,B.ENDDATA[1],ORD(B.ENDDATA[0])); {CODE}
+
+ IF B.LMULTI>0THEN
+ FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO SAVELEVEL(4); {LEVELS MULTIPL}
+
+ IF B.LFROM[8]>0THEN
+ FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]
+ DO SAVELEVEL(4); {LEVELS RACE}
+
+ IF B.LFROM[9]>0THEN
+ FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[9]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[9]
+ DO SAVELEVEL(4); {LEVELS CTF}
+
+ I:=0; I2:=0; IF B.LFROM[1]>0THEN INC(I2);
+ IF B.LFROM[2]>0THEN I2:=I2+1+B.LTO[2]-B.LFROM[2];
+ IF B.LFROM[3]>0THEN I2:=I2+1+B.LTO[3]-B.LFROM[3];
+ FOR II:=1TO I2 DO BEGIN BLOCKWRITE(FF,I,2); BLOCKWRITE(FF,B.HINAME,3); END; {HI}
SEEK(FF,$37); I2:=0; I:=0;
REPEAT INC(I,I2); BLOCKREAD(FF,I2,1,ISTACK); UNTIL ISTACK<>1;
BLOCKWRITE(FF,I,2); {CHECKSUM}
END; {FILECOMP}
-PROCEDURE EDITQUIT;
+PROCEDURE EDITFILE(STARTUP:BOOLEAN);
+VAR SFILE:SEARCHREC;
+ FILESFOUND:INTEGER;
+ SFILES:ARRAY[3..9]OF STRING[12];
BEGIN
+ FINDFIRST('*.LVL',$3F,SFILE); FILESFOUND:=2;
+ WHILE DOSERROR=0DO BEGIN
+ INC(FILESFOUND); IF FILESFOUND>9THEN BREAK;
+ SFILES[FILESFOUND]:=SFILE.NAME; FINDNEXT(SFILE);
+ END; {FIND MORE LEVELS}
+ IF STARTUP THEN BEGIN
+ TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': ALL DONE!');
+ DELAY(250);
+ END; {STARTUP TEXT}
REPEAT
- EDITTITLE(0,'CHOOSE LEVELFILE');
- TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITELN(': COMPILE, SAVE AND QUIT');
- TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITE(': SAVE ');
- TEXTCOLOR(3); WRITELN(FILENAME,'.LVL');
- TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITELN(': QUIT');
- TEXTCOLOR(14); WRITE('4'); TEXTCOLOR(7); WRITELN(': CONTINUE EDITING');
- WRITELN; III:=EDITMENU(4);
+ TITLEBAR(0,'CHOOSE LEVELFILE');
+ TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE NEW FILE');
+ TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT EXISTING');
+ FOR III:=3TO FILESFOUND DO BEGIN
+ TEXTCOLOR(C_MENU); WRITE(III); TEXTCOLOR(C_TEXT); WRITE(': EDIT');
+ TEXTCOLOR(C_VALUE); WRITELN(' ',SFILES[III]);
+ END; {DISPLAY FOUND FILES}
+
+ III:=EDITMENU(FILESFOUND,2);
CASE III OF
+ -1:HALT;
1:BEGIN
- FILESAVE; FILECOMP; HALT;
- END; {COMPILE}
- 2:FILESAVE;
- 3:BEGIN
- WRITE('REALLY QUIT '); TEXTCOLOR(8); WRITE('[Y/N]'); TEXTCOLOR(7);
- WRITE('> '); REPEAT C:=READKEY; UNTIL(UPCASE(C)='Y')OR(UPCASE(C)='N');
- IF UPCASE(C)='N'THEN III:=0;
- END; {QUIT}
- 4:EDITMAIN;
+ FILENAME:=INPUTSTR('ENTER LEVELNAME','8 CHARS MAX; W/O EXTENSION','WORMLVL1',8);
+ IF NOT FILEEXIST(FILENAME+'.LVL')THEN FILESAVE;
+ OPENFILE;
+ END; {NEW}
+ 2:BEGIN
+ FILENAME:=INPUTSTR('ENTER FILENAME','W/O EXTENSION','WORMLVL1',8);
+ OPENFILE;
+ END; {EDIT}
+ 3..9:BEGIN
+ WINDOW(1,15,40,24);
+ FILENAME:=COPY(SFILES[III],1,POS('.LVL',SFILES[III])-1); OPENFILE;
+ END; {WORMLVL1}
END; {HANDLE}
- UNTIL III=3; HALT;
-END; {EDITQUIT}
+ UNTIL III<>0;
+END; {EDITFILE}
-PROCEDURE EDITFILE;
+PROCEDURE EDITQUIT;
BEGIN
REPEAT
- EDITTITLE(0,'CHOOSE LEVELFILE');
- TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITELN(': CREATE NEW FILE');
- TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITELN(': EDIT EXISTING');
- TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITE(': EDIT'); TEXTCOLOR(3);
- WRITELN(' WORMLVL1.LVL'); TEXTCOLOR(7); WRITELN; III:=EDITMENU(3);
+ TITLEBAR(0,'CHOOSE LEVELFILE');
+ TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': COMPILE, SAVE AND QUIT');
+ TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': SAVE ');
+ TEXTCOLOR(C_VALUE); WRITELN(FILENAME,'.LVL');
+ TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': QUIT');
+ TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': LOAD');
+ TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITELN(': CONTINUE EDITING');
+ WRITELN; III:=EDITMENU(5,0);
CASE III OF
1:BEGIN
- WRITE('ENTER FILENAME '); TEXTCOLOR(8); WRITE('(max.8 chars)');
- TEXTCOLOR(7); WRITE('> '); READLN(FILENAME); EDITMAIN; EDITQUIT;
- END; {NEW}
- 2:BEGIN
- WRITE('ENTER LEVELNAME '); TEXTCOLOR(8); WRITE('(w/o extension)');
- TEXTCOLOR(7); WRITE('> '); READLN(FILENAME); OPENFILE; EDITMAIN;
- EDITQUIT;
- END; {EDIT}
+ FILESAVE; FILECOMP; QUITOK:=TRUE;
+ END; {COMPILE}
+ 2:FILESAVE;
3:BEGIN
- FILENAME:='WORMLVL1'; OPENFILE; EDITMAIN; EDITQUIT;
- END; {WORMLVL1}
+ WINDOW(1,8,40,8);
+ WRITE('REALLY QUIT '); TEXTCOLOR(C_SUB); WRITE('[Y/N]'); TEXTCOLOR(C_TEXT);
+ WRITE('> '); REPEAT C:=READKEY; UNTIL(UPCASE(C)='Y')OR(UPCASE(C)='N');
+ IF UPCASE(C)='Y'THEN QUITOK:=TRUE;
+ END; {QUIT}
+ 4:EDITFILE(FALSE); {LOAD}
END; {HANDLE}
- UNTIL III=-1;
-END; {EDITFILE}
+ UNTIL(III>=4)OR(QUITOK);
+END; {EDITQUIT}
BEGIN
- CLRSCR;
- TEXTCOLOR(1); WRITE('���������������������������<');
- TEXTCOLOR(14); WRITE(' WormEdit � ');
- TEXTCOLOR(15); WRITE(' by SHIAR ');
- TEXTCOLOR(1); WRITE('>�����������������������������');
- EDITFILE;
+ {$M 16384,0,655360}
+ MAINTITLE; TITLEBAR(0,'LOADING WORMEDIT...');
+ TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': WORMEDIT STARTED');
+ TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': MOUSE... ');
+ MOUSE(0,I,I2,MX,MY); IF I<>0THEN BEGIN USEMOUSE:=TRUE; WRITELN(' FOUND');
+ END {MOUSE} ELSE BEGIN
+ WRITELN(' NOT FOUND!'); USEMOUSE:=FALSE; REPEAT UNTIL KEYPRESSED;
+ END; {NO_MOUSE}
+ TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SEARCHING FOR LEVELS');
+ EDITFILE(TRUE); REPEAT EDITMAIN; EDITQUIT; UNTIL QUITOK=TRUE;
+ WINDOW(1,1,80,25); TEXTCOLOR(7); TEXTBACKGROUND(0); CLRSCR;
+ WRITE('EXITING '); TEXTCOLOR(15); WRITE('WORMEDIT 0.53 BY SHIAR');
+ TEXTCOLOR(7); WRITELN('.'); WRITELN('BYEBYE..'); WRITELN;
END.
\ No newline at end of file
git.shiar.nl / wormy.git / blobdiff