78                 with Teams[j]^ do

    78                 with Teams[j]^ do

    79                     for i:= 0 to cMaxHHIndex do

    79                     for i:= 0 to cMaxHHIndex do

    80                         with Hedgehogs[i] do

    80                         with Hedgehogs[i] do

    81                             if (Gear <> nil) then

    81                             if (Gear <> nil) then

    82                                 Gear^.State:= gstWinner;

    82                                 Gear^.State:= gstWinner;

    83 

    87 

    84             AddCaption(s, cWhiteColor, capgrpGameState);

    88             AddCaption(s, cWhiteColor, capgrpGameState);

    85             SendStat(siGameResult, s);

    89             SendStat(siGameResult, s);

    86             AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000)

    90             AddGear(0, 0, gtATFinishGame, 0, _0, _0, 3000)

    87             end;

    91             end;

   276    inc(ClansCount);

   280    inc(ClansCount);

   277    with team^.Clan^ do

   281    with team^.Clan^ do

   278         begin

   282         begin

   279         ClanIndex:= Pred(ClansCount);

   283         ClanIndex:= Pred(ClansCount);

   280         Color:= TeamColor;

   284         Color:= TeamColor;

   281         end

   286         end

   282    end else

   287    end else

   283    begin

   288    begin

   284    team^.Clan:= ClansArray[c];

   289    team^.Clan:= ClansArray[c];

   285    end;

   290    end;