+{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
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;
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 � ');
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);
END; {OBJECT TYPE}
END; {DISPOBJ}
BEGIN {---}
- TI:=3; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,18,WHERE); INC(TI,8); END; {GRID}
- TI:=4; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,18,WHERE); INC(TI,8); END;
- TI:=7; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,2,WHERE); INC(TI,8); END; {GRID}
- TI:=0; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,2,WHERE); INC(TI,8); END;
- TI:=127; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,6,WHERE); INC(TI,128); END;
- TI:=0; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,6,WHERE); INC(TI,56); END;
+ 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,4,WHERE)
+ IF TI MOD 2=0THEN PUTPIXEL(TI,L[II].FIELDY SHR 1,6,WHERE)
ELSE PUTPIXEL(TI,L[II].FIELDY SHR 1,2,WHERE);
END; {MID}
IF L[II].FIELDY MOD 2=0THEN
FOR TI:=2TO L[II].FIELDX-2DO BEGIN
- IF TI MOD 2=1THEN PUTPIXEL(TI,L[II].FIELDY SHR 1-1,4,WHERE)
+ IF TI MOD 2=1THEN PUTPIXEL(TI,L[II].FIELDY SHR 1-1,6,WHERE)
ELSE PUTPIXEL(TI,L[II].FIELDY SHR 1-1,2,WHERE);
END; {DOUBLEMID}
FOR TI:=2TO L[II].FIELDY-2DO BEGIN
- IF TI MOD 2=0THEN PUTPIXEL(L[II].FIELDX SHR 1,TI,4,WHERE)
+ IF TI MOD 2=0THEN PUTPIXEL(L[II].FIELDX SHR 1,TI,6,WHERE)
ELSE PUTPIXEL(L[II].FIELDX SHR 1,TI,2,WHERE);
END; {CENTER}
IF L[II].FIELDX MOD 2=0THEN
FOR TI:=2TO L[II].FIELDY-2DO BEGIN
- IF TI MOD 2=1THEN PUTPIXEL(L[II].FIELDX SHR 1-1,TI,4,WHERE)
+ 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 TI:=1 ELSE TI:=4;
FOR TI:=1TO TI DO BEGIN
- CIRCLE(L[II].W[TI].X,L[II].W[TI].Y,2,14);
+ 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),16,WHERE);
+ 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),14,WHERE);
+ 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),14,WHERE);
+ L[II].W[TI].Y+ROUND(COS((L[II].W[TI].D+13)/128*PI)*15),12,WHERE);
PUTPIXEL(L[II].W[TI].X,L[II].W[TI].Y,0,WHERE);
END; {WORMS}
IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
IF L[II].SPRSIZE>0THEN TI:=L[II].SPRSIZE ELSE TI:=B.SPRSIZE;
- DRAW4PIX(L[II].FLAG1X,L[II].FLAG1Y,TI,TI,22); {FLAGS}
- DRAW4PIX(L[II].FLAG2X,L[II].FLAG2Y,TI,TI,24);
+ 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(0,0,0,0); {BACK} SETPAL(1,32,0,0); {BACK}
- SETPAL(2,12,0,0); {GRID} SETPAL(3,38,0,0); {GRID}
- SETPAL(4,20,0,0); {MID} SETPAL(5,40,0,0); {MID}
- SETPAL(6,28,0,0); {MAINGRID} SETPAL(7,44,0,0); {MAINGRID}
- SETPAL(8,63,63,63); {BORDER} SETPAL(9,63,0,0); {BORDER}
- SETPAL(10,48,48,48); {OBJ} SETPAL(11,63,0,0); {OBJ}
- SETPAL(12,63,63,20); {HL_OBJ} SETPAL(13,63,16,0); {HL_OBJ}
- SETPAL(14,48,32,0); SETPAL(15,44,0,0); {STLN}
- SETPAL(16,48,48,0); SETPAL(17,52,0,0); {STARTPOS}
- SETPAL(18,8,0,0); SETPAL(19,36,0,0); {SUBGRID}
- SETPAL(22,0,0,63); {FLAG1} SETPAL(23,63,0,0); {FLAG1}
- SETPAL(24,0,63,0); {FLAG2} 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;
END;
DISPOSE(VIRT);}
BEGIN
- DISPMAPMCGA(OBJ); CLRKEY;
+ DISPMCGACOMMON; DISPMAP(OBJ,PTR(VGA,0)); CLRKEY;
+ REPEAT
+ IF USEMOUSE THEN BEGIN
+ GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;}
+ PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
+ DELAY(10);
+ PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
+ IF M1 THEN PPLINE(MXX,MYY,MX,MY,0);
+ IF M2 THEN PPLINE(MXX,MYY,MX,MY,1);
+ MXX:=MX; MYY:=MY;
+ END; {MOUSE}
+ C:=#0;
+ IF KEYPRESSED THEN BEGIN
+ WHILE KEYPRESSED DO C:=READKEY;
+ IF C='1'THEN BEGIN
+ I4:=L[II].SPRSIZE; IF I4=0THEN I4:=B.SPRSIZE; DEC(I4);
+ FOR TX:=2TO L[II].FIELDX-4 DO FOR TY:=2TO L[II].FIELDY-4 DO BEGIN
+ TZ:=TRUE;
+ FOR TXX:=TX TO TX+I4 DO FOR TYY:=TY TO TY+I4 DO
+ IF GETPIXEL(TXX,TYY,VGA)>17THEN TZ:=FALSE;
+ IF TZ THEN PUTPIXEL(TX,TY,29,PTR(VGA,0));
+ END; {TEST_FIELD}
+ END; {DRAW_TEST_PEA_AREA}
+ END; {KEYPRESSED}
+ UNTIL(C=#27)OR(C=' ')OR(C=#13)OR(C='+')OR(C='0'); MAINTITLE;
+END; {DISP1MAP}
+
+PROCEDURE DISPMANYMAP(MAG:BYTE);
+TYPE SCRN = ARRAY[0..199,0..319]OF BYTE;
+VAR VIRT:^SCRN;
+PROCEDURE DISP1MANYMAP(OFFSETX,OFFSETY,MAG:BYTE);
+VAR I1,I1X,I1Y,I1XX,I1YY:BYTE;
+BEGIN
+ FOR I:=0 TO 199DO FOR I2:=0 TO 255DO VIRT^[I,I2]:=0; DISPMAP(0,VIRT);
+ FOR I:=0 TO 255 DIV MAG DO FOR I2:=0 TO 199 DIV MAG DO BEGIN
+ {I1X:=ROUND(I2*L[II].FIELDX/80); I1Y:=ROUND(I*L[II].FIELDY/20);}
+ I1:=0;
+ FOR I1XX:=I*MAG TO(I+1)*MAG-1 DO FOR I1YY:=I2*MAG TO(I2+1)*MAG-1DO
+ IF VIRT^[I1YY,I1XX]>I1 THEN I1:=VIRT^[I1YY,I1XX];
+ PUTPIXEL(OFFSETX+I,OFFSETY+I2,I1,PTR(VGA,0));
+ END;
+END; {DISP1MANYMAP}
+VAR MXX,MYY:WORD; M1,M2:BOOLEAN;
+BEGIN
+ DISPMCGACOMMON; NEW(VIRT);
+ MX:=255 DIV MAG+1; MY:=192 DIV MAG+1;
+ FOR II:=1TO MIN(B.LTOTAL,SQR(MAG))DO
+ DISP1MANYMAP(((II-1)MOD MAG)*MX,(II-1)DIV MAG*MY,MAG);
+ DISPOSE(VIRT); CLRKEY;
REPEAT
IF USEMOUSE THEN BEGIN
GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;}
IF M2 THEN PPLINE(MXX,MYY,MX,MY,1);
MXX:=MX; MYY:=MY;
END; {MOUSE}
- UNTIL KEYPRESSED; MAINTITLE;
+ UNTIL KEYPRESSED; WHILE KEYPRESSED DO READKEY; MAINTITLE;
END; {DISP1MAP}
PROCEDURE MAPOBJ(OBJ,OBJSUB:INTEGER);
-VAR M1,M2:BOOLEAN;
+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
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 YMAX:=L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1
- ELSE YMIN:=L[II].OBJ[OBJ].Y1+1;
+ 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
REPEAT
PPDISPOBJ(OBJ,0);
IF USEMOUSE THEN BEGIN
- REPEAT GETMOUSEPOS(MX,MY,M1,M2);
- UNTIL(MX<>MXX)OR(MY<>MYY)OR(M1)OR(M2)OR(KEYPRESSED);
+ 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;
- IF KEYPRESSED THEN BEGIN C:=READKEY;
- IF(C=#13)OR(C=' ')THEN M1:=TRUE; IF(C=#27)OR(C='+')THEN M2:=TRUE;
- END; {KEYS}
- END {MOUSE} ELSE BEGIN
- REPEAT UNTIL KEYPRESSED; C:=READKEY;
+ 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=#0THEN 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}
+ 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; {KEYB}
+ END; {KEYPRESSED}
IF NOT M1 THEN BEGIN
IF MX<XMIN THEN MX:=XMIN; IF MX>XMAX THEN MX:=XMAX;
IF MY<YMIN THEN MY:=YMIN; IF MY>YMAX THEN MY:=YMAX;
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;
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;
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;
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<EDITMENUMAX)THEN BEGIN
+ TEXTCOLOR(C_TEXT); GOTOXY(1,MENUPOS); WRITE(': ');
+ INC(MENUPOS); TEXTCOLOR(C_MENU); GOTOXY(1,MENUPOS); WRITE('>>');
+ END; {DOWN}
+ IF(C=#72)AND(MENUPOS>1)THEN BEGIN
+ TEXTCOLOR(C_TEXT); GOTOXY(1,MENUPOS); WRITE(': ');
+ DEC(MENUPOS); TEXTCOLOR(C_MENU); GOTOXY(1,MENUPOS); WRITE('>>');
+ END; {UP}
IF HELPPAGE=5THEN BEGIN
- IF(C=#80)AND(LVLPOS<B.LTOTAL-9)THEN BEGIN INC(LVLPOS); DISPLEVELS; END {DOWN} ELSE
- IF(C=#72)AND(LVLPOS>1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {UP} ELSE
+ IF(C=#77)AND(LVLPOS<B.LTOTAL-9)THEN BEGIN INC(LVLPOS); DISPLEVELS; END {R} ELSE
+ IF(C=#75)AND(LVLPOS>1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END {L} ELSE
END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
- IF(C=#80)AND(OBJPOS<L[II].NROBJ-9)THEN BEGIN INC(OBJPOS); DISPOBJECTS; END {DOWN} ELSE
- IF(C=#72)AND(OBJPOS>1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {UP} ELSE
- END; {OBJS DISPED}
+ IF(C=#77)AND(OBJPOS<L[II].NROBJ-9)THEN BEGIN INC(OBJPOS); DISPOBJECTS; END {R} ELSE
+ IF(C=#75)AND(OBJPOS>1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {L} ELSE
+ END {OBJS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
+ IF(C=#77)AND(BBPOS<L[II].NRBALLS-9)THEN BEGIN INC(BBPOS); DISPBOUNCIES; END {R} ELSE
+ IF(C=#75)AND(BBPOS>1)THEN BEGIN DEC(BBPOS); DISPBOUNCIES; END {L} ELSE
+ END; {BOUNCIES DISPED}
IF C=#59THEN HELPBAR(HELPPAGE);
END; {EXTENDED}
- UNTIL EDITOK<>0; EDITMENU:=EDITOK;
+ 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])+ORD(B.DESC[0])+6;
- 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}
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.LRACE,B.LRACE);
- 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);
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');
+ 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);
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}
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
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);
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}
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
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}
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
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}
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;
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;
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;
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}
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(')');
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}
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
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}
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}
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}
+ 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+2;
+ 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);
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);
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}
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; 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}
- END; {HANDLE}
- UNTIL(III=4)OR(QUITOK);
-END; {EDITQUIT}
-
-PROCEDURE EDITFILE;
+PROCEDURE EDITFILE(STARTUP:BOOLEAN);
VAR SFILE:SEARCHREC;
FILESFOUND:INTEGER;
SFILES:ARRAY[3..9]OF STRING[12];
INC(FILESFOUND); IF FILESFOUND>9THEN BREAK;
SFILES[FILESFOUND]:=SFILE.NAME; FINDNEXT(SFILE);
END; {FIND MORE LEVELS}
- TEXTCOLOR(C_MENU); WRITE('4'); TEXTCOLOR(C_TEXT); WRITELN(': ALL DONE!');
- DELAY(250);
+ 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');
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; TITLEBAR(0,'LOADING WORMEDIT...');
TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': WORMEDIT STARTED');
WRITELN(' NOT FOUND!'); USEMOUSE:=FALSE; REPEAT UNTIL KEYPRESSED;
END; {NO_MOUSE}
TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SEARCHING FOR LEVELS');
- EDITFILE; REPEAT EDITMAIN; EDITQUIT; UNTIL QUITOK=TRUE;
+ 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.95 BY SHIAR');
+ WRITE('EXITING '); TEXTCOLOR(15); WRITE('WORMEDIT 0.53 BY SHIAR');
TEXTCOLOR(7); WRITELN('.'); WRITELN('BYEBYE..'); WRITELN;
-END.
\ No newline at end of file
+END.
git.shiar.nl / wormy.git / blobdiff