procedure OnMissionStart;  
begin  
units := states.playergetallunits(player_id);  
random_id := units[states.kamrandomI(length(units) - 1)];  
end;

Procedure Sortirovka_UnitIDHGUMABA1(PlayerId:Integer);
Begin
   UnitHGUMABA:=states.playergetallunits(PlayerId);
end;

Procedure DiedKillerUnit(IDUnitesKilers:integer);
Begin
   Actions.UnitKill(UnitHGUMABA[IDUnitesKilers], False);
   Sortirovka_UnitIDHGUMABA1(0);
end;

Procedure Activate_Deactivate_HGUMAB;
Begin
   if HGUMAB then HGUMAB:=False else HGUMAB:=True;
end;

Procedure OnMissionStart;
BEGIN
...
UnitHGUMABA:=states.playergetallunits(0);
...
Bolls1:=False;
...
end;

Procedure OnUnitTrained(aUnitID: Integer);
Begin
   UnitHGUMABA:=states.playergetallunits(0);
end;

Procedure OnTick;
...
If States.GroupDead(GIDVarvars) then begin
     ITGoal:=8;
  If IDHouseStorBAWNRA=KOLIGHESTVO_BAWEN then begin
    ITGoal:=9;
    Bolls1:=True;
  end;
   end;
...
If Bolls1 then begin
    Activate_Deactivate_HGUMAB;
    Bolls1:=False;
  end;
...
If HGUMAB then
     if (States.GameTime mod DIEDUNITEHGUMATICK = 0) and (States.GameTime > 0) then
    DiedKillerUnit(states.kamrandomI(Length(UnitHGUMABA)-1));
...