anchor.diff:      TroopFormations[i].NumUnits := 12;
       TroopFormations[i].NumRows := 4;
     end;
  +end;
  +
  +
  +destructor TKMPlayerAI.Destroy;
  +var i: integer;
  +begin
  +  for i:=0 to DefencePositionsCount-1 do DefencePositions[i].Free;
  +  Inherited;
   end;
   
   
  
positive.code:     ScriptedAttacksCount: integer;
      ScriptedAttacks: array of TAIAttack;
      constructor Create(aAssets:TKMPlayerAssets);
      procedure CheckGoals;
      procedure CheckUnitCount();
      procedure CheckArmiesCount();
  
negative.code:   setlength(DefencePositions,DefencePositionsCount+1);
    DefencePositions[DefencePositionsCount] := TAIDefencePosition.Create(aPos,aGroupType,aDefenceRadius,aDefenceType);
    inc(DefencePositionsCount);
  end;
  
  
  