J-Fobos, хм...спасибо буду думать..взял тот скрипт...теперь буду думать как разобраться..спасибо...
Добавлено через 18 минут
я так понимаю тут надо модифицировать пакет RequestSellItem...хм..
тоесть эту строку надо полностью менять
Код:
If (ConnectName=Nick) and FromServer and (pck[1] = #$11) then begin
ListID:=ReadD(6);
SendMsg2('Поймали пакет #$11');
buf:=#$1F; WriteD(ListID); WriteD(1); WriteD(6599); WriteD(1);
SendMsg2('Модифицировали пакет RequestBuyItem, ListID= ' + IntToStr(ListID));
SendToServerEx(Nick);
ListID:=ReadD(6);
SendMsg2('Поймали пакет #$11');
buf:=#$1F; WriteD(ListID); WriteD(1); WriteD(6599); WriteD(1);
сможете мне это объяснить если не сложно?
я так понимаю WriteD(6599) это ид вещи? WriteD(1) а это количество?