Формируем пакет на продажу нескольких предметов с одинаковым ItemId, вроде визуально все правильно. Продавец в таргете. Послали пакет. Ничего не продается. Почему? Почему если одно и тоже несколько раз в пакете написать, то продается один предмет из посланного пакета?! В чем загвоздка?
Создаем пакет продажи вещей:
Код:
//******************************************************************************
//1E=RequestSellItem:h(ListID)d(SellCount)h(ObjectID)i(ItemID)d(Count)
procedure RequestSellItem;
var
i, j : integer;
begin
say('Продадим '+inttostr(ColvoItm2)+' предмет(а) ItemID='+inttostr(Item));
buf:=#$1E;
WriteD(0);
WriteD(ColvoItm2);
for i:=1 to ColvoItm2 do begin
WriteD(ItemBase2[1,i]);
WriteD(ItemBase2[2,i]);
WriteD(ItemBase2[3,i]);
end;
say(buf='+strtohex(buf));
SendToServerEx(Name);
end;