From 3a9cd04477853eb1a7c1ca34002b93d7696e3234 Mon Sep 17 00:00:00 2001 From: Mischa Poslawsky Date: Wed, 2 Jan 2002 21:03:52 +0100 Subject: [PATCH] wormedit 0.5.2103 --- wormedit.pas | 122 ++++++++++++++++++++++++++++----------------------- 1 file changed, 66 insertions(+), 56 deletions(-) diff --git a/wormedit.pas b/wormedit.pas index 39aa846..d56ea6b 100644 --- a/wormedit.pas +++ b/wormedit.pas @@ -37,15 +37,16 @@ TYPE ONELEVEL = RECORD 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} @@ -60,8 +61,8 @@ CONST GAMETYPE:ARRAY[1..8]OF STRING[12] = 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; @@ -74,15 +75,15 @@ CONST GAMETYPE:ARRAY[1..8]OF STRING[12] = 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'); @@ -91,7 +92,7 @@ CONST GAMETYPE:ARRAY[1..8]OF STRING[12] = OBJPOS:BYTE = 1; C_BAR = 15; - CB_BAR = 4; + CB_BAR = 1; C_MENU = 14; CB_TEXT = 0; C_TEXT = 7; @@ -118,7 +119,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 á '); @@ -580,24 +581,30 @@ BEGIN 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} @@ -701,31 +708,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.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); @@ -1191,14 +1198,14 @@ 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} @@ -1213,7 +1220,7 @@ 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; @@ -1230,7 +1237,7 @@ 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:=8; L[II].GROWTH:=15; L[II].BSIZE:=15; L[II].SPRSIZE:=0; L[II].NRBALLS:=0; @@ -1244,7 +1251,7 @@ BEGIN 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; @@ -1274,7 +1281,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(')'); @@ -1296,12 +1303,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 @@ -1418,13 +1426,13 @@ 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} @@ -1432,7 +1440,7 @@ BEGIN 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); @@ -1443,10 +1451,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); @@ -1459,15 +1468,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} -- 2.30.0