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:
84c4b19
)
wormedit: fix ctf level count
author
Mischa Poslawsky
<wormy@shiar.org>
Mon, 25 Feb 2002 10:11:44 +0000
(11:11 +0100)
committer
Mischa Poslawsky
<wormy@shiar.org>
Mon, 2 Mar 2009 21:39:17 +0000
(22:39 +0100)
wormedit.pas
patch
|
blob
|
history
diff --git
a/wormedit.pas
b/wormedit.pas
index b8f5cfbc193c8001e1165f405d9ddd57fac211a9..2114895fa016870c1db222b9cc9bdea18f7015c7 100644
(file)
--- a/
wormedit.pas
+++ b/
wormedit.pas
@@
-763,7
+763,7
@@
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.LRACE,B.LRACE);
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.LRACE,B.LRACE);
- END {RACE} ELSE IF III=
8
THEN BEGIN
+ END {RACE} ELSE IF III=
9
THEN 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);
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);
@@
-1205,7
+1205,8
@@
BEGIN
FOR I:=B.LTOTAL DOWNTO B.LSINGLE+B.LMULTI+1DO L[I]:=L[I-1];
L[B.LSINGLE+B.LMULTI]:=L[II]; II:=B.LSINGLE+B.LMULTI;
END {MP} ELSE IF II<=B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
FOR I:=B.LTOTAL DOWNTO B.LSINGLE+B.LMULTI+1DO L[I]:=L[I-1];
L[B.LSINGLE+B.LMULTI]:=L[II]; II:=B.LSINGLE+B.LMULTI;
END {MP} ELSE IF II<=B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
- INC(B.LRACE); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL;
+ INC(B.LRACE); FOR I:=B.LTOTAL DOWNTO B.LSINGLE+B.LMULTI+B.LRACE+1DO L[I]:=L[I-1];
+ L[B.LSINGLE+B.LMULTI+B.LRACE]:=L[II]; II:=B.LSINGLE+B.LMULTI+B.LRACE;
END {RACE} ELSE BEGIN
INC(B.LCTF); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL;
END; {CTF}
END {RACE} ELSE BEGIN
INC(B.LCTF); L[B.LTOTAL]:=L[II]; II:=B.LTOTAL;
END; {CTF}