119 begin

   119 begin

   120 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/voicepack"', true);

   120 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/voicepack"', true);

   121 if s[1]='"' then Delete(s, 1, 1);

   121 if s[1]='"' then Delete(s, 1, 1);

   122 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);

   122 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);

   123 CurrentTeam^.voicepack:= AskForVoicepack(s)

   123 CurrentTeam^.voicepack:= AskForVoicepack(s)

   124 end;

   132 end;

   125 

   133 

   126 procedure chAddHH(var id: shortstring);

   134 procedure chAddHH(var id: shortstring);

   127 var s: shortstring;

   135 var s: shortstring;

   128     Gear: PGear;

   136     Gear: PGear;