hedgewars/uStats.pas
changeset 14486 ca851d0957cf
parent 14425 9561bf634b21
child 14566 adf3e7d94db0
--- a/hedgewars/uStats.pas	Tue Dec 18 18:16:31 2018 +0100
+++ b/hedgewars/uStats.pas	Tue Dec 18 18:26:13 2018 +0100
@@ -553,13 +553,17 @@
     // now to console
     if winnersClan <> nil then
         begin
+        ScriptCall('onGameResult', winnersClan^.ClanIndex);
         WriteLnToConsole('WINNERS');
         WriteLnToConsole(inttostr(winnersClan^.TeamsNumber));
         for t:= 0 to winnersClan^.TeamsNumber - 1 do
             WriteLnToConsole(winnersClan^.Teams[t]^.TeamName);
         end
     else
+        begin
+        ScriptCall('onGameResult', -1);
         WriteLnToConsole('DRAW');
+        end;
 
     ScriptCall('onAchievementsDeclaration');
 end;