Баг в скриптовке на движке Pasdcal Sript

[Alexandr17-10]

Извеняюсь что задал тему сюда но это мой баг. Я нашел его теперь не могу исправить.

TypesUnit:Array[0..13] of Integer;
...
TypesUnit[0]:=14;
TypesUnit[1]:=15;
TypesUnit[2]:=16;
TypesUnit[3]:=17;
TypesUnit[4]:=18;
TypesUnit[5]:=19;
TypesUnit[6]:=20;
TypesUnit[7]:=21;
TypesUnit[8]:=22;
TypesUnit[9]:=23;
TypesUnit[10]:=24;
TypesUnit[11]:=25;
TypesUnit[12]:=26;
TypesUnit[13]:=27;
...
Procedure OnUnitDied(aUnitID: Integer; aKillerIndex: Integer);
Var i:Integer;
  VremText:Array[0..1] of String;
begin
  If States.UnitOwner(aUnitID)=0 then 
  begin
    For i:= 0 to High(TypesUnit) do
      if States.UnitType(aUnitID)<>TypesUnit[i] then 
	  Begin
	   	Case aKillerIndex of
          2:VremText[1]:='<$41>';
		  -1:VremText[1]:='<$42>';
		end;
		
		Case States.UnitType(aUnitID) of
		  9:VremText[0]:='<$1>';
		end;
		TextPercentGames:='[$'+States.PlayerColorText(0)+']<$0> '+VremText[0]+' <$39> '+VremText[1];
		PercentGames:=PercentGames-1;
		If PercentGames<=0 then
		  Actions.PlayerWin([1,2,3,4],True);
	  End else 
	  begin
	    If (aUnitID=IDKing)And(ActivLefels[2]<>AlkPobeda) then
		  Actions.PlayerWin([1,2,3,4],true);
	  End;
  end;
    
end;

Procedure OnUnitDied(aUnitID: Integer; aKillerIndex: Integer);
Событие которое происходит при смерти юнита
For i:= 0 to High(TypesUnit) do
Эта происходит цикл от 0 до числа типов солдат
if States.UnitType(aUnitID)<>TypesUnit[i] then
Begin
проверяем каждого и если погиб не солдат то
выполняем код
Баг заключается в том что этот код выполняется несколько раз
PercentGames:=PercentGames-1;
А надо его выполнять 1 раз но он должен выполняться только если погиб не юнит
Есть другой способ сделать проверку каждой ячейки но при этом код должен выполняться один раз

[ViktorR]

Поскольку не знаю этого языка, то могу предложить перед входом в цикл инициализировать некотурую внутреннюю переменную (целого или логического типа).
В теле цикла, когда

только если погиб не юнит

значение переменной изменяется: false -> true.
В конце тела цикла выполнить анализ переменной и завершить цикл, если изменение выполнилось:

If KillNotUnit then
   break;

Ну а если нет break, то насильно изменить переменную цикла для его завершения.


Как-то так, ...