Показать сообщение отдельно
Старый 08.11.2007, 02:17   #63
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию Re: ДА БУДЕТ БОТ!

Формируем пакет на продажу нескольких предметов с одинаковым 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;
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием