32 function  TeamSize(p: PTeam): Longword;

    32 function  TeamSize(p: PTeam): Longword;

    33 procedure RecountTeamHealth(team: PTeam);

    33 procedure RecountTeamHealth(team: PTeam);

    34 procedure RestoreTeamsFromSave;

    34 procedure RestoreTeamsFromSave;

    35 function  CheckForWin: boolean;

    35 function  CheckForWin: boolean;

    36 procedure TeamGoneEffect(var Team: TTeam);

    36 procedure TeamGoneEffect(var Team: TTeam);

    38 

    37 

    39 implementation

    38 implementation

    40 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug;

    39 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug;

    41 

    40 

    42 const MaxTeamHealth: LongInt = 0;

    41 const MaxTeamHealth: LongInt = 0;

   404                 Gear^.Invulnerable:= false;

   403                 Gear^.Invulnerable:= false;

   405                 Gear^.Damage:= Gear^.Health

   404                 Gear^.Damage:= Gear^.Health

   406                 end

   405                 end

   407 end;

   406 end;

   408 

   407 

   416 procedure chAddHH(var id: shortstring);

   408 procedure chAddHH(var id: shortstring);

   417 var s: shortstring;

   409 var s: shortstring;

   418     Gear: PGear;

   410     Gear: PGear;

   419 begin

   411 begin

   420     s:= '';

   412     s:= '';