# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1537987555 -7200
# Node ID 5c605235199152d60d4f6a06e15bf147608e8c2d
# Parent  1f15b0ee8e34af3f242e607a5354d4040e32f9b1
On victory, center camera on a winning hedgehog

diff -r 1f15b0ee8e34 -r 5c6052351991 hedgewars/uTeams.pas
--- a/hedgewars/uTeams.pas	Mon Sep 24 11:18:48 2018 -0400
+++ b/hedgewars/uTeams.pas	Wed Sep 26 20:45:55 2018 +0200
@@ -58,7 +58,7 @@
     s, cap: ansistring;
     ts: array[0..(cMaxTeams - 1)] of ansistring;
     t, AliveCount, i, j: LongInt;
-    allWin: boolean;
+    allWin, winCamera: boolean;
 begin
 CheckForWin:= false;
 AliveCount:= 0;
@@ -137,12 +137,21 @@
                 // TODO (maybe): Show victory animation/captions per-team instead of all winners at once?
                 end;
 
+            // Enable winner state for winning hogs and move camera to a winning hedgehog
+            winCamera:= false;
             for j:= 0 to Pred(TeamsNumber) do
                 with Teams[j]^ do
                     for i:= 0 to cMaxHHIndex do
                         with Hedgehogs[i] do
                             if (Gear <> nil) then
+                                begin
+                                if (not winCamera) then
+                                    begin
+                                    FollowGear:= Gear;
+                                    winCamera:= true;
+                                    end;
                                 Gear^.State:= gstWinner;
+                                end;
             if Flawless then
                 AddVoice(sndFlawless, Teams[0]^.voicepack)
             else