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(75,1); TEXTCOLOR(0); WRITE('v0.95'); 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}
+END; {DISPMCGACOMMON}
PROCEDURE DISP1MAP(OBJ:INTEGER);
VAR MXX,MYY:WORD;
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}
+ UNTIL KEYPRESSED; 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;}
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
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_TEXT); WRITELN; III:=EDITMENU(9,5);
CASE III OF
1:IF B.LTOTAL>0THEN 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;
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]);
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;
INC(B.LCTF); INC(B.LTOTAL); II:=B.LTOTAL;
INC(B.LTO[8]); IF B.LFROM[8]=0THEN INC(B.LFROM[8]);
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('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}
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}
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');
TEXTCOLOR(7); WRITELN('.'); WRITELN('BYEBYE..'); WRITELN;
git.shiar.nl / wormy.git / commitdiff