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:
fb28e55
)
wormedit: minor reinitialisation fixes
author
Mischa Poslawsky
<wormy@shiar.org>
Wed, 6 Mar 2002 19:12:04 +0000
(20:12 +0100)
committer
Mischa Poslawsky
<wormy@shiar.org>
Mon, 2 Mar 2009 21:39:18 +0000
(22:39 +0100)
wormedit.pas
patch
|
blob
|
history
diff --git
a/wormedit.pas
b/wormedit.pas
index 2114895fa016870c1db222b9cc9bdea18f7015c7..a9ed81fbe073cad4f4eecf772b89cbb8b16206bd 100644
(file)
--- a/
wormedit.pas
+++ b/
wormedit.pas
@@
-372,7
+372,8
@@
BEGIN
IF M2 THEN PPLINE(MXX,MYY,MX,MY,1);
MXX:=MX; MYY:=MY;
END; {MOUSE}
IF M2 THEN PPLINE(MXX,MYY,MX,MY,1);
MXX:=MX; MYY:=MY;
END; {MOUSE}
- IF KEYPRESSED THEN BEGIN C:=#0;
+ C:=#0;
+ IF KEYPRESSED THEN BEGIN
WHILE KEYPRESSED DO C:=READKEY;
IF C='1'THEN BEGIN
I4:=L[II].SPRSIZE; IF I4=0THEN I4:=B.SPRSIZE; DEC(I4);
WHILE KEYPRESSED DO C:=READKEY;
IF C='1'THEN BEGIN
I4:=L[II].SPRSIZE; IF I4=0THEN I4:=B.SPRSIZE; DEC(I4);
@@
-617,12
+618,6
@@
FUNCTION COMPSIZE:WORD;
BEGIN
I:=B.SPRSIZE+1;
IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE); {SP}
BEGIN
I:=B.SPRSIZE+1;
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
- 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
- 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
1:B.ENDDATA:=#$21+CHR(LO(PC+10+I))+CHR(HI(PC+10+I))+#$CD+#$37+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
{MAKE SP_END CODE}
CASE B.ENDTYPE OF
1:B.ENDDATA:=#$21+CHR(LO(PC+10+I))+CHR(HI(PC+10+I))+#$CD+#$37+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
@@
-634,6
+629,12
@@
BEGIN
END; {ENDTYPE}
INC(I,ORD(B.ENDDATA[0]));
END; {ENDTYPE}
INC(I,ORD(B.ENDDATA[0]));
+ 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
+ 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
+ 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}
+
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}
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}