git.shiar.nl
/
wormy.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
61a9cc7
)
wormedit 0.51
author
Mischa Poslawsky
<wormy@shiar.org>
Mon, 14 Jan 2002 14:36:56 +0000
(15:36 +0100)
committer
Mischa Poslawsky
<wormy@shiar.org>
Mon, 2 Mar 2009 21:31:53 +0000
(22:31 +0100)
wormedit.pas
patch
|
blob
|
history
diff --git
a/wormedit.pas
b/wormedit.pas
index d56ea6b94e003bc40d64848336e0c7c14cf15c95..35e496a23c7cfa824724c240a5158bd7c83a9819 100644
(file)
--- a/
wormedit.pas
+++ b/
wormedit.pas
@@
-1,5
+1,5
@@
-{WORMEDIT 0.5 OR SOMETHING... BY SHIAR
- ---------------------------------w00t}
+{WORMEDIT 0.5
1
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}
{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}
@@
-50,10
+50,12
@@
CONST GAMETYPE:ARRAY[1..9]OF STRING[12] =
HEAD86S:STRING[53] =
('**TI86**'+#$1A+#$A+#0+ {HEADER}
HEAD86S:STRING[53] =
('**TI86**'+#$1A+#$A+#0+ {HEADER}
- 'Wormy
�95 Levelfile made using WormEdit 0.5
'); {COMMENT}
+ 'Wormy
.97 Levelfile made using WormEdit0.51
'); {COMMENT}
HEADEDIT = ('WormEdit�95'+#0+'LVL');
HEADVERSION = 95;
HEADEDIT = ('WormEdit�95'+#0+'LVL');
HEADVERSION = 95;
+ HEADOUTVERSION = 97;
+ PC = $F080; {F400}
B:RECORD
HEAD:ARRAY[1..15]OF CHAR;
B:RECORD
HEAD:ARRAY[1..15]OF CHAR;
@@
-90,6
+92,7
@@
CONST GAMETYPE:ARRAY[1..9]OF STRING[12] =
LVLPOS:BYTE = 1;
OBJPOS:BYTE = 1;
LVLPOS:BYTE = 1;
OBJPOS:BYTE = 1;
+ BBPOS :BYTE = 1;
C_BAR = 15;
CB_BAR = 1;
C_BAR = 15;
CB_BAR = 1;
@@
-127,7
+130,7
@@
BEGIN
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;
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(7
5,1); TEXTCOLOR(0); WRITE('v0.5
�'); TEXTBACKGROUND(CB_TEXT);
+ GOTOXY(7
4,1); TEXTCOLOR(0); WRITE('v0.51
�'); TEXTBACKGROUND(CB_TEXT);
END; {MAINTITLE}
PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER);
END; {MAINTITLE}
PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER);
@@
-402,7
+405,7
@@
BEGIN
END; {DISP1MAP}
PROCEDURE MAPOBJ(OBJ,OBJSUB:INTEGER);
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
MXX,MYY:WORD;
XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER;
BEGIN
@@
-418,8
+421,9
@@
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;
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
END; {BOX}
4:BEGIN XMIN:=0;
IF OBJSUB=0THEN BEGIN
@@
-436,23
+440,21
@@
BEGIN
REPEAT
PPDISPOBJ(OBJ,0);
IF USEMOUSE THEN 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;
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=#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; {EXTENDED}
- END; {KEY
B
}
+ END; {KEY
PRESSED
}
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;
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;
@@
-502,8
+504,9
@@
BEGIN
2:WRITE('YOU UNDERSTAND EVERYTHING');
3:WRITE('THIS AIN''T A BUG, IT A FEATURE!');
4:WRITE('ALL YOUR WORMS ARE BELONG TO US!');
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}
END; {HELPBAR}
END; {TEXT TO DISPLAY}
END; {HELPBAR}
@@
-519,6
+522,7
@@
BEGIN
IF II>=B.LFROM[1]THEN TEXTCOLOR(C_VALUE);
WRITELN(': '+L[II].ID); TEXTCOLOR(C_TEXT);
END; {DISP LEVELS}
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; {DISPLEVELS}
PROCEDURE DISPOBJECTS;
@@
-537,8
+541,21
@@
BEGIN
END; {TYPE}
END {ENABLED} ELSE WRITELN(': DISABLED'); TEXTCOLOR(C_TEXT);
END; {DISP OBJS}
END; {TYPE}
END {ENABLED} ELSE WRITELN(': DISABLED'); TEXTCOLOR(C_TEXT);
END; {DISP OBJS}
+ WINDOW(2,3,3,20);
END; {DISPOBJECTS}
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,MENUPOS:SHORTINT;
BEGIN
FUNCTION EDITMENU(EDITMENUMAX,HELPPAGE:BYTE):SHORTINT;
VAR EDITOK,MENUPOS:SHORTINT;
BEGIN
@@
-568,32
+585,30
@@
BEGIN
END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
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 {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
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}
+ 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; TEXTCOLOR(C_TEXT);
END; {EDITMENU}
FUNCTION COMPSIZE:WORD;
IF C=#59THEN HELPBAR(HELPPAGE);
END; {EXTENDED}
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:=B.SPRSIZE+1;
BEGIN
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[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO
INC(I,L[II].SIZE)
; {SP}
+ 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
IF B.LFROM[8]>0THEN
- FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]DO
COMPLEVEL
; {RACE}
+ 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
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}
+ 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}
{MAKE SP_END CODE}
CASE B.ENDTYPE OF
{MAKE SP_END CODE}
CASE B.ENDTYPE OF
- 1:B.ENDDATA:=#$21+CHR(LO(
$F40A+I))+CHR(HI($F40A
+I))+#$CD+#$37+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
+ 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}
{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))
+ 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}
+#$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}
@@
-877,7
+892,10
@@
BEGIN
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;
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); MAPOBJ(I,1);
+ 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);
END; {CREATE}
5:BEGIN
I4:=INPUTINT('ENTER OBJECT TO HIGHLIGHT','0 FOR NONE',0,0,L[II].NROBJ);
@@
-950,7
+968,7
@@
END; {EDITSPR}
PROCEDURE EDITBOUNCIES;
BEGIN
REPEAT
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
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
@@
-1064,6
+1082,7
@@
PROCEDURE EDITLEVEL;
BEGIN
REPEAT
L[II].SIZE:=12+L[II].NRBALLS*3+L[II].SPRSIZE+L[II].NROBJ*5;
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);
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);
@@
-1115,7
+1134,7
@@
BEGIN
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].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:=25
5
-L[II].FIELDY;
+ L[II].OBJ[L[II].NROBJ].Y2:=25
7
-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}
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}
@@
-1422,7
+1441,7
@@
BEGIN
DEC(ISTACK,2); BLOCKWRITE(FF,ISTACK,2); {PROG LENGTH (x)}
C:='w'; BLOCKWRITE(FF,C,1); {WORM ID}
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:=HEAD
OUT
VERSION; 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:=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);
@@
-1436,7
+1455,7
@@
BEGIN
DO I:=I+L[II].SIZE;
BLOCKWRITE(FF,I,2); {SIZE}
DO I:=I+L[II].SIZE;
BLOCKWRITE(FF,I,2); {SIZE}
- I2:=0; I:=
$F40
1+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]));
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]));
@@
-1569,6
+1588,6
@@
BEGIN
TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SEARCHING FOR LEVELS');
EDITFILE(TRUE); REPEAT EDITMAIN; EDITQUIT; UNTIL QUITOK=TRUE;
WINDOW(1,1,80,25); TEXTCOLOR(7); TEXTBACKGROUND(0); CLRSCR;
TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SEARCHING FOR LEVELS');
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.5 BY SHIAR');
+ WRITE('EXITING '); TEXTCOLOR(15); WRITE('WORMEDIT 0.5
1
BY SHIAR');
TEXTCOLOR(7); WRITELN('.'); WRITELN('BYEBYE..'); WRITELN;
END.
\ No newline at end of file
TEXTCOLOR(7); WRITELN('.'); WRITELN('BYEBYE..'); WRITELN;
END.
\ No newline at end of file