Я не знаюточно как правильно там на грации
Код:
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); //количество
и там дальше нули