From 05b2b45114015912ccf5db24096b386eace99029 Mon Sep 17 00:00:00 2001 From: Mischa Poslawsky Date: Sat, 3 Mar 2001 17:31:14 +0100 Subject: [PATCH] wormedit 0.93.1303 --- wormedit.pas | 833 ++++++++++++++++++++++++++++++++------------------- 1 file changed, 531 insertions(+), 302 deletions(-) diff --git a/wormedit.pas b/wormedit.pas index ee61c0d..22918c0 100644 --- a/wormedit.pas +++ b/wormedit.pas @@ -1,48 +1,50 @@ -USES CRT; +USES CRT,SHIAR; CONST GAMETYPE:ARRAY[1..8]OF STRING[12] = - ('SINGLEPLAYER','PEAWORM','TRON','DEATHMATCH', - 'FOODMATCH','LINKPLAY','RACE','CTF'); + ('SINGLEPLAYER','PEAWORM','TRON','DEATHMATCH', + 'FOODMATCH','LINKPLAY','RACE','CTF'); - OBJTYPE:ARRAY[0..3]OF STRING[8] = - ('NONE','LINE','FAT LINE','BAR'); + OBJTYPE:ARRAY[0..4]OF STRING[8] = + ('NONE','LINE','FAT LINE','BAR','CIRCLE'); ENDTYPE:ARRAY[-1..0]OF STRING[8] = - ('MESSAGE','NONE'); + ('MESSAGE','NONE'); HEAD86S:STRING[53] = - ('**TI86**'+#$1A+#$A+#0+ {HEADER} - 'Levelfile for Worm 0á92 made with WormEdit'); {COMMENT} + ('**TI86**'+#$1A+#$A+#0+ {HEADER} + 'Levelfile for Worm 0á93 made with WormEdit'); {COMMENT} - HEADEDIT = ('WormEditá92'+#0+'LVL'); - HEADVERSION = 92; + HEADEDIT = ('WormEditá93'+#0+'LVL'); + HEADVERSION = 93; B:RECORD - HEAD:ARRAY[1..15]OF CHAR; - VERSION:BYTE; - NAME:STRING[32]; - LSINGLE,LMULTI,LCTF,LTOTAL:BYTE; - LFROM:ARRAY[1..8]OF BYTE; - LTO:ARRAY[1..8]OF BYTE; - SPRSIZE:BYTE; - SPRITE:ARRAY[1..8]OF BYTE; + HEAD:ARRAY[1..15]OF CHAR; + VERSION:BYTE; + NAME:STRING[32]; + LSINGLE,LMULTI,LCTF,LTOTAL:BYTE; + LFROM:ARRAY[1..8]OF BYTE; + LTO:ARRAY[1..8]OF BYTE; + SPRSIZE:BYTE; + SPRITE:ARRAY[1..8]OF BYTE; ENDTYPE:INTEGER; - ENDDATA:STRING[255]; + ENDDATA:STRING[255]; END {B} = - (HEAD:HEADEDIT; - VERSION:HEADVERSION; + (HEAD:HEADEDIT; + VERSION:HEADVERSION; NAME:'Custom Worm Level'; - LSINGLE:0; LMULTI:0; LCTF:0; LTOTAL:0; - LFROM:(0,0,0,0,0,0,0,0); - LTO:(0,0,0,0,0,0,0,0); + LSINGLE:0; LMULTI:0; LCTF:0; LTOTAL:0; + LFROM:(1,0,0,0,0,0,0,0); + LTO:(1,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:0); + {01100000 + 11110000 + 11110000 + 01100000} + ENDTYPE:0); + LVLPOS:BYTE = 1; + OBJPOS:BYTE = 1; VAR I,I2:WORD; II,III,I4:SHORTINT; @@ -51,7 +53,7 @@ VAR I,I2:WORD; F,FF:FILE; L:ARRAY[1..64]OF RECORD - NAME:STRING[32]; + NAME:STRING[22]; SIZE:BYTE; PEAS,DELAY:BYTE; GROWTH,BSIZE:BYTE; @@ -75,19 +77,115 @@ VAR I,I2:WORD; FILENAME:STRING[8]; -FUNCTION NR(VALUE:INTEGER):STRING; +PROCEDURE MAINTITLE; +BEGIN + SETTEXT; CLRSCR; + TEXTCOLOR(1); WRITE('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ<'); + TEXTCOLOR(14); WRITE(' WormEdit á '); + TEXTCOLOR(15); WRITE(' by SHIAR '); + TEXTCOLOR(1); WRITE('>ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'); + WINDOW(41,2,41,25); TEXTCOLOR(7); TEXTBACKGROUND(0); WRITE(CC('³',23)); + WINDOW(1,25,80,25); TEXTBACKGROUND(1); CLRSCR; + GOTOXY(75,1); TEXTCOLOR(0); WRITE('v0.93'); TEXTBACKGROUND(0); +END; {MAINTITLE} + +PROCEDURE CIRCLE(X,Y,Z,COL:BYTE); +VAR XX,YY,ZZ:INTEGER; +BEGIN + XX:=-1; YY:=Z; ZZ:=-Z; + REPEAT + INC(XX); + LINE(X-XX,Y+YY,X+XX,Y+YY,COL,VGA); + LINE(X-XX,Y-YY,X+XX,Y-YY,COL,VGA); + LINE(X-YY,Y+XX,X+YY,Y+XX,COL,VGA); + LINE(X-YY,Y-XX,X+YY,Y-XX,COL,VGA); + IF ZZ>=0THEN BEGIN ZZ:=ZZ-(YY SHL 1)+2; DEC(YY); END; + ZZ:=ZZ+(XX SHL 1)+3; + UNTIL XX>=YY; +END; {CIRCLE} + +PROCEDURE DISPMAP(OBJ:INTEGER); +VAR OBJ2:INTEGER; +PROCEDURE DISPOBJ(OBJ:INTEGER;COL:BYTE); +VAR Y:BYTE; +BEGIN + CASE L[II].OBJ[OBJ].TYP OF + 1:LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL,VGA); + 2:BEGIN + LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL,VGA); + LINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2,COL,VGA); + LINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2+1,COL,VGA); + LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2+1,COL,VGA); + END; {FATLINE} + 3:BEGIN + FOR Y:=L[II].OBJ[OBJ].Y1 TO L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2 DO + LINE(L[II].OBJ[OBJ].X1,MIN(Y,191),L[II].OBJ[OBJ].X2,MIN(Y,191),COL,VGA); + END; {BOX} + 4:CIRCLE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,COL); + END; {OBJECT TYPE} +END; {DISPOBJ} +BEGIN + SETMCGA; + LINE(0,56,255,56,8,VGA); LINE(0,113,255,113,8,VGA); + LINE(0,170,255,170,8,VGA); {LINE(0,227,255,227,8,VGA);} + LINE(127,0,127,170,8,VGA); LINE(255,0,255,170,8,VGA); + LINE(0,0,255,0,15,VGA); LINE(0,1,255,1,15,VGA); + LINE(0,2,0,190-3,15,VGA); LINE(1,2,1,190-3,15,VGA); + LINE(L[II].FIELDX-2,2,L[II].FIELDX-2,L[II].FIELDY-1,15,VGA); + LINE(L[II].FIELDX-1,2,L[II].FIELDX-1,L[II].FIELDY-1,15,VGA); + LINE(0,L[II].FIELDY-2,L[II].FIELDX-1,L[II].FIELDY-2,15,VGA); + LINE(0,L[II].FIELDY-1,L[II].FIELDX-1,L[II].FIELDY-1,15,VGA); + FOR OBJ2:=1TO L[II].NROBJ DO IF OBJ2<>OBJ THEN DISPOBJ(OBJ2,7); + IF(OBJ>0)AND(OBJ<=L[II].NROBJ)THEN DISPOBJ(OBJ,14); + REPEAT UNTIL READKEY<>#0; + MAINTITLE; +END; {DISPMAP} + +FUNCTION NR(VALUE:LONGINT):STRING; VAR NRSTR:STRING; BEGIN STR(VALUE,NRSTR); NR:=NRSTR; END; {NR} -FUNCTION EDITMENU(EDITMENUMAX:BYTE):SHORTINT; +PROCEDURE HELPBAR(HELPPAGE:BYTE); BEGIN - REPEAT - REPEAT C:=READKEY; - UNTIL(C>='1')AND(C<=CHR(EDITMENUMAX+48))OR(C=#27); - IF C=#27THEN EDITMENU:=-1 ELSE EDITMENU:=ORD(C)-48; - UNTIL ORD(C)<>0; + WINDOW(41,14,80,24); + IF HELPPAGE=0THEN BEGIN + TEXTCOLOR(7); WRITE('³'); WINDOW(42,14,80,24); CLRSCR; EXIT; + END; {REMOVE} + TEXTBACKGROUND(1); TEXTCOLOR(7); WRITE('³'); TEXTCOLOR(15); + WRITE('HELP',' ':39-4); WINDOW(42,15,80,24); TEXTBACKGROUND(0); TEXTCOLOR(7); + CLRSCR; CASE HELPPAGE OF + 1:WRITE('PRESS OR FOR HELP'); + 2:WRITE('YOU UNDERSTAND EVERYTHING'); + 3:WRITE('THIS AIN''T A BUG, IT A FEATURE!'); + END; {TEXT TO DISPLAY} +END; {HELPBAR} + +PROCEDURE DISPLEVELS; +BEGIN + WINDOW(42,3,80,13); TEXTBACKGROUND(0); CLRSCR; + IF B.LTOTAL<1THEN WRITELN('NONE PRESENT')ELSE + FOR II:=LVLPOS TO MIN(B.LTOTAL,LVLPOS+9)DO BEGIN + WRITE(II); TEXTCOLOR(3); WRITELN(': '+L[II].NAME); TEXTCOLOR(7); + END; {DISP LEVELS} +END; {DISPLEVELS} + +FUNCTION EDITMENU(EDITMENUMAX,HELPPAGE:BYTE):SHORTINT; +VAR EDITOK:SHORTINT; +BEGIN + EDITOK:=0; REPEAT + WINDOW(39,1,39,1); GOTOXY(1,1); REPEAT UNTIL KEYPRESSED; C:=READKEY; + IF C=' 'THEN EDITOK:=10; {10} + IF(C>='1')AND(C<=CHR(EDITMENUMAX+48))THEN EDITOK:=ORD(C)-48; {1..<=9} + IF(C=#27)OR(C='-')OR(C='+')THEN EDITOK:=-1; {EXIT} + IF C=#0THEN BEGIN C:=READKEY; + IF(C=#80)AND(LVLPOS1)THEN BEGIN DEC(LVLPOS); DISPLEVELS; END; {DOWN} + IF C=#59THEN HELPBAR(HELPPAGE); + END; {EXTENDED} + IF UPCASE(C)='H'THEN HELPBAR(HELPPAGE); + UNTIL EDITOK<>0; EDITMENU:=EDITOK; END; {EDITMENU} FUNCTION COMPSIZE:WORD; @@ -98,89 +196,142 @@ BEGIN COMPSIZE:=I; END; {COMPSIZE} -PROCEDURE EDITTITLE(BAR:SHORTINT;TITLNAME:STRING); +PROCEDURE TITLEBAR(BAR:SHORTINT;TITLNAME:STRING); BEGIN - WINDOW(41,2,80,20); CLRSCR; TEXTCOLOR(15); TEXTBACKGROUND(1); + HELPBAR(0); WINDOW(41,2,42,2); + IF BAR=0THEN TEXTBACKGROUND(0)ELSE TEXTBACKGROUND(1); + TEXTCOLOR(7); WRITE('³'); WINDOW(42,2,80,13); TEXTBACKGROUND(0); CLRSCR; + TEXTCOLOR(15); TEXTBACKGROUND(1); CASE BAR OF 1:BEGIN - WRITE('LEVELS',' ':40-6); TEXTCOLOR(7); TEXTBACKGROUND(0); - IF B.LTOTAL<1THEN WRITELN('NONE PRESENT')ELSE - FOR II:=1TO B.LTOTAL DO BEGIN - WRITE(II); TEXTCOLOR(3); WRITELN(': '+L[II].NAME); TEXTCOLOR(7); - END; {DISP LEVELS} + WRITE('LEVELS',' ':39-6); DISPLEVELS; END; {1:SINGLVLS} 2:BEGIN - WRITE('LEVEL OBJECTS',' ':40-13); TEXTCOLOR(7); TEXTBACKGROUND(0); + WRITE('LEVEL OBJECTS',' ':39-13); TEXTCOLOR(7); TEXTBACKGROUND(0); IF L[II].NROBJ<1THEN WRITELN('NONE')ELSE - FOR I:=1TO L[II].NROBJ DO BEGIN - WRITE(I); TEXTCOLOR(3); WRITE(': ',OBJTYPE[L[II].OBJ[I].TYP]); - WRITE(' (',L[II].OBJ[I].X1,',',L[II].OBJ[I].Y1,')-('); - IF L[II].OBJ[I].TYP=3THEN - WRITELN(L[II].OBJ[I].X2,',',L[II].OBJ[I].Y1+L[II].OBJ[I].Y2,')') - ELSE WRITELN(L[II].OBJ[I].X2,',',L[II].OBJ[I].Y2,')'); + FOR I4:=1TO L[II].NROBJ DO BEGIN + WRITE(I4); TEXTCOLOR(3); WRITE(': ',OBJTYPE[L[II].OBJ[I4].TYP]); + IF L[II].OBJ[I4].TYP>0THEN + WRITE(' (',L[II].OBJ[I4].X1,',',L[II].OBJ[I4].Y1,')-('); + CASE L[II].OBJ[I4].TYP OF + 1,2:WRITELN(L[II].OBJ[I4].X2,',',L[II].OBJ[I4].Y2,')'); + 3:WRITELN(L[II].OBJ[I4].X2,',',L[II].OBJ[I4].Y1+L[II].OBJ[I4].Y2,')'); + 4:WRITELN(L[II].OBJ[I4].X2,')'); + END; {TYPE} TEXTCOLOR(7); - END; {DISP OBJS} + END; {DISP OBJS} END; {2:SINGLVLS} 3:BEGIN - WRITE('LEVEL INFO',' ':40-10); TEXTCOLOR(7); TEXTBACKGROUND(0); - WRITELN('LEVEL #',II,' MP #',II-B.LSINGLE); + WRITE('LEVEL INFO',' ':39-10); TEXTCOLOR(7); TEXTBACKGROUND(0); + WRITE('LEVEL #',II); + IF II>B.LSINGLE THEN WRITELN(' MP #',II-B.LSINGLE)ELSE WRITELN; WRITELN('LEVEL SIZE: ',L[II].SIZE); IF II<=B.LSINGLE THEN WRITELN('SINGLEPLAYER')ELSE FOR I:=2TO 7DO IF(II-B.LSINGLE>=B.LFROM[I])AND(II-B.LSINGLE<=B.LTO[I])THEN WRITELN(GAMETYPE[I]); END; {3:LEVEL} 4:BEGIN - WRITE(FILENAME,'.LVL',' ':36-ORD(FILENAME[0])); TEXTCOLOR(7); + WRITE(FILENAME,'.LVL',' ':35-ORD(FILENAME[0])); TEXTCOLOR(7); TEXTBACKGROUND(0); WRITE('FILE VERSION: '); TEXTCOLOR(3); WRITELN(B.VERSION); TEXTCOLOR(7); WRITE('FILE SIZE: '); TEXTCOLOR(3); WRITE(FILESIZE(F)SHR 10); TEXTCOLOR(7); WRITELN('kB'); WRITE('COMPILED: '); TEXTCOLOR(3); WRITE(COMPSIZE); TEXTCOLOR(7); WRITE(' BYTES'); END; {4:FILE} + 5:BEGIN + WRITE('LEVELS',' ':39-6); TEXTCOLOR(7); TEXTBACKGROUND(0); + IF B.LTOTAL<1THEN WRITELN('NONE PRESENT')ELSE + FOR II:=1TO B.LTOTAL DO BEGIN + IF II>B.LSINGLE THEN WRITE(II-B.LSINGLE)ELSE WRITE(II); + TEXTCOLOR(3); WRITELN(': '+L[II].NAME); TEXTCOLOR(7); + END; {DISP LEVELS} + END; {5:LEVELS} END; {BAR} - WINDOW(1,2,40,20); + WINDOW(1,2,40,24); TEXTBACKGROUND(1); TEXTCOLOR(15); WRITE(TITLNAME,' ':40-ORD(TITLNAME[0])); - WINDOW(1,3,40,20); TEXTBACKGROUND(0); CLRSCR; -END; {EDITTITLE} + WINDOW(1,3,40,24); TEXTBACKGROUND(0); CLRSCR; +END; {TITLEBAR} + +FUNCTION INPUTSTR(ISTR,ICOM,IDEF:STRING;IMAX:BYTE):STRING; +VAR IVAL:STRING; IOK:BOOLEAN; +BEGIN + WINDOW(1,14,40,24); + TEXTBACKGROUND(1); TEXTCOLOR(15); WRITE('INPUT',' ':40-5); + WINDOW(1,15,40,24); TEXTBACKGROUND(0); CLRSCR; + REPEAT + TEXTCOLOR(7); WRITELN(ISTR); TEXTCOLOR(8); WRITELN(ICOM); + TEXTCOLOR(8); WRITELN('ENTER FOR DEFAULT:'); WRITELN(IDEF); + TEXTCOLOR(7); WRITE('> '); READLN(IVAL); + IF IVAL=''THEN IVAL:=IDEF; + IOK:=FALSE; IF ORD(IVAL[0])<=IMAX THEN IOK:=TRUE + ELSE BEGIN CLRSCR; WRITELN('OH NO, THAT''S TOO MUCH!'); END; {TOOLONG} + UNTIL IOK; INPUTSTR:=IVAL; +END; {INPUTSTR} + +FUNCTION INPUTINT(ISTR,ICOM:STRING;IMIN,IDEF,IMAX:INTEGER):INTEGER; +FUNCTION READ:INTEGER; +VAR REI1:INTEGER; REI2:BYTE; +BEGIN {INPUTS POSITIVE INTEGER VALUE FROM KEYBOARD} + REI1:=0; {VALUE} REI2:=0; {SIZE} + REPEAT + REPEAT C:=READKEY; UNTIL C<>''; + CASE C OF + #8,'+','-':IF REI2>0THEN BEGIN + REI1:=REI1 DIV 10; DEC(REI2); WRITE(#8+' '+#8); + END; {BACKSPACE} + '0'..'9':IF REI2<4THEN BEGIN + REI1:=REI1*10+ORD(C)-48; INC(REI2); WRITE(C); + END; {NUMBER} + #13:IF REI2=0THEN REI1:=-1; {ENTER} + END; {HANDLE INPUT} + UNTIL C=#13; {UNTIL ENTER PRESSED} + READ:=REI1; +END; {READLN} +VAR IVAL:INTEGER; IOK:BOOLEAN; +BEGIN + WINDOW(1,14,40,24); + TEXTBACKGROUND(1); TEXTCOLOR(15); WRITE('INPUT',' ':40-5); + WINDOW(1,15,40,24); TEXTBACKGROUND(0); CLRSCR; + REPEAT + TEXTCOLOR(7); WRITELN(ISTR); TEXTCOLOR(8); WRITELN(ICOM); + TEXTCOLOR(8); WRITE('(RANGE '); TEXTCOLOR(7); WRITE(IMIN); TEXTCOLOR(8); + WRITE(' TO '); TEXTCOLOR(7); WRITE(IMAX); TEXTCOLOR(8); + WRITE('; DEFAULT VALUE '); TEXTCOLOR(7); WRITE(IDEF); TEXTCOLOR(8); + WRITELN(')'); TEXTCOLOR(7); WRITE('> '); IVAL:=READ; IF IVAL=-1THEN IVAL:=IDEF; + IOK:=FALSE; IF(IVAL>=IMIN)AND(IVAL<=IMAX)THEN IOK:=TRUE + ELSE BEGIN CLRSCR; WRITELN('OUT OF RANGE!'); END; {OUTOFRANGE} + UNTIL IOK; INPUTINT:=IVAL; +END; {INPUTINT} PROCEDURE EDITGAME; LABEL EDITGAME1,EDITGAME2; BEGIN REPEAT - EDITTITLE(1,'EDIT GAMETYPES'); TEXTCOLOR(7); WRITE('1: SINGLEPLAYER '); + TITLEBAR(5,'EDIT GAMETYPES'); TEXTCOLOR(14); WRITE('1'); + TEXTCOLOR(7); WRITE(': SINGLEPLAYER '); TEXTCOLOR(3); IF B.LSINGLE=0THEN WRITELN('(NO LEVELS)') - ELSE WRITELN('(',B.LSINGLE,')'); + ELSE WRITELN('(',B.LTO[1]-B.LFROM[1]+1,' OF ',B.LSINGLE,')'); FOR II:=2TO 7DO BEGIN TEXTCOLOR(14); WRITE(II); TEXTCOLOR(7); WRITE(': '+GAMETYPE[II],' '); TEXTCOLOR(3); IF B.LFROM[II]=0THEN WRITELN('(NO LEVELS)') - ELSE WRITELN('(',B.LFROM[II]+B.LSINGLE,'-',B.LTO[II]+B.LSINGLE,')'); + ELSE WRITELN('(',B.LFROM[II],'-',B.LTO[II],')'); END; {MULTIP} TEXTCOLOR(7); WRITE('8: CTF '); TEXTCOLOR(3); - IF B.LCTF=0THEN WRITELN('(NO LEVELS)')ELSE WRITELN('(',B.LCTF,')'); - TEXTCOLOR(7); WRITELN;III:=EDITMENU(8); - - IF III>1THEN BEGIN -EDITGAME1: - WRITELN('ENTER NEW STARTING LEVEL FOR '+GAMETYPE[III]); WRITE('> '); - READLN(B.LFROM[III]); IF B.LFROM[III]>B.LMULTI THEN BEGIN - TEXTCOLOR(15); WRITE('THAT LEVEL DOES NOT EXIST! '); - TEXTCOLOR(7); WRITELN('JUST ',B.LMULTI,' LEVELS PRESENT.'); - GOTO EDITGAME1; - END; {TOO MUCH} - IF B.LFROM[III]=0THEN WRITELN('NO LEVELS FOR THIS GAMETYPE.') {NO LVLS} - ELSE BEGIN -EDITGAME2: - WRITE('ENTER LAST LEVEL #> '); READLN(B.LTO[III]); - IF B.LTO[III]B.LMULTI THEN BEGIN - TEXTCOLOR(15); WRITE('THAT LEVEL DOES NOT (YET) EXIST! '); - TEXTCOLOR(7); WRITELN('JUST ',B.LMULTI,' LEVELS PRESENT.'); - GOTO EDITGAME2; - END; {TOO MUCH} - END; {ASK LTO} - END; {HANDLE} + IF B.LCTF=0THEN WRITE('(NO LEVELS)')ELSE WRITE('(',B.LCTF,')'); + + III:=EDITMENU(8,0); + IF III=1THEN BEGIN + B.LFROM[1]:=INPUTINT('ENTER LEVELS TO SKIP','USE THIS TO TEMPORARILY REMOVE THE FIRSTFEW LEVELS', + 0,0,B.LSINGLE-1); INC(B.LFROM[1]); + B.LTO[1]:=INPUTINT('ENTER LEVELS SELECTABLE','THE HIGHEST LEVEL SOMEONE CAN START IN WITHOUT PLAYING IT EARLIER', + 1,1,B.LSINGLE+1-B.LFROM[1]); B.LTO[1]:=B.LTO[1]+B.LFROM[1]-1; + END {SINGLEPLAYER} ELSE IF III>0THEN BEGIN + B.LFROM[III]:=INPUTINT('ENTER NEW STARTING LEVEL', + 'THAT LEVEL WILL BE LEVEL #1 IN GAMEMODE '+GAMETYPE[III]+'. 0=NO LEVELS',0,1,B.LMULTI); + IF B.LFROM[III]>0THEN + B.LTO[III]:=INPUTINT('ENTER LAST LEVEL NUMBER',NR(B.LMULTI)+' LEVELS PRESENT', + B.LFROM[III],B.LMULTI,B.LMULTI); + END; {MULTIPLAYER} UNTIL III=-1; III:=0; END; {EDITGAME} @@ -188,50 +339,86 @@ PROCEDURE EDITOBJ; LABEL EDITOBJ1; BEGIN REPEAT - EDITTITLE(2,'EDIT OBJECT #'+NR(I)+' IN LEVEL '+NR(II)); + TITLEBAR(2,'EDIT OBJECT #'+NR(I)+' IN LEVEL '+NR(II)); TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': OBJECT TYPE '); III:=L[II].OBJ[I].TYP; TEXTCOLOR(3); WRITELN('(',III,')'); IF III<>0THEN BEGIN - TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITE(': OBJECT BEGIN '); + TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); + IF L[II].OBJ[I].TYP=4THEN WRITE(': OBJECT POSITION ')ELSE WRITE(': OBJECT BEGIN '); TEXTCOLOR(3); WRITELN('(',L[II].OBJ[I].X1,',',L[II].OBJ[I].Y1,')'); - TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITE(': OBJECT END '); - TEXTCOLOR(3); IF L[II].OBJ[I].TYP=3THEN - WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y1+L[II].OBJ[I].Y2,')') + TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); + IF L[II].OBJ[I].TYP=4THEN WRITE(': OBJECT SIZE ')ELSE WRITE(': OBJECT END '); + TEXTCOLOR(3); CASE L[II].OBJ[I].TYP OF + 3:WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y1+L[II].OBJ[I].Y2,')'); + 4:WRITELN('(',L[II].OBJ[I].X2,')'); ELSE WRITELN('(',L[II].OBJ[I].X2,',',L[II].OBJ[I].Y2,')'); + END; {TYPE} + TEXTCOLOR(14); WRITE('4'); TEXTCOLOR(7); WRITE(': PREVIEW'); END; {OBJECT PROPERTIES} - WRITELN; TEXTCOLOR(7); IF III<>0THEN III:=EDITMENU(3)ELSE III:=EDITMENU(1); + + IF III<>0THEN III:=EDITMENU(4,0)ELSE III:=EDITMENU(1,0); CASE III OF 1:BEGIN -EDITOBJ1: - WRITELN('ENTER OBJECT TYPE'); - TEXTCOLOR(8); FOR I4:=0TO 3DO WRITE(I4,': ',OBJTYPE[I4],' '); - TEXTCOLOR(7); WRITELN; WRITE('> '); READLN(L[II].OBJ[I].TYP); - IF L[II].OBJ[I].TYP>3THEN BEGIN - WRITELN('INVALID TYPE!'); GOTO EDITOBJ1; - END; {INVALID} - TEXTCOLOR(8); WRITELN('SCREEN=(2,2)-(',L[II].FIELDX-2,',',L[II].FIELDY-2, - '); CENTER=(',(L[II].FIELDX-1)SHR 1,',',(L[II].FIELDY-1)SHR 1,')'); - TEXTCOLOR(7); WRITE('ENTER X1> '); READLN(L[II].OBJ[I].X1); - WRITE('ENTER Y1> '); READLN(L[II].OBJ[I].Y1); - WRITE('ENTER X2> '); READLN(L[II].OBJ[I].X2); - WRITE('ENTER Y2> '); READLN(L[II].OBJ[I].Y2); - IF L[II].OBJ[I].TYP=3THEN - L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1; + 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=(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=4 THEN BEGIN + L[II].OBJ[I].X1:=INPUTINT('ENTER X',S,2,(L[II].FIELDX-1)SHR 1,L[II].FIELDX-4); + L[II].OBJ[I].Y1:=INPUTINT('ENTER Y',S,2,(L[II].FIELDY-1)SHR 1,L[II].FIELDY-4); + L[II].OBJ[I].X2:=INPUTINT('ENTER SIZE',S,0, + MIN(L[II].FIELDY-4,L[II].FIELDX-4)SHR 2,MIN(L[II].FIELDY-4,L[II].FIELDX-4)SHR 1); + L[II].OBJ[I].Y2:=0; + END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN + IF L[II].OBJ[I].TYP=3THEN I4:=4 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].Y2 '); READLN(L[II].OBJ[I].X1); - WRITE('ENTER BEGIN Y> '); READLN(L[II].OBJ[I].Y1); + 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=4 THEN BEGIN + L[II].OBJ[I].X1:=INPUTINT('ENTER X',S,2,(L[II].FIELDX-1)SHR 1,L[II].FIELDX-3); + L[II].OBJ[I].Y1:=INPUTINT('ENTER Y',S,2,(L[II].FIELDY-1)SHR 1,L[II].FIELDY-3); + END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN + IF L[II].OBJ[I].TYP=3THEN I4:=4 ELSE I4:=3; + L[II].OBJ[I].X1:=INPUTINT('ENTER BEGIN X',S,2,(L[II].FIELDX-1)SHR 1,L[II].FIELDX-I4); + L[II].OBJ[I].Y1:=INPUTINT('ENTER BEGIN Y',S,2,(L[II].FIELDY-1)SHR 1,L[II].FIELDY-I4); + IF L[II].OBJ[I].TYP=3THEN + L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2+(I4-L[II].OBJ[I].Y1); + END; {NORMAL OBJECT} END; {BEGIN} 3:BEGIN - TEXTCOLOR(8); WRITELN('SCREEN=(2,2)-(',L[II].FIELDX-2,',',L[II].FIELDY-2, - '); CENTER=(',(L[II].FIELDX-1)SHR 1,',',(L[II].FIELDY-1)SHR 1,')'); - TEXTCOLOR(7); WRITE('ENTER END X> '); READLN(L[II].OBJ[I].X2); - WRITE('ENTER END Y> '); READLN(L[II].OBJ[I].Y2); - IF L[II].OBJ[I].TYP=3THEN - L[II].OBJ[I].Y2:=L[II].OBJ[I].Y2-L[II].OBJ[I].Y1; + IF L[II].OBJ[I].TYP=4 THEN BEGIN + L[II].OBJ[I].X2:=INPUTINT('ENTER SIZE','r',0, + MIN(L[II].FIELDY-3,L[II].FIELDX-3)SHR 2,MIN(L[II].FIELDY-3,L[II].FIELDX-3)SHR 1); + L[II].OBJ[I].Y2:=0; + END {CIRCLE} ELSE IF L[II].OBJ[I].TYP>0THEN BEGIN + S:='SCREEN=(0,0)-('+NR(L[II].FIELDX-2)+','+NR(L[II].FIELDY-2)+ + '); CENTER=('+NR((L[II].FIELDX-1)SHR 1)+','+NR((L[II].FIELDY-1)SHR 1)+')'; + IF L[II].OBJ[I].TYP=3THEN I4:=4 ELSE I4:=3; + L[II].OBJ[I].X2:=INPUTINT('ENTER END X',S,2,(L[II].FIELDX-1)SHR 1,L[II].FIELDX-I4); + L[II].OBJ[I].Y2:=INPUTINT('ENTER END Y',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 TEXTCOLOR(14)ELSE TEXTCOLOR(7); + WRITE('1'); TEXTCOLOR(7); WRITELN(': EDIT OBJECT'); + IF L[II].NROBJ>0THEN TEXTCOLOR(14)ELSE TEXTCOLOR(7); + WRITE('2'); TEXTCOLOR(7); WRITELN(': DELETE OBJECT'); + TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITELN(': CREATE OBJECT'); + TEXTCOLOR(14); WRITE('4'); TEXTCOLOR(7); WRITE(': VIEW OBJECT'); + + III:=EDITMENU(4,0); CASE III OF - 1:BEGIN - INC(L[II].NROBJ); I:=L[II].NROBJ; EDITOBJ; - END; {CREATE} - 2:BEGIN -EDITOBJS1: - WRITE('EDIT WHICH OBJECT> '); READLN(I); - IF I>L[II].NROBJ THEN BEGIN - WRITELN('JUST ',L[II].NROBJ,' OBJECTS PRESENT!'); - GOTO EDITOBJS1; - END; {DNOT EXIST} - IF I<>0THEN EDITOBJ; - END; {PEAS} - 3:BEGIN -EDITOBJS2: - WRITE('DELETE WHICH OBJECT> '); READLN(I); - IF I>L[II].NROBJ THEN BEGIN - WRITELN('I''M SORRY BUT THAT OBJECT DOES NOT EXIST'); - GOTO EDITOBJS2; - END; {ERROR} - IF I<>0THEN BEGIN - WRITE('PLEASE CONFIRM OBJECT TO '); TEXTCOLOR(15); WRITE('REMOVE'); - TEXTCOLOR(7); WRITE('> '); READLN(I4); - IF I=I4 THEN BEGIN + 1:IF L[II].NROBJ>0THEN BEGIN + I:=INPUTINT('EDIT WHICH OBJECT','',1,1,L[II].NROBJ); + EDITOBJ; + END; {EDIT} + 2:IF L[II].NROBJ>0THEN BEGIN + I:=INPUTINT('DELETE WHICH OBJECT','0=CANCEL',0,0,L[II].NROBJ); + IF I>0THEN BEGIN + I4:=INPUTINT('PLEASE CONFIRM OBJECT TO *REMOVE*','ENTER 0 TO CANCEL',0,0,L[II].NROBJ); + IF I=I4 THEN BEGIN DEC(L[II].NROBJ); FOR I:=I4 TO L[II].NROBJ DO L[II].OBJ[I]:=L[II].OBJ[I+1]; - END; {OK} - END; {SMTN} + END; {CONFIRMED} + END; {} END; {DELETE} + 3:BEGIN + INC(L[II].NROBJ); I:=L[II].NROBJ; L[II].OBJ[I].TYP:=0; EDITOBJ; + END; {CREATE} + 4:BEGIN + I4:=INPUTINT('ENTER OBJECT TO HIGHLIGHT','0 FOR NONE',0,0,L[II].NROBJ); + DISPMAP(I4); + END; {DISP} END; {HANDLE} UNTIL III=-1; III:=0; END; {EDITOBJS} @@ -292,6 +474,17 @@ BEGIN BYTE2STR:=SPRTEMP; END; {BYTE2STR} +FUNCTION BYTE2BIN(BYI1:BYTE):LONGINT; +VAR BYI2:BYTE; BYI3:LONGINT; +BEGIN + BYI3:=0; + FOR BYI2:=0TO 7DO BEGIN + IF BYI1 AND 1=1THEN BYI3:=BYI3+POW(10,BYI2); + BYI1:=BYI1 SHR 1; + END; + BYTE2BIN:=BYI3; +END; {BYTE2BIN} + FUNCTION STR2BYTE(SPRITE:STRING):BYTE; VAR SPRTEMP,SPRTEMP2:BYTE; BEGIN @@ -304,36 +497,67 @@ END; {STR2BYTE} PROCEDURE EDITSPR; BEGIN REPEAT - EDITTITLE(0,'EDIT SPRITE'); + TITLEBAR(0,'EDIT SPRITE'); TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': SPRITE SIZE '); - TEXTCOLOR(3); IF L[II].SPRSIZE=0THEN WRITELN('(DEFAULT)') - ELSE WRITELN('(',L[II].SPRSIZE,')'); + TEXTCOLOR(3); IF L[II].SPRSIZE=0THEN WRITELN('(',B.SPRSIZE,')') + ELSE WRITELN('(',L[II].SPRSIZE,')'); IF L[II].SPRSIZE=0THEN BEGIN - TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITE(': EDIT SPRITE'); - TEXTCOLOR(3); WRITELN(' (DEFAULT)'); + TEXTCOLOR(7); WRITE('2: EDIT SPRITE'); TEXTCOLOR(3); WRITELN(' (DEFAULT)'); END {DEF SPR} ELSE FOR I:=1TO L[II].SPRSIZE DO BEGIN TEXTCOLOR(14); WRITE(I+1); TEXTCOLOR(7); WRITE(': EDIT '); TEXTCOLOR(3); WRITELN(BYTE2STR(L[II].SPRITE[I],L[II].SPRSIZE)); END; {DISP SPRITE} - TEXTCOLOR(7); WRITELN; III:=EDITMENU(1+L[II].SPRSIZE); + III:=EDITMENU(1+L[II].SPRSIZE,0); IF III=1THEN BEGIN - WRITE('ENTER NEW SPRITE SIZE (MAX.HEIGHT/WIDTH)> '); READLN(I); - IF I>L[II].SPRSIZE THEN FOR I4:=L[II].SPRSIZE+1TO I DO - L[II].SPRITE[I4]:=0; + I:=INPUTINT('ENTER NEW SPRITE SIZE','MAXIMUM HEIGHT AND WIDTH; 0=DEFAULT',0,B.SPRSIZE,8); + IF I>L[II].SPRSIZE THEN FOR I4:=L[II].SPRSIZE+1TO I DO L[II].SPRITE[I4]:=0; L[II].SPRSIZE:=I; END {SIZE} ELSE IF III>1THEN BEGIN - WRITELN('ENTER NEW LINE #',III-1,' OF SPRITE'); TEXTCOLOR(8); - WRITE('(ex: 100101 = XúúXúX)'); TEXTCOLOR(7); WRITE('> '); - READLN(S); L[II].SPRITE[III-1]:=STR2BYTE(S); + S:=INPUTSTR('ENTER NEW LINE #'+NR(III-1)+' OF SPRITE','EXAMPLE: 100101 = XúúXúX', + ZERO(BYTE2BIN(L[II].SPRITE[III-1]),8),8); + L[II].SPRITE[III-1]:=STR2BYTE(S); END; {APP} UNTIL III=-1; III:=0; END; {EDITSPR} +PROCEDURE EDITBOUNCIES; +BEGIN + REPEAT + TITLEBAR(0,'EDIT BALLS IN LEVEL #'+NR(II)); + TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITELN(': CREATE BALL'); + TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITELN(': DELETE BALL'); + FOR III:=1TO L[II].NRBALLS DO BEGIN + TEXTCOLOR(14); WRITE(III+2); TEXTCOLOR(7); WRITE(': BALL #',III,' ('); + TEXTCOLOR(3); WRITE(L[II].BALLS[III].X); TEXTCOLOR(7); WRITE(','); + TEXTCOLOR(3); WRITE(L[II].BALLS[III].Y); TEXTCOLOR(7); WRITE(') DIR '); + TEXTCOLOR(3); WRITELN(L[II].BALLS[III].D); + END; {WORMS} + + III:=EDITMENU(2+L[II].NRBALLS,0); + IF III=1THEN BEGIN + INC(L[II].NRBALLS); + L[II].BALLS[L[II].NRBALLS].X:=INPUTINT('ENTER X','WHERE THE BALL STARTS BOUNCING',0,63,255); + L[II].BALLS[L[II].NRBALLS].Y:=INPUTINT('ENTER Y','',0,27,255); + L[II].BALLS[L[II].NRBALLS].D:=INPUTINT('ENTER DIRECTION','0/1:DOWN; 2/3:UP; 1/3:RIGHT; 0/2:LEFT',0,0,3); + END {CREATE} ELSE IF III=2THEN BEGIN + III:=INPUTINT('ENTER THE BOUNCY BALL TO REMOVE','(0 CANCELS)',0,0,L[II].NRBALLS); + IF III>0THEN BEGIN + DEC(L[II].NRBALLS); FOR I4:=III TO L[II].NRBALLS DO L[II].BALLS[I4]:=L[II].BALLS[I4+1]; + END; {OK2REMOVE} + END {DELETE} ELSE IF III>0THEN BEGIN + L[II].BALLS[III-2].X:=INPUTINT('ENTER X','NOTE THE BOUNCY BALLS WILL PROBABLY BOLDLY GO SOME OTHER PLACE ANYWAY', + 0,L[II].BALLS[III-2].X,255); + L[II].BALLS[III-2].Y:=INPUTINT('ENTER Y','',0,L[II].BALLS[III-2].Y,255); + L[II].BALLS[III-2].D:=INPUTINT('ENTER DIRECTION','0/1:DOWN; 2/3:UP; 1/3:RIGHT; 0/2:LEFT',0,L[II].BALLS[III-2].D,3); + END; {EDIT} + UNTIL III=-1; III:=0; +END; {EDITWORMS} + PROCEDURE EDITWORMS; BEGIN REPEAT - EDITTITLE(0,'EDIT WORMS IN LEVEL #'+NR(II)); + TITLEBAR(0,'EDIT WORMS IN LEVEL #'+NR(II)); IF II>B.LSINGLE THEN III:=4 ELSE III:=1; FOR III:=1TO III DO BEGIN TEXTCOLOR(14); WRITE(III SHL 1-1); TEXTCOLOR(7); @@ -342,23 +566,24 @@ BEGIN TEXTCOLOR(14); WRITE(III SHL 1); TEXTCOLOR(7); WRITE(': WORM #',III,' POSITION '); TEXTCOLOR(3); WRITELN('(',L[II].W[III].X,',',L[II].W[III].Y,')'); - END; {} - TEXTCOLOR(7); WRITELN; - IF III=4THEN III:=EDITMENU(8)ELSE III:=EDITMENU(2); + END; {WORMS} - CASE III OF - 1,3,5,7:BEGIN - WRITELN('ENTER WORM #',(III+1)SHR 1,' STARTING DIRECTION'); TEXTCOLOR(8); - WRITELN('(0=down; 64=right; 128=up; 192=left)'); - TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].W[(III+1)SHR 1].D:=I; - END; {DIR} + IF III=4THEN III:=EDITMENU(8,0)ELSE III:=EDITMENU(2,0); + CASE(III+1)OF 2,4,6,8:BEGIN - WRITELN('ENTER WORM #',III SHR 1,' BEGIN X-POSITION'); TEXTCOLOR(8); - WRITELN('(screen = 2-',L[II].FIELDX-2,'; center = ',L[II].FIELDX DIV 2); - TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].W[III SHR 1].X:=I; - WRITELN('ENTER WORM #',III SHR 1,' BEGIN Y-POSITION'); TEXTCOLOR(8); - WRITELN('(screen = 2-',L[II].FIELDY-2,'; center = ',L[II].FIELDY DIV 2); - TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].W[III SHR 1].Y:=I; + I:=INPUTINT('ENTER WORM #'+NR(III SHR 1)+' STARTING DIRECTION', + '0=DOWN; 64=RIGHT; 128=UP; 192=LEFT',0,L[II].W[III SHR 1].D,255); + L[II].W[III SHR 1].D:=I; + END; {DIR} + 3,5,7,9:BEGIN + I:=INPUTINT('ENTER WORM #'+NR(III SHR 1)+' BEGIN X-POSITION', + 'SCREEN = 2-'+NR(L[II].FIELDX-3)+'; CENTER = '+NR((L[II].FIELDX-1)SHR 1), + 2,L[II].W[III SHR 1].X,L[II].FIELDX-3); + L[II].W[III SHR 1].X:=I; + I:=INPUTINT('ENTER WORM #'+NR(III SHR 1)+' BEGIN Y-POSITION', + 'SCREEN = 2-'+NR(L[II].FIELDY-3)+'; CENTER = '+NR((L[II].FIELDY-1)SHR 1), + 2,L[II].W[III SHR 1].Y,L[II].FIELDY-3); + L[II].W[III SHR 1].Y:=I; END; {POS} END; {HANDLE} UNTIL III=-1; III:=0; @@ -367,9 +592,9 @@ END; {EDITWORMS} PROCEDURE EDITLEVEL; BEGIN REPEAT - L[II].SIZE:=12+L[II].NRBALLS+L[II].SPRSIZE+L[II].NROBJ*5; - IF II>B.LSINGLE THEN INC(L[II].SIZE,9); - EDITTITLE(3,'EDIT LEVEL #'+NR(II)); + L[II].SIZE:=12+L[II].NRBALLS*3+L[II].SPRSIZE+L[II].NROBJ*5; + IF II>B.LSINGLE THEN INC(L[II].SIZE,9); + TITLEBAR(3,'EDIT LEVEL #'+NR(II)); TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': DESCRIPTION '); TEXTCOLOR(3); WRITELN('(',L[II].NAME,')'); TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITE(': NUMBER OF PEAS '); @@ -391,40 +616,43 @@ BEGIN TEXTCOLOR(14); WRITE('8'); TEXTCOLOR(7); WRITE(': FIELD SIZE '); TEXTCOLOR(3); WRITELN('(',L[II].FIELDX,',',L[II].FIELDY,')'); TEXTCOLOR(14); WRITE('9'); TEXTCOLOR(7); WRITE(': OBJECTS '); - TEXTCOLOR(3); WRITELN('(',L[II].NROBJ,')'); - TEXTCOLOR(7); WRITELN; - III:=EDITMENU(9); + TEXTCOLOR(3); WRITE('(',L[II].NROBJ,')'); + III:=EDITMENU(10,0); CASE III OF - 1:BEGIN - WRITELN('ENTER DESCRIPTION FOR THIS LEVEL'); WRITE('> '); - READLN(S); IF S<>''THEN L[II].NAME:=S; - END; {DESCR} - 2:BEGIN - WRITE('ENTER TOTAL NUMBER OF PEAS> '); - READLN(I); L[II].PEAS:=I; - END; {PEAS} - 3:BEGIN - WRITE('ENTER NEW DELAY '); TEXTCOLOR(8); WRITE('(0=fastest; 4=def.)'); - TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].DELAY:=I; - END; {DELAY} + 1:L[II].NAME:=INPUTSTR('ENTER DESCRIPTION FOR THIS LEVEL', + 'THIS WON''T BE DISPLAYED DURING THE GAME,IT''S JUST TO MAKE EDITING EASIER',L[II].NAME,22); {DESCR} + 2:L[II].PEAS:=INPUTINT('ENTER TOTAL NUMBER OF PEAS','TOO MANY PEAS WILL MAKE A LEVEL BORING',1,L[II].PEAS,255); + 3:L[II].DELAY:=INPUTINT('ENTER NEW DELAY','0=FASTEST; 4=AVERAGE; 10=SLOW',0,L[II].DELAY,255); 4:BEGIN - WRITE('ENTER GROWTH PER PEA '); TEXTCOLOR(8); WRITE('(15=default)'); - TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].GROWTH:=I; - WRITE('ENTER WORM BEGIN SIZE '); TEXTCOLOR(8); WRITE('(15=default)'); - TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].BSIZE:=I; + L[II].GROWTH:=INPUTINT('ENTER GROWTH PER PEA','0=NO GROWTH; 15=NORMAL',0,L[II].GROWTH,255); + L[II].BSIZE:=INPUTINT('ENTER WORM BEGIN SIZE','15=NORMAL; TOO SHORT WORMS WILL BE HARD TO PLAY WITH', + 1,L[II].BSIZE,255); END; {GROWTH} 5:EDITSPR; + 6:EDITBOUNCIES; 7:EDITWORMS; 8:BEGIN - WRITELN('ENTER FIELD WIDTH'); TEXTCOLOR(8); - WRITE('(128=screen-width; 255=max.)'); - TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].FIELDX:=BYTE(I); - WRITELN('ENTER FIELD HEIGHT'); TEXTCOLOR(8); - WRITE('(57=screen-height 255=max.)'); - TEXTCOLOR(7); WRITE('> '); READLN(I); L[II].FIELDY:=BYTE(I); + FOR III:=L[II].NROBJ DOWNTO 1DO + IF L[II].OBJ[III].Y2+L[II].OBJ[III].Y1=255THEN BEGIN + DEC(L[II].NROBJ); FOR I4:=III TO L[II].NROBJ DO L[II].OBJ[I4]:=L[II].OBJ[I4+1]; + END; {REMOVE OLD BARS} + L[II].FIELDX:=INPUTINT('ENTER FIELD WIDTH','128=ONE SCREEN; MORE WILL SCROLL THE SCREEN',5,L[II].FIELDX,255); + IF L[II].FIELDX<128THEN BEGIN + INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=L[II].FIELDX; + L[II].OBJ[L[II].NROBJ].Y2:=255; L[II].OBJ[L[II].NROBJ].TYP:=3; + L[II].OBJ[L[II].NROBJ].X2:=255; L[II].OBJ[L[II].NROBJ].Y1:=0; + END; {PUT BAR} + 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].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} END; {FIELD} 9:EDITOBJS; + 10:DISPMAP(0); END; {HANDLE} UNTIL III=-1; III:=0; END; {EDITLEVEL} @@ -433,33 +661,46 @@ PROCEDURE EDITLVL; LABEL EDITHLVL1,EDITHLVL2; BEGIN REPEAT - EDITTITLE(1,'EDIT LEVELS'); - TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITELN(': EDIT LEVEL'); - TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITELN(': DELETE LEVEL'); - TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITELN(': CREATE SINGLEPLAYER LEVEL'); - TEXTCOLOR(14); WRITE('4'); TEXTCOLOR(7); WRITELN(': CREATE MULTIPLAYER LEVEL'); - TEXTCOLOR(7); WRITE('5'); TEXTCOLOR(7); WRITELN(': CREATE CTF LEVEL'); - TEXTCOLOR(7); WRITELN; III:=EDITMENU(4); + TITLEBAR(1,'EDIT LEVELS'); + IF B.LTOTAL>0THEN TEXTCOLOR(14)ELSE TEXTCOLOR(7); + WRITE('1'); TEXTCOLOR(7); WRITELN(': EDIT LEVEL'); + IF B.LTOTAL>0THEN TEXTCOLOR(14)ELSE TEXTCOLOR(7); + WRITE('2'); TEXTCOLOR(7); WRITELN(': COPY LEVEL'); + IF B.LTOTAL>0THEN TEXTCOLOR(7)ELSE TEXTCOLOR(7); + WRITE('3'); TEXTCOLOR(7); WRITELN(': MOVE LEVEL'); + IF B.LTOTAL>0THEN TEXTCOLOR(14)ELSE TEXTCOLOR(7); + WRITE('4'); TEXTCOLOR(7); WRITELN(': DELETE LEVEL'); + TEXTCOLOR(14); WRITE('5'); TEXTCOLOR(7); WRITELN(': CREATE SINGLEPLAYER LEVEL'); + TEXTCOLOR(14); WRITE('6'); TEXTCOLOR(7); WRITELN(': CREATE MULTIPLAYER LEVEL'); + TEXTCOLOR(7); WRITE('7'); TEXTCOLOR(7); WRITELN(': CREATE CTF LEVEL'); + TEXTCOLOR(7); WRITELN; III:=EDITMENU(6,0); CASE III OF - 1:BEGIN -EDITHLVL1: - WRITE('EDIT WHICH LEVEL> '); READLN(II); - IF II>B.LTOTAL THEN BEGIN - WRITELN('THAT LEVEL DOES NOT EXIST!'); GOTO EDITHLVL1; - END; {ERROR} + 1:IF B.LTOTAL>0THEN BEGIN + II:=INPUTINT('EDIT WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL); IF II<>0THEN EDITLEVEL; END; {EDIT} - 2:BEGIN -EDITHLVL2: - WRITE('DELETE WHICH LEVEL> '); READLN(II); - IF II>B.LTOTAL THEN BEGIN - WRITELN('YOU CANNOT DELETE A LEVEL THAT DOES NOT EXIST!'); - GOTO EDITHLVL2; - END; {ERROR} + 2:IF B.LTOTAL>0THEN BEGIN + II:=INPUTINT('COPY WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL); IF II<>0THEN BEGIN - WRITE('PLEASE CONFIRM LEVEL TO '); TEXTCOLOR(15); WRITE('DELETE'); - TEXTCOLOR(7); WRITE('> '); READLN(I); + INC(B.LTOTAL); + IF II<=B.LSINGLE THEN BEGIN + INC(B.LSINGLE); + FOR I:=B.LTOTAL DOWNTO B.LSINGLE+1DO L[I]:=L[I-1]; + L[B.LSINGLE]:=L[II]; II:=B.LSINGLE + END {SP} ELSE BEGIN + FOR I:=2TO 7DO IF B.LTO[I]=B.LMULTI THEN BEGIN + INC(B.LTO[I]); IF B.LFROM[I]=0THEN INC(B.LFROM[I]); + END; {ALL GAMETYPES} + INC(B.LMULTI); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL; + END; {MP} + L[II].NAME:='Copy of '+L[II].NAME; + END; {>0} + END; {COPY} + 4:IF B.LTOTAL>0THEN BEGIN + II:=INPUTINT('DELETE WHICH LEVEL','0=CANCEL',0,0,B.LTOTAL); + IF II<>0THEN BEGIN + I:=INPUTINT('PLEASE CONFIRM LEVEL TO *REMOVE*','ENTER 0 TO CANCEL',0,0,B.LTOTAL); IF I=II THEN BEGIN IF I<=B.LSINGLE THEN DEC(B.LSINGLE)ELSE IF I<=B.LMULTI+B.LSINGLE THEN DEC(B.LMULTI)ELSE @@ -469,11 +710,10 @@ EDITHLVL2: 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} - END; {OK} - END; {SMTN} + END; {CONFIRMED} + END; {} END; {DELETE} - - 3:BEGIN + 5:BEGIN INC(B.LSINGLE); INC(B.LTOTAL); II:=B.LSINGLE; FOR I:=B.LTOTAL DOWNTO II+1DO L[I]:=L[I-1]; L[II].NAME:='Level #'+NR(II); @@ -482,7 +722,7 @@ EDITHLVL2: L[II].W[1].Y:=2; L[II].FIELDX:=128; L[II].FIELDY:=57; L[II].NROBJ:=0; EDITLEVEL; END; {CREATE SP} - 4:BEGIN + 6: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; {} @@ -504,26 +744,23 @@ END; {EDITLVL} PROCEDURE EDITDSPR; BEGIN REPEAT - EDITTITLE(0,'EDIT DEFAULT SPRITE'); + TITLEBAR(0,'EDIT DEFAULT SPRITE'); TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': SPRITE SIZE '); - TEXTCOLOR(3); WRITELN('(',B.SPRSIZE,')'); + TEXTCOLOR(3); WRITELN('(',B.SPRSIZE,')'); FOR I:=1TO B.SPRSIZE DO BEGIN TEXTCOLOR(14); WRITE(I+1); TEXTCOLOR(7); WRITE(': EDIT '); TEXTCOLOR(3); WRITELN(BYTE2STR(B.SPRITE[I],B.SPRSIZE)); END; {DISP SPRITE} - TEXTCOLOR(7); WRITELN; III:=EDITMENU(1+B.SPRSIZE); + III:=EDITMENU(1+B.SPRSIZE,0); IF III=1THEN BEGIN - WRITELN('ENTER THE DEFAULT SPRITE SIZE'); TEXTCOLOR(8); - WRITE('(1-8; can be changed per level)'); TEXTCOLOR(7); WRITE('> '); - READLN(I); IF(I>0)AND(I<=8)THEN BEGIN - IF I>B.SPRSIZE THEN FOR I4:=B.SPRSIZE+1TO I DO B.SPRITE[I4]:=0; - B.SPRSIZE:=I; - END; {OK} + I:=INPUTINT('ENTER THE DEFAULT SPRITE SIZE','CAN BE CHANGED PER LEVEL',1,B.SPRSIZE,8); + IF I>B.SPRSIZE THEN FOR I4:=B.SPRSIZE+1TO I DO B.SPRITE[I4]:=0; + B.SPRSIZE:=I; END {SIZE} ELSE IF III>1THEN BEGIN - WRITELN('ENTER NEW LINE #',III-1,' OF SPRITE'); TEXTCOLOR(8); - WRITE('(ex: 100101 = XúúXúX)'); TEXTCOLOR(7); WRITE('> '); - READLN(S); B.SPRITE[III-1]:=STR2BYTE(S); + S:=INPUTSTR('ENTER NEW LINE #'+NR(III-1)+' OF SPRITE','EXAMPLE: 100101 = XúúXúX', + ZERO(BYTE2BIN(B.SPRITE[III-1]),8),8); + B.SPRITE[III-1]:=STR2BYTE(S); END; {APP} UNTIL III=-1; III:=0; END; {EDITDSPR} @@ -531,7 +768,7 @@ END; {EDITDSPR} PROCEDURE EDITSPEND; BEGIN REPEAT - EDITTITLE(0,'SINGLEPLAYER ENDING'); + TITLEBAR(0,'SINGLEPLAYER ENDING'); TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITE(': END TYPE '); TEXTCOLOR(3); WRITELN(' (',ENDTYPE[B.ENDTYPE],')'); TEXTCOLOR(14); CASE B.ENDTYPE OF @@ -540,23 +777,17 @@ BEGIN TEXTCOLOR(3); WRITE(' (',COPY(B.ENDDATA,1,18)); IF LENGTH(B.ENDDATA)>18THEN WRITELN('...)')ELSE WRITELN(')'); END; {MSG} - END; {TYPE} TEXTCOLOR(7); WRITELN; III:=EDITMENU(2); + END; {TYPE} + + III:=EDITMENU(2,0); CASE III OF 1:BEGIN - WRITELN('ENTER NEW END TYPE:'); TEXTCOLOR(8); - FOR II:=0TO 1DO WRITE(II,': ',ENDTYPE[-II],' '); WRITELN; TEXTCOLOR(7); - WRITE('> '); READLN(II); IF(II<=1)AND(II>=0)THEN B.ENDTYPE:=-II; - IF II=1THEN B.ENDDATA:='Congratulations!!'; + FOR II:=0TO 1DO WRITE(NR(II)+': '+ENDTYPE[-II]+CC(' ',40-ORD(ENDTYPE[-II,0]))); + B.ENDTYPE:=INPUTINT('ENTER NEW END TYPE',S,0,0,1); + IF B.ENDTYPE=-1THEN B.ENDDATA:='Congratulations!!'; END; {TITLE} - 2:BEGIN - CASE B.ENDTYPE OF - -1:BEGIN - WRITE('ENTER NEW END MESSAGE '); TEXTCOLOR(8); - WRITELN('(max 255 chars)'); WRITE('> '); - READLN(S); IF S<>''THEN B.ENDDATA:=S; - END; {MSG} - END; {TYPE} - END; {EDIT} + 2:IF B.ENDTYPE=-1THEN + B.ENDDATA:=INPUTSTR('ENTER NEW END MESSAGE','MAX 255 CHARS','Congratulations!!',255); END; {HANDLE} UNTIL III=-1; III:=0; END; {EDITSPEND} @@ -565,7 +796,7 @@ END; {EDITSPEND} PROCEDURE EDITMAIN; BEGIN REPEAT - S:=''; FOR II:=1TO LENGTH(B.NAME)DO S:=S+UPCASE(B.NAME[II]); EDITTITLE(4,S); + TITLEBAR(4,UPCS(B.NAME)); TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITELN(': EDIT TITLE'); TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITE(': DEFAULT SPRITE'); TEXTCOLOR(3); WRITELN(' (',B.SPRSIZE,')'); @@ -573,14 +804,12 @@ BEGIN TEXTCOLOR(14); WRITE('4'); TEXTCOLOR(7); WRITE(': SP ENDING'); TEXTCOLOR(3); WRITELN(' (',ENDTYPE[B.ENDTYPE],')'); TEXTCOLOR(14); WRITE('5'); TEXTCOLOR(7); WRITE(': LEVELS'); - TEXTCOLOR(3); WRITELN(' (',B.LTOTAL,')'); - TEXTCOLOR(7); WRITELN; III:=EDITMENU(5); + TEXTCOLOR(3); WRITE(' (',B.LTOTAL,')'); + + III:=EDITMENU(5,3); CASE III OF - 1:BEGIN - WRITELN('ENTER NEW TITLE FOR THIS LEVELFILE '); - TEXTCOLOR(8); WRITE('enter=don''t alter; max. length 32 chars '); - TEXTCOLOR(7); WRITE('> '); READLN(S); IF S<>''THEN B.NAME:=S; - END; {TITLE} + 1:B.NAME:=INPUTSTR('ENTER NEW TITLE FOR THIS LEVELFILE','NOTE TI-86 DISPLAYS ONLY 22 CHARS ON THEFIRST LINE', + B.NAME,32); {TITLE} 2:EDITDSPR; 3:EDITGAME; 4:EDITSPEND; @@ -591,17 +820,20 @@ END; {EDITMAIN} PROCEDURE OPENFILE; BEGIN - ASSIGN(F,FILENAME+'.LVL'); {$I-} RESET(F,1); {$I+} IF IORESULT=0THEN BEGIN - {$I-} BLOCKREAD(F,B,SIZEOF(B)); BLOCKREAD(F,L,SIZEOF(L)); {$I+} - IF(IORESULT<>0)OR(B.HEAD<>HEADEDIT)THEN BEGIN - TEXTCOLOR(15); WRITE('WARNING!! '); TEXTCOLOR(7); - WRITELN('ERROR READING LEVEL FILE!'); - CLOSE(F); HALT; - END; {ERROR} - IF B.VERSION<>HEADVERSION THEN BEGIN - WRITELN('CAN''T READ FILE VERSION ',B.VERSION,'.'); CLOSE(F); HALT; - END; {VERSION} - END; {OPEN EXISTING FILE} + ASSIGN(F,FILENAME+'.LVL'); {$I-} RESET(F,1); {$I+} I:=IORESULT; + IF I<>0THEN BEGIN + TEXTCOLOR(15); WRITE('WARNING!! '); TEXTCOLOR(7); + WRITELN('FAILED OPENING LEVEL FILE!'); WRITELN('RUNTIME ERROR #',I); HALT; + END; {CAN'T OPEN} + {$I-} BLOCKREAD(F,B,SIZEOF(B)); BLOCKREAD(F,L,SIZEOF(L)); {$I+} + IF(IORESULT<>0)OR(B.HEAD<>HEADEDIT)THEN BEGIN + TEXTCOLOR(15); WRITE('WARNING!! '); TEXTCOLOR(7); + WRITELN('ERROR READING LEVEL FILE!'); + CLOSE(F); HALT; + END; {ERROR} + IF B.VERSION<>HEADVERSION THEN BEGIN + WRITELN('CAN''T READ FILE VERSION ',B.VERSION,'.'); CLOSE(F); HALT; + END; {VERSION} END; {OPENFILE} PROCEDURE FILESAVE; @@ -618,7 +850,7 @@ BEGIN BLOCKWRITE(FF,HEAD86S[1],ORD(HEAD86S[0])); {86S-HEADER} ISTACK:=$12+6+B.SPRSIZE+ORD(B.NAME[0])+24+2+ 2*(1+(B.LTO[2]-B.LFROM[2])+(B.LTO[3]-B.LFROM[3])); - FOR II:=1TO B.LTOTAL DO INC(ISTACK,L[II].SIZE); + FOR II:=B.LFROM[1]TO B.LTOTAL DO INC(ISTACK,L[II].SIZE); BLOCKWRITE(FF,ISTACK,2); {FILE LENGTH (x+$12)} I:=$000C; BLOCKWRITE(FF,I,2); {STRING ID} DEC(ISTACK,$10); BLOCKWRITE(FF,ISTACK,2); {DATA LENGTH (x+2)} @@ -629,14 +861,14 @@ BEGIN DEC(ISTACK,2); BLOCKWRITE(FF,ISTACK,2); {PROG LENGTH (x)} C:='w'; BLOCKWRITE(FF,C,1); {WORM ID} - I:=92; BLOCKWRITE(FF,I,1); {VERSION} + I:=HEADVERSION; BLOCKWRITE(FF,I,1); {VERSION} BLOCKWRITE(FF,B.NAME[0],ORD(B.NAME[0])+1); {TITLE} - I:=1+B.SPRSIZE+2; FOR II:=1TO B.LTOTAL DO I:=I+L[II].SIZE; + I:=1+B.SPRSIZE+2; FOR II:=B.LFROM[1]TO B.LTOTAL DO I:=I+L[II].SIZE; BLOCKWRITE(FF,I,2); {SIZE} I2:=0; I:=$F401+B.SPRSIZE; IF B.LSINGLE=0THEN BLOCKWRITE(FF,I2,2)ELSE BEGIN - BLOCKWRITE(FF,I,2); FOR II:=1TO B.LSINGLE DO INC(I,L[II].SIZE); + BLOCKWRITE(FF,I,2); FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE); END; {SINGLLVLS} INC(I,2); ISTACK:=I; FOR II:=2TO 7DO BEGIN I:=ISTACK; IF B.LFROM[II]=0THEN I:=0 ELSE @@ -647,8 +879,7 @@ BEGIN FOR II:=B.LSINGLE+B.LMULTI+1TO B.LTOTAL DO INC(ISTACK,L[II].SIZE); I:=0; IF B.LCTF=0THEN BLOCKWRITE(FF,I,2)ELSE BLOCKWRITE(FF,ISTACK,2); - BLOCKWRITE(FF,B.LSINGLE,1); - FOR II:=2TO 7DO BEGIN + FOR II:=1TO 7DO BEGIN IF B.LFROM[II]=0THEN I:=0 ELSE I:=B.LTO[II]-B.LFROM[II]+1; BLOCKWRITE(FF,I,1); END; {NR} @@ -657,7 +888,7 @@ BEGIN BLOCKWRITE(FF,B.SPRSIZE,1); BLOCKWRITE(FF,B.SPRITE,B.SPRSIZE); - FOR II:=1TO B.LSINGLE DO BEGIN + FOR II:=B.LFROM[1]TO B.LSINGLE DO BEGIN BLOCKWRITE(FF,L[II].PEAS,1); BLOCKWRITE(FF,L[II].DELAY,1); BLOCKWRITE(FF,L[II].GROWTH,1); @@ -705,22 +936,23 @@ END; {FILECOMP} PROCEDURE EDITQUIT; BEGIN REPEAT - EDITTITLE(0,'CHOOSE LEVELFILE'); + TITLEBAR(0,'CHOOSE LEVELFILE'); TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITELN(': COMPILE, SAVE AND QUIT'); TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITE(': SAVE '); TEXTCOLOR(3); WRITELN(FILENAME,'.LVL'); TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITELN(': QUIT'); TEXTCOLOR(14); WRITE('4'); TEXTCOLOR(7); WRITELN(': CONTINUE EDITING'); - WRITELN; III:=EDITMENU(4); + WRITELN; III:=EDITMENU(4,0); CASE III OF 1:BEGIN FILESAVE; FILECOMP; HALT; END; {COMPILE} 2:FILESAVE; 3:BEGIN - WRITE('REALLY QUIT '); TEXTCOLOR(8); WRITE('[Y/N]'); TEXTCOLOR(7); + WINDOW(1,8,40,8); + WRITE('REALLY QUIT '); TEXTCOLOR(8); WRITE('[Y/N]'); TEXTCOLOR(7); WRITE('> '); REPEAT C:=READKEY; UNTIL(UPCASE(C)='Y')OR(UPCASE(C)='N'); - IF UPCASE(C)='N'THEN III:=0; + IF UPCASE(C)<>'Y'THEN III:=0; END; {QUIT} 4:EDITMAIN; END; {HANDLE} @@ -730,20 +962,22 @@ END; {EDITQUIT} PROCEDURE EDITFILE; BEGIN REPEAT - EDITTITLE(0,'CHOOSE LEVELFILE'); + TITLEBAR(0,'CHOOSE LEVELFILE'); TEXTCOLOR(14); WRITE('1'); TEXTCOLOR(7); WRITELN(': CREATE NEW FILE'); TEXTCOLOR(14); WRITE('2'); TEXTCOLOR(7); WRITELN(': EDIT EXISTING'); TEXTCOLOR(14); WRITE('3'); TEXTCOLOR(7); WRITE(': EDIT'); TEXTCOLOR(3); - WRITELN(' WORMLVL1.LVL'); TEXTCOLOR(7); WRITELN; III:=EDITMENU(3); + WRITE(' WORMLVL1.LVL'); + + III:=EDITMENU(3,2); CASE III OF 1:BEGIN - WRITE('ENTER FILENAME '); TEXTCOLOR(8); WRITE('(max.8 chars)'); - TEXTCOLOR(7); WRITE('> '); READLN(FILENAME); EDITMAIN; EDITQUIT; + FILENAME:=INPUTSTR('ENTER LEVELNAME','8 CHARS MAX; W/O EXTENSION','WORMLVL1',8); + IF NOT FILEEXIST(FILENAME+'.LVL')THEN FILESAVE; + OPENFILE; EDITMAIN; EDITQUIT; END; {NEW} 2:BEGIN - WRITE('ENTER LEVELNAME '); TEXTCOLOR(8); WRITE('(w/o extension)'); - TEXTCOLOR(7); WRITE('> '); READLN(FILENAME); OPENFILE; EDITMAIN; - EDITQUIT; + FILENAME:=INPUTSTR('ENTER FILENAME','W/O EXTENSION','WORMLVL1',8); + OPENFILE; EDITMAIN; EDITQUIT; END; {EDIT} 3:BEGIN FILENAME:='WORMLVL1'; OPENFILE; EDITMAIN; EDITQUIT; @@ -754,10 +988,5 @@ END; {EDITFILE} BEGIN - CLRSCR; - TEXTCOLOR(1); WRITE('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ<'); - TEXTCOLOR(14); WRITE(' WormEdit á '); - TEXTCOLOR(15); WRITE(' by SHIAR '); - TEXTCOLOR(1); WRITE('>ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ'); - EDITFILE; + MAINTITLE; EDITFILE; END. \ No newline at end of file -- 2.30.0