diff -r 151c8e553de2 -r 9e94a9bc8c7e hedgewars/uStats.pas --- a/hedgewars/uStats.pas Tue Aug 06 00:26:07 2013 +0400 +++ b/hedgewars/uStats.pas Sat Aug 24 00:13:15 2013 +0400 @@ -34,7 +34,7 @@ procedure TurnReaction; procedure SendStats; procedure hedgehogFlight(Gear: PGear; time: Longword); -procedure declareAchievement(id, teamname: shortstring; value: LongInt); +procedure declareAchievement(id, teamname, location: shortstring; value: LongInt); implementation uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc, uConsole, uScript; @@ -311,12 +311,13 @@ WriteLnToConsole(''); end; -procedure declareAchievement(id, teamname: shortstring; value: LongInt); +procedure declareAchievement(id, teamname, location: shortstring; value: LongInt); begin if (length(id) = 0) or (length(teamname) = 0) then exit; WriteLnToConsole('ACHIEVEMENT'); WriteLnToConsole(id); WriteLnToConsole(teamname); + WriteLnToConsole(location); WriteLnToConsole(inttostr(value)); end;