115    b:= byte(id[3])-48;

   115    b:= byte(id[3])-48;

   116    val(s, CurrentTeam.Hedgehogs[b].BotLevel, c);

   116    val(s, CurrentTeam.Hedgehogs[b].BotLevel, c);

   117    Gear:= AddGear(0, 0, gtHedgehog, 0);

   117    Gear:= AddGear(0, 0, gtHedgehog, 0);

   118    Gear.Hedgehog:= @CurrentTeam.Hedgehogs[b];

   118    Gear.Hedgehog:= @CurrentTeam.Hedgehogs[b];

   119    PHedgehog(Gear.Hedgehog).Team:= CurrentTeam;

   119    PHedgehog(Gear.Hedgehog).Team:= CurrentTeam;

   120    CurrentTeam.Hedgehogs[b].Gear:= Gear

   121    CurrentTeam.Hedgehogs[b].Gear:= Gear

   121    end

   122    end

   122 else OutError(errmsgUnknownVariable + ' "' + id + '"', true)

   123 else OutError(errmsgUnknownVariable + ' "' + id + '"', true)

   123 end;

   129 end;

   124 

   130 

   125 procedure chBind(var id: shortstring);

   131 procedure chBind(var id: shortstring);

   126 var s: shortstring;

   132 var s: shortstring;

   127     b: integer;

   133     b: integer;