X-Git-Url: http://git.shiar.nl/wormy.git/blobdiff_plain/35ed571c26de86d6e1978ac907dd359080c1dc00..13669f5724604c1b6caf61a1341ed9b6f59a0665:/wormedit.pas diff --git a/wormedit.pas b/wormedit.pas index 98979d8..a9ed81f 100644 --- a/wormedit.pas +++ b/wormedit.pas @@ -1,3 +1,16 @@ +{WORMEDIT 0.53 OR SOMETHING... BY SHIAR + ----------------------------------w00t} + +{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} + +{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} + +{ALLCAPS BECAUSE. AND IT MAKES IT HARDER TO UNDERSTAND THE CODE} + +{ENJOY! >:} + USES CRT,SHIAR,DOS; TYPE ONELEVEL = RECORD @@ -19,64 +32,74 @@ TYPE ONELEVEL = RECORD FLAG1Y,FLAG1X:BYTE; FLAG2Y,FLAG2X:BYTE; NROBJ:BYTE; - OBJ:ARRAY[1..32]OF RECORD + OBJ:ARRAY[1..128]OF RECORD TYP:SHORTINT;X1,Y1,X2,Y2:BYTE; END; {OBJ} END; {ONELEVEL} -CONST GAMETYPE:ARRAY[1..8]OF STRING[12] = +CONST GAMETYPE:ARRAY[1..9]OF STRING[12] = ('SINGLEPLAYER','PEAWORM','TRON','DEATHMATCH', - 'FOODMATCH','TIMEMATCH','RACE','CTF'); + 'FOODMATCH','MULTIFOODM','TIMEMATCH','RACE','CTF'); OBJTYPE:ARRAY[0..4]OF STRING[8] = ('NONE','LINE','FAT LINE','BAR','CIRCLE'); - ENDTYPE:ARRAY[0..1]OF STRING[8] = - ('NONE','MESSAGE'); + 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á95 made with WormEdit'); {COMMENT} + 'Wormy.97 Levelfile made using WormEdit0.53'); {COMMENT} - HEADEDIT = ('WormEditá95'+#0+'LVL'); - HEADVERSION = 95; + HEADEDIT = ('WormEdit053'+#0+'LVL'); + HEADVERSION = 53; + HEADOUTVERSION = 97; + PC = $F080; {F400} B:RECORD 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..8]OF BYTE; - LTO:ARRAY[1..8]OF BYTE; + LFROM:ARRAY[1..10]OF BYTE; + LTO:ARRAY[1..10]OF BYTE; SPRSIZE:BYTE; SPRITE:ARRAY[1..8]OF BYTE; ENDTYPE:INTEGER; ENDSTR:STRING[255]; - ENDDATA:STRING[255]; + ENDDATA:STRING[255]; + RES2:STRING[255]; HINAME:ARRAY[1..3]OF CHAR; END {B} = (HEAD:HEADEDIT; VERSION:HEADVERSION; NAME:'Custom Worm Level'; + 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); - LTO:(0,0,0,0,0,0,0,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:1; + ENDTYPE:0; ENDSTR:''; ENDDATA:#$C9; + RES2:''; HINAME:'WOR'); LVLPOS:BYTE = 1; OBJPOS:BYTE = 1; + BBPOS :BYTE = 1; C_BAR = 15; - CB_BAR = 4; + CB_BAR = 1; C_MENU = 14; CB_TEXT = 0; C_TEXT = 7; @@ -94,6 +117,8 @@ VAR I,I2:WORD; L:ARRAY[1..64]OF ONELEVEL; LTEMP:ONELEVEL; + USEMOUSE:BOOLEAN; + QUITOK:BOOLEAN; FSIZE:LONGINT; FILENAME:STRING[8]; @@ -101,7 +126,7 @@ VAR I,I2:WORD; PROCEDURE MAINTITLE; BEGIN - SETTEXT; SETPAL(3,44,44,32); + 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 á '); @@ -109,7 +134,7 @@ BEGIN 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); + GOTOXY(74,1); TEXTCOLOR(0); WRITE('v0.53á'); TEXTBACKGROUND(CB_TEXT); END; {MAINTITLE} PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER); @@ -138,8 +163,60 @@ BEGIN {JUST_A_SIMPLE_LINE_PROCEDURE} 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=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:INTEGER; +VAR OBJ2,TI:INTEGER; PROCEDURE CIRCLE(X,Y,Z,COL:BYTE); VAR XX,YY,ZZ:INTEGER; BEGIN @@ -179,86 +256,95 @@ BEGIN 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); + 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 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); + 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 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); + 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 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); + 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,22,WHERE); - LINE(L[II].FLAG1Y,L[II].FLAG1X,L[II].FLAG1Y,L[II].FIELDY-1,24,WHERE); + 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 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); + 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 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); + 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,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} + 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,12); {BOUNCIES} + DRAW4PIX(L[II].BALLS[OBJ2].X,L[II].BALLS[OBJ2].Y,2,2,20); {BOUNCIES} END; {DISPMAP} -PROCEDURE DISPMAPMCGA(OBJ:INTEGER); +PROCEDURE DISPMCGACOMMON; BEGIN SETMCGA; - 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} + 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:WORD; - M1,M2:BOOLEAN; +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 I:=0 TO 199DO FOR I2:=0 TO 319DO VIRT^[I,I2]:=0; DISPMAP(OBJ,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); @@ -274,51 +360,148 @@ BEGIN 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 LINE117THEN 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 - 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; - UNTIL KEYPRESSED; MAINTITLE; + 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,XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER); -VAR M1,M2:BOOLEAN; +PROCEDURE MAPOBJ(OBJ,OBJSUB:INTEGER); +VAR M1,M2,M3:BOOLEAN; + MXX,MYY:WORD; + XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER; BEGIN - DISPMAPMCGA(OBJ); CLRKEY; + 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 - GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;} - IF MXXMAX 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; + 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 MXXMAX THEN MX:=XMAX; + IF MYYMAX 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:LONGINT):STRING; @@ -340,9 +523,11 @@ BEGIN 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'); + 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; @@ -357,6 +542,7 @@ BEGIN 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; @@ -375,55 +561,85 @@ BEGIN 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:SHORTINT; +VAR EDITOK,MENUPOS:SHORTINT; BEGIN - EDITOK:=0; REPEAT - WINDOW(39,1,39,1); GOTOXY(1,1); REPEAT UNTIL KEYPRESSED; C:=READKEY; + MENUPOS:=1; EDITOK:=0; + WINDOW(2,3,3,20); GOTOXY(1,1); TEXTCOLOR(C_MENU); WRITE('>>'); + REPEAT + GOTOXY(1,1); REPEAT UNTIL KEYPRESSED; C:=READKEY; 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>='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>'); + 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=#80)AND(LVLPOS1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {UP} ELSE + IF(C=#77)AND(LVLPOS1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {L} 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=#77)AND(OBJPOS1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {L} ELSE + END {OBJS DISPED} ELSE IF HELPPAGE=6THEN BEGIN + IF(C=#77)AND(BBPOS1)THEN BEGIN DEC(BBPOS); DISPBOUNCIES; END {L} ELSE + END; {BOUNCIES DISPED} IF C=#59THEN HELPBAR(HELPPAGE); END; {EXTENDED} - UNTIL EDITOK<>0; EDITMENU:=EDITOK; + UNTIL EDITOK<>0; EDITMENU:=EDITOK; TEXTCOLOR(C_TEXT); 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:=$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} - + I:=B.SPRSIZE+1; + IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE); {SP} {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} + 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])); + 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} + + 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} @@ -527,31 +743,31 @@ BEGIN 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 6DO BEGIN + FOR II:=2TO 7DO 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(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,')'); + 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(8,5); + 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=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); + 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.LCTF,B.LCTF); + 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); @@ -597,78 +813,51 @@ BEGIN 1:BEGIN 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); - 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+ - ' DO NOT MAKE CIRCLES LEFT OF THE SCREEN!',0,(L[II].FIELDX-1)SHR 1,255); - L[II].OBJ[I].Y1:=INPUTINT('ENTER Y',S+ - ' DON''T TRY Y<0: MIGHT CRASH CALC!!!',0,(L[II].FIELDY-1)SHR 1,255); - L[II].OBJ[I].X2:=INPUTINT('ENTER SIZE',S,3, - MIN(L[II].FIELDY-3,L[II].FIELDX-3)SHR 2,MIN(L[II].FIELDY-3,L[II].FIELDX-3)SHR 1); + 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:=INPUTINT('ENTER X1',S,2,(L[II].FIELDX-1)SHR 1,L[II].FIELDX-I4); - L[II].OBJ[I].Y1:=INPUTINT('ENTER Y1',S,2,(L[II].FIELDY-1)SHR 1,L[II].FIELDY-I4); - L[II].OBJ[I].X2:=INPUTINT('ENTER X2',S,2,(L[II].FIELDX-1)SHR 1,L[II].FIELDX-I4); - L[II].OBJ[I].Y2:=INPUTINT('ENTER Y2',S,2,(L[II].FIELDY-1)SHR 1,L[II].FIELDY-I4); - IF L[II].OBJ[I].TYP=3THEN BEGIN - IF L[II].OBJ[I].Y20THEN BEGIN - 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; + 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} - 4,5:BEGIN + 3:MAPOBJ(I,0); + 4:BEGIN IF L[II].OBJ[I].TYP=4 THEN BEGIN - 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].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 - 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} + 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].Y20THEN 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'); + TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': PLACE OBJECT'); + TEXTCOLOR(C_MENU); WRITE('5'); TEXTCOLOR(C_TEXT); WRITE(': VIEW OBJECT'); - III:=EDITMENU(4,6); + III:=EDITMENU(5,6); CASE III OF 1:IF L[II].NROBJ>0THEN BEGIN I:=INPUTINT('EDIT WHICH OBJECT','',1,1,L[II].NROBJ); @@ -717,6 +908,16 @@ 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} @@ -787,7 +988,7 @@ END; {EDITSPR} PROCEDURE EDITBOUNCIES; BEGIN REPEAT - TITLEBAR(0,'EDIT BALLS IN LEVEL #'+NR(II)); + 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 @@ -901,6 +1102,7 @@ PROCEDURE EDITLEVEL; BEGIN REPEAT 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); @@ -952,7 +1154,7 @@ BEGIN 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:=255-L[II].FIELDY; + 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} @@ -980,7 +1182,8 @@ BEGIN 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); + TEXTCOLOR(C_MENU); WRITE('9'); TEXTCOLOR(C_TEXT); WRITELN(': PREVIEW LEVELS'); + TEXTCOLOR(C_TEXT); WRITELN; III:=EDITMENU(9,5); CASE III OF 1:IF B.LTOTAL>0THEN BEGIN @@ -1003,7 +1206,8 @@ BEGIN 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; + 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} @@ -1014,7 +1218,7 @@ 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((I<=B.LSINGLE)AND(II<=B.LSINGLE)) + 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 @@ -1034,20 +1238,20 @@ BEGIN 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 6DO BEGIN + 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} - 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.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} 5:BEGIN INC(B.LSINGLE); INC(B.LTOTAL); II:=B.LSINGLE; - IF B.LTO[1]=0THEN B.LTO[1]:=1; + 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].ID:='Level #'+NR(II); L[II].PEAS:=8; L[II].DELAY:=4; L[II].GROWTH:=15; L[II].BSIZE:=15; @@ -1056,11 +1260,11 @@ BEGIN EDITLEVEL; END; {CREATE SP} 6:BEGIN - FOR I:=2TO 6DO IF B.LTO[I]=B.LMULTI THEN 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.LSINGLE+B.LMULTI+B.LCTF DOWNTO II+1DO L[I]:=L[I-1]; + FOR I:=B.LTOTAL 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; @@ -1073,24 +1277,23 @@ BEGIN 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]); + 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:=4; L[II].GROWTH:=15; + 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:=8; L[II].FLAG2X:=128-8-B.SPRSIZE; - L[II].FLAG1Y:=27; L[II].FLAG2Y:=27; + 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[8]); IF B.LFROM[8]=0THEN INC(B.LFROM[8]); + 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:=4; L[II].GROWTH:=15; + 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; @@ -1101,6 +1304,10 @@ BEGIN 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} @@ -1114,7 +1321,7 @@ BEGIN TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITE(': END TYPE '); TEXTCOLOR(C_VALUE); WRITELN('(',ENDTYPE[B.ENDTYPE],')'); CASE B.ENDTYPE OF - 1:BEGIN + 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(')'); @@ -1124,7 +1331,8 @@ BEGIN 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); + 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} @@ -1135,12 +1343,13 @@ BEGIN 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.ENDSTR:='Congratulations!!'; + 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=1THEN + IF B.ENDTYPE>0THEN B.ENDSTR:=INPUTSTR('ENTER NEW END MESSAGE','MAX 255 CHARS','Congratulations!!',255); END; {ENDCONF} 4:BEGIN @@ -1162,18 +1371,21 @@ BEGIN REPEAT 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(': DEFAULTS'); - TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': GAME TYPES'); - TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITE(': LEVELS'); + 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(4,3); + III:=EDITMENU(5,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:EDITSETS; - 3:EDITGAME; - 4:EDITLVL; + 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; END; {EDITMAIN} @@ -1187,11 +1399,16 @@ BEGIN 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<>0)OR(B.HEAD<>HEADEDIT)THEN BEGIN + 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} @@ -1250,24 +1467,25 @@ BEGIN DEC(ISTACK,2); BLOCKWRITE(FF,ISTACK,2); {PROG LENGTH (x)} C:='w'; BLOCKWRITE(FF,C,1); {WORM ID} - 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; + 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[7]>0THEN {RACE LEVELS} - FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[7]TO B.LSINGLE+B.LMULTI+B.LTO[7] + 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[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] + 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:=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 6DO BEGIN + 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); @@ -1278,10 +1496,11 @@ BEGIN 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 8DO 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} + I:=42; BLOCKWRITE(FF,I,1); {UNUSED} BLOCKWRITE(FF,B.SPRSIZE,1); BLOCKWRITE(FF,B.SPRITE,B.SPRSIZE); @@ -1294,15 +1513,16 @@ BEGIN 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] + 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[8]>0THEN - FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[8] + 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:=1; IF B.LFROM[2]>0THEN I2:=I2+1+B.LTO[2]-B.LFROM[2]; + 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} @@ -1311,32 +1531,7 @@ BEGIN BLOCKWRITE(FF,I,2); {CHECKSUM} END; {FILECOMP} -PROCEDURE EDITQUIT; -BEGIN - REPEAT - 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(': CONTINUE EDITING'); - WRITELN; III:=EDITMENU(4,0); - CASE III OF - 1:BEGIN - FILESAVE; FILECOMP; HALT; - END; {COMPILE} - 2:FILESAVE; - 3:BEGIN - 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 HALT; - END; {QUIT} - END; {HANDLE} - UNTIL III=4; -END; {EDITQUIT} - -PROCEDURE EDITFILE; +PROCEDURE EDITFILE(STARTUP:BOOLEAN); VAR SFILE:SEARCHREC; FILESFOUND:INTEGER; SFILES:ARRAY[3..9]OF STRING[12]; @@ -1346,6 +1541,10 @@ 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 TITLEBAR(0,'CHOOSE LEVELFILE'); TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE NEW FILE'); @@ -1375,10 +1574,46 @@ BEGIN UNTIL III<>0; END; {EDITFILE} +PROCEDURE EDITQUIT; +BEGIN + REPEAT + 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 + FILESAVE; FILECOMP; QUITOK:=TRUE; + END; {COMPILE} + 2:FILESAVE; + 3:BEGIN + 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>=4)OR(QUITOK); +END; {EDITQUIT} + BEGIN - {M 16384,0,655360} {$M 16384,0,655360} - MAINTITLE; EDITFILE; - REPEAT EDITMAIN; EDITQUIT; UNTIL TRUE=FALSE; + 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