Требуется помощь.

supernewbie · 05.03.2010, 15:31

госпади все равно ничего не работает(
не хотел палить скрипт, но ладно, выложу...

Код:

Var
 PckIn: Boolean = False;
 TimerPck: TTimer;

procedure Init; 
begin
 TimerPck:=TTimer.Create(nil);
 TimerPck.OnTimer:=@OnTimerPck;
 TimerPck.Enabled:=False;
 TimerPck.interval:=5000;
end;

procedure OnTimerPck(Sender: TObject);
begin
 if PckIn then
 begin
   buf:=HStr('17 C7 53 35 40 01 00 00 00 7C C9 FE FF 6A 57 02 00 8D F3 FF FF');
   SendToServerEx('Jou');
 end;
 TimerPck.Enabled := False;
 PckIn := False;    
end;

procedure Free; 
begin
 TimerPck.Free;
end;

begin
if FromServer and (ConnectName='Karog') then
begin
if (pck='62 1E 00 00 00 01 00 00 00 03 00 00 00 B5 05 00 00') then TimerPck.Enabled := True;
if (pck='62 1E 00 00 00 01 00 00 00 03 00 00 00 53 08 00 00') and (TimerPck.Enabled) then PckIn := True;
end;           
end.

Не робит абсолютно(

Vilson · 05.03.2010, 15:51

Цитата:

Сообщение от supernewbie

не хотел палить скрипт, но ладно, выложу...
Не робит абсолютно(

Это не скрипт, это набор бессмысленного кода. Какие у тебя хроники и что по твоему должен делать этот "скрипт"?

supernewbie · 05.03.2010, 16:11

Цитата:

Сообщение от Vilson

Это не скрипт, это набор бессмысленного кода. Какие у тебя хроники и что по твоему должен делать этот скрипт?

Хроники ХБ. Скрипт должен проверять когда приходит сообщение что я получил кристал, потом он в течении 5 секунд проверяет не пришло ли сообщение что я получил гем, если гем я не получил, то Второй чел выбрасывает кристал.

Vilson · 05.03.2010, 16:52

Цитата:

Сообщение от supernewbie

Хроники ХБ. Скрипт должен проверять когда приходит сообщение что я получил кристал, потом он в течении 5 секунд проверяет не пришло ли сообщение что я получил гем, если гем я не получил, то Второй чел выбрасывает кристал.

Пакет который ты хочешь отправить:

Цитата:

Tип: 0x19 (UseItem)
Pазмер: 9+2
0002 d ObjectID: 1076569698 (0x402B2662)
0006 d Unknown: 0 (0x00000000)

---
Ты уверен что правильно получил ObjectID: 1076569698? Как ты его получил? Ты не забыл что при получении нового предмета ObjectID будет уже совсем другой?

Пакеты которые ты анализируешь выглядят не совсем правильно:

Цитата:

Tип: 0x62 (SystemMessage)
Pазмер: 17+2
0002 d MsgID: Получено: $s1. ID:30 (0x001E)
0006 d typesCount: 1 (0x00000001)
[Начало повторяющегося блока 1/1]
0010 d 0=Str,1=Int,2=NpcID,3=ItmID,4=SklID,6=Amnt: 3 (0x00000003)
0014 s data: ?
[Конец повторяющегося блока 1/1]