1543 CountGears:= count;

  1543 CountGears:= count;

  1544 end;

  1544 end;

  1545 

  1545 

  1546 procedure ResurrectHedgehog(gear: PGear);

  1546 procedure ResurrectHedgehog(gear: PGear);

  1547 begin

  1547 begin

  1549     gear^.dX := _0;

  1548     gear^.dX := _0;

  1550     gear^.dY := _0;

  1549     gear^.dY := _0;

  1551     gear^.State := gstWait;

  1550     gear^.State := gstWait;

  1552     with CurrentHedgehog^ do begin

  1554     with CurrentHedgehog^ do begin

  1553         inc(Team^.stats.AIKills);

  1555         inc(Team^.stats.AIKills);

  1554         if Team^.AIKillsTex <> nil then FreeTexture(Team^.AIKillsTex);

  1556         if Team^.AIKillsTex <> nil then FreeTexture(Team^.AIKillsTex);

  1555         Team^.AIKillsTex := RenderStringTex(inttostr(Team^.stats.AIKills), Team^.Clan^.Color, fnt16);

  1557         Team^.AIKillsTex := RenderStringTex(inttostr(Team^.stats.AIKills), Team^.Clan^.Color, fnt16);

  1556     end;

  1558     end;