спасибо.
вот у меня что-то типа такого получилось
Код:
const
Nick='HinoRyuu';
var
ListID:integer;
Timer01: TTimer;
TimerCyrcle:integer;
procedure SendMsg2(msg:string);
begin
buf:=#$4A; WriteD(0); WriteD(10); WriteS(''); WriteS(msg);
SendToClientEx(Nick);
end;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=true;
Timer01.interval:=1000;
TimerCyrcle:=1;
end;
procedure OnTimer01(Sender: TObject);
begin
case TimerCyrcle of
1:begin
buf:=hstr('B0 1E 27 00 00 40 16 40 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FE FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00');
SendToServerEx(Nick);
SendMsg2('Отправился пакет 1');
Inc(TimerCyrcle);
end;
2:begin
buf:=hstr('37 00 00 00 00 01 00 00 00 EC 0E 01 10 D0 19 00 00 01 00 00 00 00 00 00 00');
SendToServerEx(Nick);
SendMsg2('Отправился пакет 2 и таймер остановился');
TimerCyrcle:=1;
Timer01.enabled:=false;
end;
end;
end;
procedure Free;
begin
Timer01.free;
end;
begin
If (ConnectName=Nick) and FromServer and (pck[1] = #$11) then
begin
ListID:=ReadD(6);
buf:=#$1F; WriteD(ListID); WriteD(1); WriteD(6608); WriteD(1);
SendToServerEx(Nick);
SendMsg2('Модифицировали пакет RequestSellItem, ListID= ' + IntToStr(ListID));
end;
end.
но все равно идет только покупка арки...а продажу не хочет делать...если вам не трудно скажите в чем у меня ошибка... 6608 ид арки.