wormedit: fix ctf level count

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);
-    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}