--- a/hedgewars/CCHandlers.inc	Tue Feb 09 21:51:52 2010 +0000
+++ b/hedgewars/CCHandlers.inc	Wed Feb 10 00:55:40 2010 +0000
@@ -131,6 +131,13 @@
 CurrentTeam^.flag:= s
 end;
 
+procedure chScript(var s: shortstring);
+begin
+if s[1]='"' then Delete(s, 1, 1);
+if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);
+ScriptLoad(s)
+end;
+
 procedure chAddHH(var id: shortstring);
 var s: shortstring;
     Gear: PGear;