304     end

   304     end

   305 else

   305 else

   306     WriteLnToConsole('DRAW');

   306     WriteLnToConsole('DRAW');

   307 

   307 

   308 ScriptCall('onAchievementsDeclaration');

   308 ScriptCall('onAchievementsDeclaration');

   312 end;

   309 end;

   313 

   310 

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

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

   315 begin

   312 begin

   316     if (length(id) = 0) or (length(teamname) = 0) then exit;

   313     if (length(id) = 0) or (length(teamname) = 0) then exit;