141 procedure chScript(var s: shortstring);

   141 procedure chScript(var s: shortstring);

   142 begin

   142 begin

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

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

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

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

   145 ScriptLoad(s)

   145 ScriptLoad(s)

   153 end;

   146 end;

   154 

   147 

   155 procedure chAddHH(var id: shortstring);

   148 procedure chAddHH(var id: shortstring);

   156 var s: shortstring;

   149 var s: shortstring;

   157     Gear: PGear;

   150     Gear: PGear;