Автозакупка из ГМ шопа(Помогите создать)

[Fer123]

Я не знаюточно как правильно там на грации

procedure MultisellBypass(cmd : string);
begin
  buf:=#$23;
  WriteS('menu_select?ask=-11&reply='+cmd);
  SendToServerEx(Name);
end;

"ask=-11" - постоянное значение
"reply= listID из пакета
B0=MultiSellChoose:d(ListID)d(EntryID)d(Amount)h(E nchantment)
Получается покупка состоит из
MultisellBypass('19001'); //Тут тоже самое что и в B0 d(ListID)
buf:=#$B0;
WriteD(19001);
WriteD(37); //entryid - тоесть ид самого предмета в списке
WriteD(1); //количество
и там дальше нули