--- a/hedgewars/CCHandlers.inc	Mon Jan 12 18:51:37 2009 +0000
+++ b/hedgewars/CCHandlers.inc	Mon Jan 12 21:49:10 2009 +0000
@@ -74,7 +74,9 @@
 
    AddTeam(Color);
    CurrentTeam^.TeamName:= ts;
-   if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true
+   if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true;
+
+   CurrentTeam^.voicepack:= AskForVoicepack('Default')
    end
 end;
 
@@ -101,6 +103,14 @@
 CurrentTeam^.FortName:= s
 end;
 
+procedure chVoicepack(var s: shortstring);
+begin
+if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/voicepack"', true);
+if s[1]='"' then Delete(s, 1, 1);
+if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);
+CurrentTeam^.voicepack:= AskForVoicepack(s)
+end;
+
 procedure chAddHH(var id: shortstring);
 var s: shortstring;
     Gear: PGear;