77 procedure SwitchHedgehog;

    77 procedure SwitchHedgehog;

    78 procedure InitTeams;

    78 procedure InitTeams;

    79 procedure OnUsedAmmo(Ammo: PHHAmmo);

    79 procedure OnUsedAmmo(Ammo: PHHAmmo);

    80 function  TeamSize(p: PTeam): Longword;

    80 function  TeamSize(p: PTeam): Longword;

    81 procedure RecountTeamHealth(team: PTeam);

    81 procedure RecountTeamHealth(team: PTeam);

    82 

    83 

    83 implementation

    84 implementation

    84 uses uMisc, uStore, uWorld, uIO, uAI;

    85 uses uMisc, uStore, uWorld, uIO, uAI;

    85 const MaxTeamHealth: integer = 0;

    86 const MaxTeamHealth: integer = 0;

    86 

    87 

   309         end else TeamHealth:= (TeamHealth * cTeamHealthWidth) div MaxTeamHealth

   310         end else TeamHealth:= (TeamHealth * cTeamHealthWidth) div MaxTeamHealth

   310      end;

   311      end;

   311 AddGear(0, 0, gtTeamHealthSorter, 0)

   312 AddGear(0, 0, gtTeamHealthSorter, 0)

   312 end;

   313 end;

   313 

   314 

   314 initialization

   326 initialization

   315 

   327 

   316 finalization

   328 finalization

   317 

   329 

   318 FreeTeamsList

   330 FreeTeamsList