551         end;

   551         end;

   552 

   552 

   553     // now to console

   553     // now to console

   554     if winnersClan <> nil then

   554     if winnersClan <> nil then

   555         begin

   555         begin

   556         WriteLnToConsole('WINNERS');

   557         WriteLnToConsole('WINNERS');

   557         WriteLnToConsole(inttostr(winnersClan^.TeamsNumber));

   558         WriteLnToConsole(inttostr(winnersClan^.TeamsNumber));

   558         for t:= 0 to winnersClan^.TeamsNumber - 1 do

   559         for t:= 0 to winnersClan^.TeamsNumber - 1 do

   559             WriteLnToConsole(winnersClan^.Teams[t]^.TeamName);

   560             WriteLnToConsole(winnersClan^.Teams[t]^.TeamName);

   560         end

   561         end

   561     else

   562     else

   562         WriteLnToConsole('DRAW');

   565         WriteLnToConsole('DRAW');

   563 

   567 

   564     ScriptCall('onAchievementsDeclaration');

   568     ScriptCall('onAchievementsDeclaration');

   565 end;

   569 end;

   566 

   570 

   567 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt);

   571 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt);