X-Git-Url: http://git.shiar.nl/wormy.git/blobdiff_plain/37987191d672dcf172ea678dbb999acbb22ba181..ececf2878a429d97287102bc8315f05c8aa423f1:/wormedit.pas diff --git a/wormedit.pas b/wormedit.pas index ce8b3fc..98979d8 100644 --- a/wormedit.pas +++ b/wormedit.pas @@ -1,6 +1,7 @@ -USES CRT,SHIAR; +USES CRT,SHIAR,DOS; TYPE ONELEVEL = RECORD + ID:STRING[22]; NAME:STRING[22]; SIZE:BYTE; PEAS,DELAY:BYTE; @@ -25,37 +26,39 @@ TYPE ONELEVEL = RECORD CONST GAMETYPE:ARRAY[1..8]OF STRING[12] = ('SINGLEPLAYER','PEAWORM','TRON','DEATHMATCH', - 'FOODMATCH','LINKPLAY','RACE','CTF'); + 'FOODMATCH','TIMEMATCH','RACE','CTF'); OBJTYPE:ARRAY[0..4]OF STRING[8] = ('NONE','LINE','FAT LINE','BAR','CIRCLE'); - ENDTYPE:ARRAY[-1..0]OF STRING[8] = - ('MESSAGE','NONE'); + ENDTYPE:ARRAY[0..1]OF STRING[8] = + ('NONE','MESSAGE'); HEAD86S:STRING[53] = ('**TI86**'+#$1A+#$A+#0+ {HEADER} - 'Levelfile for Worm 0á93 made with WormEdit'); {COMMENT} + 'Levelfile for Worm 0á95 made with WormEdit'); {COMMENT} - HEADEDIT = ('WormEditá93'+#0+'LVL'); - HEADVERSION = 93; + HEADEDIT = ('WormEditá95'+#0+'LVL'); + HEADVERSION = 95; B:RECORD HEAD:ARRAY[1..15]OF CHAR; VERSION:BYTE; NAME:STRING[32]; - LSINGLE,LMULTI,LCTF,LTOTAL:BYTE; + LSINGLE,LMULTI,LRACE,LCTF,LTOTAL:BYTE; LFROM:ARRAY[1..8]OF BYTE; LTO:ARRAY[1..8]OF BYTE; SPRSIZE:BYTE; SPRITE:ARRAY[1..8]OF BYTE; ENDTYPE:INTEGER; - ENDDATA:STRING[255]; + ENDSTR:STRING[255]; + ENDDATA:STRING[255]; + HINAME:ARRAY[1..3]OF CHAR; END {B} = (HEAD:HEADEDIT; VERSION:HEADVERSION; NAME:'Custom Worm Level'; - LSINGLE:0; LMULTI:0; LCTF:0; LTOTAL:0; + LSINGLE:0; LMULTI:0; LRACE:0; LCTF:0; LTOTAL:0; LFROM:(0,0,0,0,0,0,0,0); LTO:(0,0,0,0,0,0,0,0); SPRSIZE:4; @@ -64,85 +67,259 @@ CONST GAMETYPE:ARRAY[1..8]OF STRING[12] = 11110000 11110000 01100000} - ENDTYPE:0); + ENDTYPE:1; + ENDSTR:''; + ENDDATA:#$C9; + HINAME:'WOR'); LVLPOS:BYTE = 1; OBJPOS:BYTE = 1; + C_BAR = 15; + CB_BAR = 4; + 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 ONELEVEL; LTEMP:ONELEVEL; + FSIZE:LONGINT; FILENAME:STRING[8]; + LVLDISP:BYTE; PROCEDURE MAINTITLE; BEGIN - SETTEXT; WINDOW(1,1,80,25); {TEXTBACKGROUND(0);} CLRSCR; - TEXTCOLOR(1); WRITE('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ<'); + SETTEXT; SETPAL(3,44,44,32); + WINDOW(1,1,80,25); TEXTBACKGROUND(CB_TEXT); CLRSCR; + TEXTCOLOR(CB_BAR); WRITE('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ<'); TEXTCOLOR(14); WRITE(' WormEdit á '); TEXTCOLOR(15); WRITE(' by SHIAR '); - TEXTCOLOR(1); WRITE('>ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'); - WINDOW(41,2,41,25); TEXTCOLOR(7); TEXTBACKGROUND(0); WRITE(CC('³',23)); - WINDOW(1,25,80,25); TEXTBACKGROUND(1); CLRSCR; - GOTOXY(75,1); TEXTCOLOR(0); WRITE('v0.93'); TEXTBACKGROUND(0); + 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(75,1); TEXTCOLOR(0); WRITE('v0.94'); 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=0THEN BEGIN ZZ:=ZZ-(YY SHL 1)+2; DEC(YY); END; + 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 DISPMAP(OBJ:INTEGER); -VAR OBJ2:INTEGER; +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,VGA); + 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,VGA); - LINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2,COL,VGA); - 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,VGA); - LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2+1,COL,VGA); + 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,VGA); + 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 {---} + I:=7; WHILE I<=255DO BEGIN LINE(I,0,I,191,2,WHERE); INC(I,8); END; {GRID} + I:=0; WHILE I<=191DO BEGIN LINE(0,I,255,I,2,WHERE); INC(I,8); END; + I:=127; WHILE I<=255DO BEGIN LINE(I,0,I,191,6,WHERE); INC(I,128); END; + I:=0; WHILE I<=191DO BEGIN LINE(0,I,255,I,6,WHERE); INC(I,56); END; + + FOR I:=2TO L[II].FIELDX-2DO BEGIN + IF I MOD 2=0THEN PUTPIXEL(I,L[II].FIELDY SHR 1,4,WHERE) + ELSE PUTPIXEL(I,L[II].FIELDY SHR 1,2,WHERE); + END; {MID} + IF L[II].FIELDY MOD 2=0THEN + FOR I:=2TO L[II].FIELDX-2DO BEGIN + IF I MOD 2=1THEN PUTPIXEL(I,L[II].FIELDY SHR 1-1,4,WHERE) + ELSE PUTPIXEL(I,L[II].FIELDY SHR 1-1,2,WHERE); + END; {DOUBLEMID} + FOR I:=2TO L[II].FIELDY-2DO BEGIN + IF I MOD 2=0THEN PUTPIXEL(L[II].FIELDX SHR 1,I,4,WHERE) + ELSE PUTPIXEL(L[II].FIELDX SHR 1,I,2,WHERE); + END; {CENTER} + IF L[II].FIELDX MOD 2=0THEN + FOR I:=2TO L[II].FIELDY-2DO BEGIN + IF I MOD 2=1THEN PUTPIXEL(L[II].FIELDX SHR 1-1,I,4,WHERE) + ELSE PUTPIXEL(L[II].FIELDX SHR 1-1,I,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,22,WHERE); + LINE(L[II].FLAG1Y,L[II].FLAG1X,L[II].FLAG1Y,L[II].FIELDY-1,24,WHERE); + LINE(0,L[II].FLAG1X,L[II].FIELDX-1,L[II].FLAG1X,16,WHERE); + END; {RACE} + IF II<=B.LSINGLE THEN I:=1 ELSE I:=4; + FOR I:=1TO I DO BEGIN + CIRCLE(L[II].W[I].X,L[II].W[I].Y,2,14); + LINE(L[II].W[I].X,L[II].W[I].Y,L[II].W[I].X+ROUND(SIN(L[II].W[I].D/128*PI)*20), + L[II].W[I].Y+ROUND(COS(L[II].W[I].D/128*PI)*20),16,WHERE); + LINE(L[II].W[I].X,L[II].W[I].Y,L[II].W[I].X+ROUND(SIN((L[II].W[I].D-13)/128*PI)*15), + L[II].W[I].Y+ROUND(COS((L[II].W[I].D-13)/128*PI)*15),14,WHERE); + LINE(L[II].W[I].X,L[II].W[I].Y,L[II].W[I].X+ROUND(SIN((L[II].W[I].D+13)/128*PI)*15), + L[II].W[I].Y+ROUND(COS((L[II].W[I].D+13)/128*PI)*15),14,WHERE); + PUTPIXEL(L[II].W[I].X,L[II].W[I].Y,0,WHERE); + END; {WORMS} + IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN + IF L[II].SPRSIZE>0THEN I:=L[II].SPRSIZE ELSE I:=B.SPRSIZE; + DRAW4PIX(L[II].FLAG1X,L[II].FLAG1Y,I,I,22); {FLAGS} + DRAW4PIX(L[II].FLAG2X,L[II].FLAG2Y,I,I,24); + END; {DRAW FLAGS} + LINE(0,0,255,0,8,WHERE); LINE(0,1,255,1,8,WHERE); {BORDERS} + LINE(0,2,0,190-3,8,WHERE); LINE(1,2,1,190-3,8,WHERE); + LINE(MAX(126,L[II].FIELDX-2),2,MAX(126,L[II].FIELDX-2),L[II].FIELDY-1,8,WHERE); + LINE(MAX(127,L[II].FIELDX-1),2,MAX(127,L[II].FIELDX-1),L[II].FIELDY-1,8,WHERE); + LINE(0,L[II].FIELDY-2,L[II].FIELDX-1,L[II].FIELDY-2,8,WHERE); + LINE(0,L[II].FIELDY-1,L[II].FIELDX-1,L[II].FIELDY-1,8,WHERE); + FOR OBJ2:=1TO L[II].NROBJ DO IF OBJ2<>OBJ THEN DISPOBJ(OBJ2,10); {OBJS} + IF(OBJ>0)AND(OBJ<=L[II].NROBJ)THEN DISPOBJ(OBJ,12); {HIGHLIGHTED_OBJ} + FOR OBJ2:=1TO L[II].NRBALLS DO + DRAW4PIX(L[II].BALLS[OBJ2].X,L[II].BALLS[OBJ2].Y,2,2,12); {BOUNCIES} +END; {DISPMAP} + +PROCEDURE DISPMAPMCGA(OBJ:INTEGER); BEGIN SETMCGA; - LINE(0,56,255,56,8,VGA); LINE(0,113,255,113,8,VGA); - LINE(0,170,255,170,8,VGA); {LINE(0,227,255,227,8,VGA);} - LINE(127,0,127,170,8,VGA); LINE(255,0,255,170,8,VGA); - LINE(0,0,255,0,15,VGA); LINE(0,1,255,1,15,VGA); - LINE(0,2,0,190-3,15,VGA); LINE(1,2,1,190-3,15,VGA); - LINE(L[II].FIELDX-2,2,L[II].FIELDX-2,L[II].FIELDY-1,15,VGA); - LINE(L[II].FIELDX-1,2,L[II].FIELDX-1,L[II].FIELDY-1,15,VGA); - LINE(0,L[II].FIELDY-2,L[II].FIELDX-1,L[II].FIELDY-2,15,VGA); - LINE(0,L[II].FIELDY-1,L[II].FIELDX-1,L[II].FIELDY-1,15,VGA); - FOR OBJ2:=1TO L[II].NROBJ DO IF OBJ2<>OBJ THEN DISPOBJ(OBJ2,7); - IF(OBJ>0)AND(OBJ<=L[II].NROBJ)THEN DISPOBJ(OBJ,14); - REPEAT UNTIL READKEY<>#0; - MAINTITLE; -END; {DISPMAP} + SETPAL(2,16,0,0); {GRID} SETPAL(4,24,0,0); {MID} SETPAL(6,32,0,0); {MAINGRID} + SETPAL(8,63,63,63); {BORDER} + SETPAL(10,48,48,48); {OBJ} SETPAL(12,63,63,20); {HL_OBJ} SETPAL(14,63,0,0); {STARTPOS} + SETPAL(16,63,16,0); {STLN}SETPAL(22,0,0,63); {FLAG1} SETPAL(24,0,63,0); {FLAG2} + + SETPAL(1,32,0,0); {BACK} + SETPAL(3,40,0,0); {GRID} SETPAL(3,44,0,0); {GRID} SETPAL(5,48,0,0); {MAINGRID} SETPAL(9,63,0,0); {BORDER} + SETPAL(11,63,0,0); {OBJ} SETPAL(13,63,0,0); {HL_OBJ} SETPAL(15,63,0,0); {STARTPOS} + SETPAL(17,52,0,0); {STLN}SETPAL(23,63,0,0); {FLAG1} SETPAL(25,63,0,0); {FLAG2} + DISPMAP(OBJ,PTR(VGA,0)); +END; {DISPMAPMCGA} + +PROCEDURE DISP1MAP(OBJ:INTEGER); +VAR MXX,MYY:WORD; + M1,M2:BOOLEAN; +{TYPE SCRN = ARRAY[0..199,0..319]OF BYTE; +VAR VIRT:^SCRN; + I1,I1X,I1Y:BYTE; +BEGIN + NEW(VIRT); + FOR I:=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);} +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 LINE1XMAX THEN MX:=XMAX; + IF MYYMAX THEN MY:=YMAX; + IF M2 THEN BEGIN MX:=XDEF; MY:=YDEF; END; {R_BUTTON} + 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)); + UNTIL(KEYPRESSED)OR(M1); MAINTITLE; +END; {MAPOBJ} FUNCTION NR(VALUE:LONGINT):STRING; VAR NRSTR:STRING; @@ -153,125 +330,154 @@ END; {NR} PROCEDURE HELPBAR(HELPPAGE:BYTE); BEGIN WINDOW(41,14,80,24); - IF HELPPAGE=0THEN BEGIN - TEXTCOLOR(7); WRITE('³'); WINDOW(42,14,80,24); CLRSCR; EXIT; + IF HELPPAGE=0 THEN BEGIN + TEXTCOLOR(C_GRID); WRITE('³'); WINDOW(42,14,80,24); CLRSCR; EXIT; END; {REMOVE} - TEXTBACKGROUND(1); TEXTCOLOR(7); WRITE('³'); TEXTCOLOR(15); - WRITE('HELP',' ':39-4); WINDOW(42,15,80,24); TEXTBACKGROUND(0); TEXTCOLOR(7); + 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 OR 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 UP AND DOWN TO VIEW ALL LEVELS'); + 6:WRITE('PRESS UP AND DOWN TO VIEW ALL OBJECTS'); END; {TEXT TO DISPLAY} END; {HELPBAR} PROCEDURE DISPLEVELS; BEGIN - WINDOW(42,3,80,13); TEXTBACKGROUND(0); CLRSCR; - IF B.LTOTAL<1THEN WRITELN('NONE PRESENT')ELSE + 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 - WRITE(II); TEXTCOLOR(3); WRITELN(': '+L[II].NAME); TEXTCOLOR(7); + 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} 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} +END; {DISPOBJECTS} + FUNCTION EDITMENU(EDITMENUMAX,HELPPAGE:BYTE):SHORTINT; VAR EDITOK:SHORTINT; BEGIN EDITOK:=0; REPEAT WINDOW(39,1,39,1); GOTOXY(1,1); REPEAT UNTIL KEYPRESSED; C:=READKEY; - IF C=' 'THEN EDITOK:=10; {10} - IF(C>='1')AND(C<=CHR(EDITMENUMAX+48))THEN EDITOK:=ORD(C)-48; {1..<=9} - IF(C=#27)OR(C='-')OR(C='+')THEN EDITOK:=-1; {EXIT} + IF C=' 'THEN EDITOK:=10 {10} ELSE + IF(C>='1')AND(C<=CHR(EDITMENUMAX+48))THEN EDITOK:=ORD(C)-48 {1..<=9} 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(LVLPOS1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END; {DOWN} + IF HELPPAGE=5THEN BEGIN + IF(C=#80)AND(LVLPOS1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {UP} ELSE + END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN + IF(C=#80)AND(OBJPOS1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {UP} ELSE + END; {OBJS DISPED} IF C=#59THEN HELPBAR(HELPPAGE); END; {EXTENDED} - IF UPCASE(C)='H'THEN HELPBAR(HELPPAGE); UNTIL EDITOK<>0; EDITMENU:=EDITOK; END; {EDITMENU} FUNCTION COMPSIZE:WORD; +PROCEDURE COMPLEVEL; +BEGIN + INC(I,L[II].SIZE); + FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(I,5); +END; {SIZE OF LEVEL II} BEGIN - I:=$32+B.SPRSIZE+ORD(B.NAME[0])+2; - IF B.LFROM[2]>0THEN I:=I+((1+B.LTO[2]-B.LFROM[2])SHL 1); - IF B.LFROM[3]>0THEN I:=I+((1+B.LTO[3]-B.LFROM[3])SHL 1); - FOR II:=1TO B.LTOTAL DO BEGIN - INC(I,L[II].SIZE); - FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(I,5); - END; {CALC LEVELS} + I:=$31+B.SPRSIZE+ORD(B.NAME[0])+5; + IF B.LFROM[2]>0THEN I:=I+((1+B.LTO[2]-B.LFROM[2])*5); + IF B.LFROM[3]>0THEN I:=I+((1+B.LTO[3]-B.LFROM[3])*5); + IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO COMPLEVEL; {SP} + IF B.LMULTI>0THEN FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO COMPLEVEL; {MP} + IF B.LFROM[7]>0THEN + FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7]DO COMPLEVEL; {CTF} + IF B.LFROM[8]>0THEN + FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8]DO COMPLEVEL; {CTF} + +{MAKE SP_END CODE} + CASE B.ENDTYPE OF + 1:B.ENDDATA:=#$21+#$F4+#$00+#$C3+#$37+#$4A+#$CD+#$AA+#$55+B.ENDSTR; + {LD HL,MSG\JP _PUTS\.DB MSG} + ELSE B.ENDDATA:=#$C9; {RET} + END; {ENDTYPE} + INC(I,ORD(B.ENDDATA[0])); + COMPSIZE:=I; END; {COMPSIZE} PROCEDURE TITLEBAR(BAR:SHORTINT;TITLNAME:STRING); BEGIN HELPBAR(0); WINDOW(41,2,42,2); - IF BAR=0THEN TEXTBACKGROUND(0)ELSE TEXTBACKGROUND(1); - TEXTCOLOR(7); WRITE('³'); WINDOW(42,2,80,13); TEXTBACKGROUND(0); CLRSCR; - TEXTCOLOR(15); TEXTBACKGROUND(1); + 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',' ':39-6); DISPLEVELS; + WRITE('LEVELS',' ':39-6); LVLDISP:=1; DISPLEVELS; END; {1:SINGLVLS} 2:BEGIN - WRITE('LEVEL OBJECTS',' ':39-13); TEXTCOLOR(7); TEXTBACKGROUND(0); - IF L[II].NROBJ<1THEN WRITELN('NONE')ELSE - FOR I4:=1TO L[II].NROBJ DO BEGIN - WRITE(I4); TEXTCOLOR(3); - IF L[II].OBJ[I4].TYP>0THEN 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(7); - END; {DISP OBJS} - END; {2:SINGLVLS} + WRITE('LEVEL OBJECTS',' ':39-13); DISPOBJECTS; + END; {2:OBJS} 3:BEGIN - WRITE('LEVEL INFO',' ':39-10); TEXTCOLOR(7); TEXTBACKGROUND(0); + WRITE('LEVEL INFO',' ':39-10); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); WRITE('LEVEL #',II); - IF II>B.LSINGLE THEN WRITELN(' MP #',II-B.LSINGLE)ELSE WRITELN; + 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',' ':35-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); TEXTCOLOR(7); TEXTBACKGROUND(0); - IF B.LTOTAL<1THEN WRITELN('NONE PRESENT')ELSE - FOR II:=1TO B.LTOTAL DO BEGIN - IF II>B.LSINGLE THEN WRITE(II-B.LSINGLE)ELSE WRITE(II); - TEXTCOLOR(3); WRITELN(': '+L[II].NAME); TEXTCOLOR(7); - END; {DISP LEVELS} + WRITE('LEVELS',' ':39-6); LVLDISP:=2; DISPLEVELS; END; {5:LEVELS} END; {BAR} WINDOW(1,2,40,24); - TEXTBACKGROUND(1); TEXTCOLOR(15); WRITE(TITLNAME,' ':40-ORD(TITLNAME[0])); - WINDOW(1,3,40,24); TEXTBACKGROUND(0); CLRSCR; + 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(1); TEXTCOLOR(15); WRITE('INPUT',' ':40-5); - WINDOW(1,15,40,24); TEXTBACKGROUND(0); CLRSCR; + TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE('INPUT',' ':40-5); + WINDOW(1,15,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR; REPEAT - TEXTCOLOR(7); WRITELN(ISTR); TEXTCOLOR(8); WRITELN(ICOM); - TEXTCOLOR(8); WRITELN('ENTER FOR DEFAULT:'); WRITELN(IDEF); - TEXTCOLOR(7); WRITE('> '); READLN(IVAL); + 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} @@ -300,14 +506,14 @@ END; {READLN} VAR IVAL:INTEGER; IOK:BOOLEAN; BEGIN WINDOW(1,14,40,24); - TEXTBACKGROUND(1); TEXTCOLOR(15); WRITE('INPUT',' ':40-5); - WINDOW(1,15,40,24); TEXTBACKGROUND(0); CLRSCR; + TEXTBACKGROUND(CB_BAR); TEXTCOLOR(C_BAR); WRITE('INPUT',' ':40-5); + WINDOW(1,15,40,24); TEXTBACKGROUND(CB_TEXT); CLRSCR; REPEAT - TEXTCOLOR(7); WRITELN(ISTR); TEXTCOLOR(8); WRITELN(ICOM); - TEXTCOLOR(8); WRITE('(RANGE '); TEXTCOLOR(7); WRITE(IMIN); TEXTCOLOR(8); - WRITE(' TO '); TEXTCOLOR(7); WRITE(IMAX); TEXTCOLOR(8); - WRITE('; DEFAULT VALUE '); TEXTCOLOR(7); WRITE(IDEF); TEXTCOLOR(8); - WRITELN(')'); TEXTCOLOR(7); WRITE('> '); IVAL:=READ; IF IVAL=-1THEN IVAL:=IDEF; + 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; @@ -317,25 +523,36 @@ PROCEDURE EDITGAME; LABEL EDITGAME1,EDITGAME2; BEGIN REPEAT - TITLEBAR(5,'EDIT GAMETYPES'); TEXTCOLOR(14); WRITE('1'); - TEXTCOLOR(7); WRITE(': SINGLEPLAYER '); - TEXTCOLOR(3); IF B.LSINGLE=0THEN WRITELN('(NO LEVELS)') + 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)') + FOR II:=2TO 6DO BEGIN + 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 WRITE('(NO LEVELS)')ELSE WRITE('(',B.LCTF,')'); + TEXTCOLOR(C_MENU); WRITE('7'); TEXTCOLOR(C_TEXT); WRITE(': RACE '); TEXTCOLOR(C_VALUE); + IF B.LFROM[7]=0THEN WRITELN('(NO LEVELS)')ELSE WRITELN('(',B.LTO[7]-B.LFROM[7]+1,' OF ',B.LRACE,')'); + TEXTCOLOR(C_MENU); WRITE('8'); TEXTCOLOR(C_TEXT); WRITE(': CTF '); TEXTCOLOR(C_VALUE); + IF B.LFROM[8]=0THEN WRITE('(NO LEVELS)')ELSE WRITE('(',B.LTO[8]-B.LFROM[8]+1,' OF ',B.LCTF,')'); - III:=EDITMENU(8,0); + III:=EDITMENU(8,5); IF III=1THEN BEGIN B.LFROM[1]:=INPUTINT('ENTER LEVELS TO SKIP','USE THIS TO TEMPORARILY REMOVE THE FIRSTFEW LEVELS', - 0,0,B.LSINGLE-1); INC(B.LFROM[1]); + 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', - 1,1,B.LSINGLE+1-B.LFROM[1]); B.LTO[1]:=B.LTO[1]+B.LFROM[1]-1; - END {SINGLEPLAYER} ELSE IF III>0THEN BEGIN + 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=7THEN BEGIN + B.LFROM[7]:=INPUTINT('ENTER STARTING LEVEL','USUALLY 1 UNLESS YOU WANT TO SKIP LEVELS0=NO LEVELS',0,1,B.LRACE); + IF B.LFROM[7]>0THEN + B.LTO[7]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[7],B.LCTF,B.LCTF); + END {RACE} 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.LCTF); + IF B.LFROM[8]>0THEN + B.LTO[8]:=INPUTINT('ENTER LAST LEVEL','',B.LFROM[8],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 @@ -350,28 +567,32 @@ LABEL EDITOBJ1; BEGIN REPEAT TITLEBAR(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('(',ABS(III),')'); + 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 - IF L[II].OBJ[I].TYP>0THEN TEXTCOLOR(14)ELSE TEXTCOLOR(7); WRITE('2'); TEXTCOLOR(7); + 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(3); WRITELN(' (',L[II].OBJ[I].X1,',',L[II].OBJ[I].Y1,')'); + 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(14)ELSE TEXTCOLOR(7); WRITE('3'); TEXTCOLOR(7); + 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(3); CASE L[II].OBJ[I].TYP OF + 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} - TEXTCOLOR(14); WRITE('4'); TEXTCOLOR(7); WRITELN(': PREVIEW'); - TEXTCOLOR(14); WRITE('5'); TEXTCOLOR(7); + 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} - IF III<>0THEN III:=EDITMENU(5,0)ELSE III:=EDITMENU(1,0); + IF III<>0THEN III:=EDITMENU(7,6)ELSE III:=EDITMENU(1,6); CASE III OF 1:BEGIN S:=''; FOR I4:=0TO 4DO S:=S+NR(I4)+': '+OBJTYPE[I4]+CC(' ',37-ORD(OBJTYPE[I4,0])); @@ -401,34 +622,53 @@ BEGIN END; {BOX} END; {NORMAL OBJECT} END; {TYPE} - 2:BEGIN + 2,3:BEGIN 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=4 THEN 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,0,L[II].OBJ[I].Y1,255); + IF III=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,0,L[II].OBJ[I].Y1,255); + END {ENTER} ELSE BEGIN + MAPOBJ(I,0,L[II].OBJ[I].X1,255,0,L[II].OBJ[I].Y1,255); + L[II].OBJ[I].X1:=MX; L[II].OBJ[I].Y1:=MY; + END; {SEL} 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 III=4THEN 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); + END {ENTER} ELSE BEGIN + MAPOBJ(I,2,L[II].OBJ[I].X1,L[II].FIELDX-I4,2,L[II].OBJ[I].Y1,L[II].FIELDY-I4); + L[II].OBJ[I].X1:=MX; L[II].OBJ[I].Y1:=MY; + END; {SEL} 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 + 4,5: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}); + IF III=5THEN BEGIN + MAPOBJ(I,0,16,255,L[II].OBJ[I].Y1,L[II].OBJ[I].Y1,L[II].OBJ[I].Y1); + L[II].OBJ[I].X2:=ABS(INTEGER(L[II].OBJ[I].X1)-MX); {&&&&} + END {SEL} ELSE + 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 III=4THEN 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); + END {ENTER} ELSE BEGIN + MAPOBJ(I,2,L[II].OBJ[I].X2,L[II].FIELDX-I4,2,L[II].OBJ[I].Y2,L[II].FIELDY-I4); + L[II].OBJ[I].X2:=MX; L[II].OBJ[I].Y2:=MY; + END; {SEL} IF L[II].OBJ[I].TYP=3THEN BEGIN IF L[II].OBJ[I].Y20THEN TEXTCOLOR(14)ELSE TEXTCOLOR(7); - WRITE('1'); TEXTCOLOR(7); WRITELN(': EDIT OBJECT'); - IF L[II].NROBJ>0THEN TEXTCOLOR(14)ELSE TEXTCOLOR(7); - WRITE('2'); TEXTCOLOR(7); WRITELN(': DELETE OBJECT'); - TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITELN(': CREATE OBJECT'); - TEXTCOLOR(14); WRITE('4'); TEXTCOLOR(7); WRITE(': VIEW OBJECT'); - - III:=EDITMENU(4,0); + 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); WRITE(': VIEW OBJECT'); + + III:=EDITMENU(4,6); CASE III OF 1:IF L[II].NROBJ>0THEN BEGIN I:=INPUTINT('EDIT WHICH OBJECT','',1,1,L[II].NROBJ); @@ -478,7 +718,7 @@ BEGIN END; {CREATE} 4:BEGIN I4:=INPUTINT('ENTER OBJECT TO HIGHLIGHT','0 FOR NONE',0,0,L[II].NROBJ); - DISPMAP(I4); + DISP1MAP(I4); END; {DISP} END; {HANDLE} UNTIL III=-1; III:=0; @@ -521,13 +761,13 @@ PROCEDURE EDITSPR; BEGIN REPEAT TITLEBAR(0,'EDIT SPRITE'); - TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': SPRITE SIZE '); - TEXTCOLOR(3); IF L[II].SPRSIZE=0THEN WRITELN('(',B.SPRSIZE,')') + 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(7); WRITE('2: 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} @@ -548,13 +788,13 @@ PROCEDURE EDITBOUNCIES; BEGIN REPEAT TITLEBAR(0,'EDIT BALLS IN LEVEL #'+NR(II)); - TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITELN(': CREATE BALL'); - TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITELN(': DELETE BALL'); + 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(14); WRITE(III+2); TEXTCOLOR(7); WRITE(': BALL #',III,' ('); - TEXTCOLOR(3); WRITE(L[II].BALLS[III].X); TEXTCOLOR(7); WRITE(','); - TEXTCOLOR(3); WRITE(L[II].BALLS[III].Y); TEXTCOLOR(7); WRITE(') DIR '); - TEXTCOLOR(3); WRITELN(L[II].BALLS[III].D); + 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); @@ -583,11 +823,11 @@ BEGIN 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; {WORMS} @@ -612,50 +852,92 @@ BEGIN 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*3+L[II].SPRSIZE+L[II].NROBJ*5; - IF II>B.LSINGLE THEN INC(L[II].SIZE,9); + 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(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)') + 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); WRITE('(',L[II].NROBJ,')'); + 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(10,0); + III:=EDITMENU(9,0); CASE III OF - 1:L[II].NAME:=INPUTSTR('ENTER DESCRIPTION FOR THIS LEVEL', - 'THIS WON''T BE DISPLAYED DURING THE GAME,IT''S JUST TO MAKE EDITING EASIER',L[II].NAME,22); {DESCR} - 2:L[II].PEAS:=INPUTINT('ENTER TOTAL NUMBER OF PEAS','TOO MANY PEAS WILL MAKE A LEVEL BORING',1,L[II].PEAS,255); - 3:L[II].DELAY:=INPUTINT('ENTER NEW DELAY','0=FASTEST; 4=AVERAGE; 10=SLOW',0,L[II].DELAY,255); - 4:BEGIN - L[II].GROWTH:=INPUTINT('ENTER GROWTH PER PEA','0=NO GROWTH; 15=NORMAL',0,L[II].GROWTH,255); - L[II].BSIZE:=INPUTINT('ENTER WORM BEGIN SIZE','15=NORMAL; TOO SHORT WORMS WILL BE HARD TO PLAY WITH', - 1,L[II].BSIZE,255); - END; {GROWTH} - 5:EDITSPR; - 6:EDITBOUNCIES; - 7:EDITWORMS; - 8:BEGIN + 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]; @@ -663,6 +945,7 @@ BEGIN 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} @@ -674,8 +957,8 @@ BEGIN L[II].OBJ[L[II].NROBJ].Y1:=L[II].FIELDY; END; {PUT BAR} END; {FIELD} - 9:EDITOBJS; - 10:DISPMAP(0); + 8:EDITOBJS; + 9:DISP1MAP(0); END; {HANDLE} UNTIL III=-1; III:=0; END; {EDITLEVEL} @@ -685,18 +968,19 @@ LABEL EDITHLVL1,EDITHLVL2; BEGIN REPEAT TITLEBAR(1,'EDIT LEVELS'); - IF B.LTOTAL>0THEN TEXTCOLOR(14)ELSE TEXTCOLOR(7); - WRITE('1'); TEXTCOLOR(7); WRITELN(': EDIT LEVEL'); - IF B.LTOTAL>0THEN TEXTCOLOR(14)ELSE TEXTCOLOR(7); - WRITE('2'); TEXTCOLOR(7); WRITELN(': COPY LEVEL'); - IF B.LTOTAL>0THEN TEXTCOLOR(14)ELSE TEXTCOLOR(7); - WRITE('3'); TEXTCOLOR(7); WRITELN(': MOVE LEVEL'); - IF B.LTOTAL>0THEN TEXTCOLOR(14)ELSE TEXTCOLOR(7); - WRITE('4'); TEXTCOLOR(7); WRITELN(': DELETE LEVEL'); - TEXTCOLOR(14); WRITE('5'); TEXTCOLOR(7); WRITELN(': CREATE SINGLEPLAYER LEVEL'); - TEXTCOLOR(14); WRITE('6'); TEXTCOLOR(7); WRITELN(': CREATE MULTIPLAYER LEVEL'); - TEXTCOLOR(7); WRITE('7'); TEXTCOLOR(7); WRITELN(': CREATE CTF LEVEL'); - TEXTCOLOR(7); WRITELN; III:=EDITMENU(6,5); + 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_TEXT); WRITELN; III:=EDITMENU(8,5); CASE III OF 1:IF B.LTOTAL>0THEN BEGIN @@ -711,13 +995,19 @@ 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 BEGIN - FOR I:=2TO 7DO IF B.LTO[I]=B.LMULTI THEN BEGIN + 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; {ALL GAMETYPES} - INC(B.LMULTI); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL; - END; {MP} - L[II].NAME:='Copy of '+L[II].NAME; + 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); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL; + 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 @@ -725,10 +1015,12 @@ BEGIN IF II<>0THEN BEGIN II:=INPUTINT('NEW LEVEL NUMBER','ENTER 0 TO CANCEL',0,0,B.LTOTAL); IF((I<=B.LSINGLE)AND(II<=B.LSINGLE)) - OR((I>B.LSINGLE)AND(II>B.LSINGLE))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; + 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} @@ -739,31 +1031,37 @@ BEGIN 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 + FOR I:=2TO 6DO 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} + IF B.LTO[7]>B.LMULTI+B.LRACE THEN B.LTO[7]:=B.LMULTI+B.LRACE; + IF B.LFROM[7]>B.LTO[7]THEN B.LFROM[7]:=B.LTO[7]; + IF B.LTO[8]>B.LTOTAL THEN B.LTO[8]:=B.LTOTAL; + IF B.LFROM[8]>B.LTO[8]THEN B.LFROM[8]:=B.LTO[8]; END; {CONFIRMED} END; {} END; {DELETE} 5:BEGIN - INC(B.LSINGLE); INC(B.LTOTAL); II:=B.LSINGLE; + INC(B.LSINGLE); INC(B.LTOTAL); II:=B.LSINGLE; + IF B.LTO[1]=0THEN B.LTO[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} 6:BEGIN - FOR I:=2TO 7DO IF B.LTO[I]=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; {} 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); + FOR I:=B.LSINGLE+B.LMULTI+B.LCTF DOWNTO II+1DO L[I]:=L[I-1]; + 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; @@ -772,83 +1070,110 @@ BEGIN 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[7]); IF B.LFROM[7]=0THEN INC(B.LFROM[7]); + L[II].ID:='Track #'+NR(II); L[II].NAME:=ZERO(B.LRACE,2); + 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:=$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 RACE} + 8:BEGIN + INC(B.LCTF); INC(B.LTOTAL); II:=B.LTOTAL; + INC(B.LTO[8]); IF B.LFROM[8]=0THEN INC(B.LFROM[8]); + L[II].ID:='Field #'+NR(II); L[II].NAME:=ZERO(B.LCTF,2); + 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:=$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} END; {HANDLE} UNTIL III=-1; III:=0; END; {EDITLVL} -PROCEDURE EDITDSPR; +PROCEDURE EDITSETS; BEGIN REPEAT - TITLEBAR(0,'EDIT DEFAULT SPRITE'); - TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': SPRITE SIZE '); - TEXTCOLOR(3); WRITELN('(',B.SPRSIZE,')'); - FOR I:=1TO B.SPRSIZE DO BEGIN - TEXTCOLOR(14); WRITE(I+1); TEXTCOLOR(7); WRITE(': EDIT '); TEXTCOLOR(3); - WRITELN(BYTE2STR(B.SPRITE[I],B.SPRSIZE)); - END; {DISP SPRITE} - - III:=EDITMENU(1+B.SPRSIZE,0); - IF III=1THEN 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 {SIZE} ELSE IF III>1THEN BEGIN - S:=INPUTSTR('ENTER NEW LINE #'+NR(III-1)+' OF SPRITE','EXAMPLE: 100101 = XúúXúX', - ZERO(BYTE2BIN(B.SPRITE[III-1]),8),8); - B.SPRITE[III-1]:=STR2BYTE(S); - END; {APP} - UNTIL III=-1; III:=0; -END; {EDITDSPR} - -PROCEDURE EDITSPEND; -BEGIN - REPEAT - TITLEBAR(0,'SINGLEPLAYER ENDING'); - TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': END TYPE '); - TEXTCOLOR(3); WRITELN(' (',ENDTYPE[B.ENDTYPE],')'); TEXTCOLOR(14); + 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:BEGIN - WRITE('2'); TEXTCOLOR(7); WRITE(': EDIT MESSAGE'); - TEXTCOLOR(3); WRITE(' (',COPY(B.ENDDATA,1,18)); - IF LENGTH(B.ENDDATA)>18THEN WRITELN('...)')ELSE WRITELN(')'); + 1: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(C_MENU); WRITE(I+4); TEXTCOLOR(C_TEXT); WRITE(': EDIT '); TEXTCOLOR(C_VALUE); + WRITELN(BYTE2STR(B.SPRITE[I],B.SPRSIZE)); + END; {DISP SPRITE} - III:=EDITMENU(2,0); + III:=EDITMENU(4+B.SPRSIZE,0); CASE III OF 1:BEGIN - FOR II:=0TO 1DO WRITE(NR(II)+': '+ENDTYPE[-II]+CC(' ',40-ORD(ENDTYPE[-II,0]))); + 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 + FOR II:=0TO 1DO WRITE(NR(II)+': '+ENDTYPE[II]+CC(' ',40-ORD(ENDTYPE[II,0]))); B.ENDTYPE:=INPUTINT('ENTER NEW END TYPE',S,0,0,1); - IF B.ENDTYPE=-1THEN B.ENDDATA:='Congratulations!!'; - END; {TITLE} - 2:IF B.ENDTYPE=-1THEN - B.ENDDATA:=INPUTSTR('ENTER NEW END MESSAGE','MAX 255 CHARS','Congratulations!!',255); + IF B.ENDTYPE=1THEN B.ENDSTR:='Congratulations!!'; + END; {ENDTYPE} + 3:BEGIN + IF B.ENDTYPE=1THEN + 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 TITLEBAR(4,UPCS(B.NAME)); - 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); WRITE(' (',B.LTOTAL,')'); - - III:=EDITMENU(5,3); + TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': EDIT TITLE'); + TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DEFAULTS'); + TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': GAME TYPES'); + TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': LEVELS'); + TEXTCOLOR(C_VALUE); WRITE(' (',B.LTOTAL,')'); + + III:=EDITMENU(4,3); CASE III OF 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:EDITDSPR; + 2:EDITSETS; 3:EDITGAME; - 4:EDITSPEND; - 5:EDITLVL; + 4:EDITLVL; END; {HANDLE} UNTIL III=-1; III:=0; END; {EDITMAIN} @@ -857,30 +1182,37 @@ PROCEDURE OPENFILE; BEGIN ASSIGN(F,FILENAME+'.LVL'); {$I-} RESET(F,1); {$I+} I:=IORESULT; IF I<>0THEN BEGIN - TEXTCOLOR(15); WRITE('WARNING!! '); TEXTCOLOR(7); + 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)); BLOCKREAD(F,L,SIZEOF(L)); {$I+} + {$I-} BLOCKREAD(F,B,SIZEOF(B)); + FOR I:=1TO B.LTOTAL DO BLOCKREAD(F,L[I],SIZEOF(L[I])); {$I+} IF(IORESULT<>0)OR(B.HEAD<>HEADEDIT)THEN BEGIN - TEXTCOLOR(15); WRITE('WARNING!! '); TEXTCOLOR(7); + TEXTCOLOR(C_HI); WRITE('WARNING!! '); TEXTCOLOR(C_TEXT); 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} + 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); @@ -891,6 +1223,8 @@ BEGIN 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); @@ -910,7 +1244,8 @@ BEGIN DEC(ISTACK,$10); BLOCKWRITE(FF,ISTACK,2); {DATA LENGTH (x+2)} I:=$080C; BLOCKWRITE(FF,I,2); {STRING ID} - S:=LOCS(FILENAME); 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)} @@ -918,40 +1253,58 @@ BEGIN I:=HEADVERSION; BLOCKWRITE(FF,I,1); {VERSION} BLOCKWRITE(FF,B.NAME[1],ORD(B.NAME[0])); {TITLE} I:=0; BLOCKWRITE(FF,I,1); {STRING TERMINATOR #0} - I:=1+B.SPRSIZE+2; FOR II:=B.LFROM[1]TO B.LTOTAL DO I:=I+L[II].SIZE; + I:=1+B.SPRSIZE+2; + FOR II:=B.LFROM[1]TO B.LSINGLE+B.LMULTI DO I:=I+L[II].SIZE; + IF B.LFROM[7]>0THEN {RACE LEVELS} + FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7] + DO I:=I+L[II].SIZE; + IF B.LFROM[8]>0THEN {CTF LEVELS} + FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8] + DO I:=I+L[II].SIZE; BLOCKWRITE(FF,I,2); {SIZE} I2:=0; I:=$F401+B.SPRSIZE; IF B.LSINGLE=0THEN BLOCKWRITE(FF,I2,2)ELSE BEGIN BLOCKWRITE(FF,I,2); FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE); - END; {SINGLLVLS} INC(I,2); - ISTACK:=I; FOR II:=2TO 7DO BEGIN + END; {SINGLLVLS} INC(I,1+ORD(B.ENDDATA[0])); + ISTACK:=I; FOR II:=2TO 6DO 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); - FOR II:=1TO 7DO BEGIN + FOR II:=1TO 8DO 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); BLOCKWRITE(FF,B.SPRSIZE,1); BLOCKWRITE(FF,B.SPRITE,B.SPRSIZE); - FOR II:=B.LFROM[1]TO B.LSINGLE DO SAVELEVEL(1); {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} + BLOCKWRITE(FF,B.ENDDATA[1],ORD(B.ENDDATA[0])); {CODE} - FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO SAVELEVEL(4); {LEVELS MULTIPL} + IF B.LMULTI>0THEN + FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO SAVELEVEL(4); {LEVELS MULTIPL} + + IF B.LFROM[7]>0THEN + FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7] + DO SAVELEVEL(4); {LEVELS RACE} + + IF B.LFROM[8]>0THEN + FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8] + DO SAVELEVEL(4); {LEVELS CTF} I:=0; I2:=1; 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 BLOCKWRITE(FF,I,2); {HI} + 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; @@ -962,11 +1315,11 @@ PROCEDURE EDITQUIT; BEGIN REPEAT TITLEBAR(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'); + 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(': CONTINUE EDITING'); WRITELN; III:=EDITMENU(4,0); CASE III OF 1:BEGIN @@ -975,43 +1328,57 @@ BEGIN 2:FILESAVE; 3:BEGIN WINDOW(1,8,40,8); - WRITE('REALLY QUIT '); TEXTCOLOR(8); WRITE('[Y/N]'); TEXTCOLOR(7); + 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 III:=0; + IF UPCASE(C)='Y'THEN HALT; END; {QUIT} - 4:EDITMAIN; END; {HANDLE} - UNTIL III=3; HALT; + UNTIL III=4; END; {EDITQUIT} PROCEDURE EDITFILE; +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} REPEAT TITLEBAR(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); - WRITE(' WORMLVL1.LVL'); - - III:=EDITMENU(3,2); + 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 FILENAME:=INPUTSTR('ENTER LEVELNAME','8 CHARS MAX; W/O EXTENSION','WORMLVL1',8); IF NOT FILEEXIST(FILENAME+'.LVL')THEN FILESAVE; - OPENFILE; EDITMAIN; EDITQUIT; + OPENFILE; END; {NEW} 2:BEGIN FILENAME:=INPUTSTR('ENTER FILENAME','W/O EXTENSION','WORMLVL1',8); - OPENFILE; EDITMAIN; EDITQUIT; + OPENFILE; END; {EDIT} - 3:BEGIN - FILENAME:='WORMLVL1'; OPENFILE; EDITMAIN; EDITQUIT; + 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=-1; + UNTIL III<>0; END; {EDITFILE} BEGIN + {M 16384,0,655360} + {$M 16384,0,655360} MAINTITLE; EDITFILE; + REPEAT EDITMAIN; EDITQUIT; UNTIL TRUE=FALSE; END. \ No newline at end of file