Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[Archibal]

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

написано на коленке.

var
timer:ttimer;

procedure ontimer(sender:tobject);
begin
pck := hstr('packet'); //пакет
sendtoserverex('charname');
end;

procedure init;
begin
timer := ttimer.create(nil);
timer.ontimer := @ontimer;  
timer.interval := 10;  //интервал (ms)
timer.enabled := true;
end;

procedure free;
begin
timer.free;
end;

begin
end.

а если несколько пакетов то надо будет с каждым пакетом добавлять строчку pck := hstr('packet');

[alexteam]

2 строчки.

pck := hstr('packet'); //пакет
sendtoserverex('charname');

это в случае если слать на сервер.
на клиент - использовать sendtoclientex

[Archibal]

спасиб буду тестить

Добавлено через 12 минут
чето не отсылает(... посмотри плз

Добавлено через 2 минуты
и такой вопрос еще он постоянно отсылает? - мне надо чтобы постоянно отсылал.спасиб

[alexteam]

галочку напротив имени поставь.. и будет остылать... с интервалом заданым в таймере.
имя соединения тоже не забудь задать..

[Archibal]

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

слово packet и charname сменил?

конечно сменил )) я ж не полная чукча )

Добавлено через 2 минуты

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

галочку напротив имени поставь.. и будет остылать... с интервалом заданым в таймере.
имя соединения тоже не забудь задать..

какую галочку по-подробнее плз?
имя какого соединеня? и куда его вставить?

в полном скрипте плз если не сложно

[alexteam]

имя соединения это и есть имя чара.
а галочку...
№19.. вот тут... http://l2phx.pp.ru/arhive/l2ph_help/...ge=scripts.htm

[Archibal]

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

имя соединения это и есть имя чара.
а галочку...
№19.. вот тут... http://l2phx.pp.ru/arhive/l2ph_help/...ge=scripts.htm

это я всё делаю но никакой реакции не происходит (

var
timer:ttimer;

procedure ontimer(sender:tobject);
begin
pck := hstr('01 EB 72 10 48 98 AB 00 00 3C C5 00 00 08 F4 FF FF 00 '); //пакет
sendtoserverex('zzzzzzzz');
end;

procedure init;
begin
timer := ttimer.create(nil);
timer.ontimer := @ontimer;  
timer.interval := 10;  //интервал (ms)
timer.enabled := true;
end;

procedure free;
begin
timer.free;
end;

begin
end.

вот пакет атаки и ничего ( как и с люб другими (

[NLObP]

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

NLObP,7F

Этот пакет?

7F=StopMoveInVehicle:d(CharID)d(BoatObjID)d(X)d(Y)d(Z)d(Heading)

Почему здесь будет меняться местами x, y, z?

[alexteam]

Archibal, пакет атаки ? мляяять !! учим матчасть!!

[Stasrus]

NLObP,7F с интерлюда
показывает расположение бафов на чаре, в каком порядке был бафнут чар в таком порядке и идет расположение, хочу сделать проверку на определенный баф