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}
NAME:STRING[32];
DESC:STRING[64];
LSINGLE,LMULTI,LRACE,LCTF,LTOTAL:BYTE;
- LFROM:ARRAY[1..8]OF BYTE;
- LTO:ARRAY[1..8]OF BYTE;
+ LFROM:ARRAY[1..9]OF BYTE;
+ LTO:ARRAY[1..9]OF BYTE;
SPRSIZE:BYTE;
SPRITE:ARRAY[1..8]OF BYTE;
ENDTYPE:INTEGER;
NAME:'Custom Worm Level';
DESC:'Not done yet. Obviously.';
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);
+ LTO:(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;
HINAME:'WOR');
OBJPOS: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 � ');
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); {HI_PW}
- IF B.LFROM[3]>0THEN I:=I+((1+B.LTO[3]-B.LFROM[3])*5); {HI_TRON}
+ I:=B.SPRSIZE+1;
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; {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 COMPLEVEL; {CTF}
+ FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]DO COMPLEVEL; {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 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}
+ 1:B.ENDDATA:=#$21+CHR(LO($F40A+I))+CHR(HI($F40A+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($F410+I))+CHR(HI($F410+I))
+ +#$CD+#$A5+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
+ {LD HL,X\LD (_PENCOL),HL\LD HL,MSG\CALL _VPUTS\JP _GETKEY\.DB MSG}
ELSE B.ENDDATA:=#$C9; {RET}
END; {ENDTYPE}
INC(I,ORD(B.ENDDATA[0]));
+ INC(I,$35+ORD(B.NAME[0])+ORD(B.DESC[0]));
+ IF B.LFROM[1]>0THEN INC(I,5); {HI_SP}
+ IF B.LFROM[2]>0THEN I:=I+((1+B.LTO[2]-B.LFROM[2])*5); {HI_PW}
+ IF B.LFROM[3]>0THEN I:=I+((1+B.LTO[3]-B.LFROM[3])*5); {HI_TRON}
+
COMPSIZE:=I;
END; {COMPSIZE}
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=8THEN 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 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;
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:=8; L[II].GROWTH:=15;
L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;
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:=5; L[II].GROWTH:=15;
L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0;
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(')');
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
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}
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}