From 1aad2a13346a1dfcdaf636f916e9b5e66a8ac30d Mon Sep 17 00:00:00 2001 From: Mischa Poslawsky Date: Mon, 25 Feb 2002 11:11:44 +0100 Subject: [PATCH] wormedit: fix ctf level count --- wormedit.pas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/wormedit.pas b/wormedit.pas index b8f5cfb..2114895 100644 --- 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); - END {RACE} ELSE IF III=8THEN BEGIN + END {RACE} ELSE IF III=9THEN 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); @@ -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 - 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} -- 2.30.0