471 

   471 

   472             if Gear <> nil then

   472             if Gear <> nil then

   473                 begin

   473                 begin

   474                 Gear^.Invulnerable:= false;

   474                 Gear^.Invulnerable:= false;

   475                 Gear^.Damage:= Gear^.Health;

   475                 Gear^.Damage:= Gear^.Health;

   477                 end

   477                 end

   478             end

   478             end

   479 end;

   479 end;

   480 

   480 

   481 procedure chAddHH(var id: shortstring);

   481 procedure chAddHH(var id: shortstring);

   529     // color is always little endian so the mask must be constant also in big endian archs

   529     // color is always little endian so the mask must be constant also in big endian archs

   530     Color:= Color or $FF000000;

   530     Color:= Color or $FF000000;

   531     AddTeam(Color);

   531     AddTeam(Color);

   532     CurrentTeam^.TeamName:= ts;

   532     CurrentTeam^.TeamName:= ts;

   533     CurrentTeam^.PlayerHash:= s;

   533     CurrentTeam^.PlayerHash:= s;

   535         CurrentTeam^.ExtDriven:= true;

   535         CurrentTeam^.ExtDriven:= true;

   536 

   536 

   537     CurrentTeam^.voicepack:= AskForVoicepack('Default')

   537     CurrentTeam^.voicepack:= AskForVoicepack('Default')

   538     end

   538     end

   539 end;

   539 end;