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

[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.

где я ошибся?

[Lynx]

Может забыл включить в настройках перехват?

[atlivan]

Хочется сдлать так чтоб гном крафтер который продаёт и крафтит соски (на волкере) ещё и бегал когда нужно в ВХ и брал недостающие материалы (или покупал в магазине). Стандартными средствами волкера не получилось такое сделать. Решил при помощи l2ph , но что-то у меня не совсем получилось.
Вот что я сделал:

begin
  if FromClient and (ConnectName='xxx')          // SetPrivateStoreListSell
  and (pck[1]=#$31) then begin                
    buf:=HStr('56 0A 00 00 00 00 00 00 00 00 ');   // RequestActionUse
    SendToServerEx('xxx');
    pck:='';
  end;
end.

т.е. когда гном садится на торговлю, я ему говорю чтоб вставал, и далее работа скрипта волкера:

label(aaa)
CharStatus(STAND,==,1)
{
SET(L2WALKER,DISABLE)
call(zatarka)
}
jmp(aaa)
label(zatarka)
...... // делаем что нам надо
SET(L2WALKER,ENABLE)
delay(1000)
return

всё вроде хорошо, всё отрабатывается чётко, только один момент когда уже действительно надо присесть на торговлю он всё равно не даёт, что посоветуете сделать?
Было бы неплохо сделать проверку конечно по спирит или соул оре, но что-то я даже не представляю себе как, если поможете буду премного благодарен.
В ходе изучения возникло 3 проблемки:
1. Скрипт после выключения всё равно продолжает выполняться в клиенте и блокировать пакеты.
2. Во фрейме "дополнитильно" когда на поле скрипта нажимаешь всегда выдаёт ошибку Access violation ....
3. Когда закрываешь программу всегда она дисконектит клиент.

Надеюсь на вашу помощь, заранее спасибо.

Забыл добавить сервер евро офф, версия программы l2phx.3.5.12.120

[NLObP]

Smz, если хочешь чтобы тебе могли помочь, то надо сообщение правильно оформить. Создай тему с внятным названием, оформи как в ФАКе написано, плюс выложи скрины настроек и скрины того, что по твоему мнению не получается.

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

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

В ходе изучения возникло 3 проблемки:
1. Скрипт после выключения всё равно продолжает выполняться в клиенте и блокировать пакеты.

Сделай включение/выключение скрипта по социальному действию, например.

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

2. Во фрейме "дополнитильно" когда на поле скрипта нажимаешь всегда выдаёт ошибку Access violation ....

Где ты это нашел? Ты про составление/просмотр пакета? У меня там прекрасно все вставляется и показывается.

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

3. Когда закрываешь программу всегда она дисконектит клиент.

Так и должно быть, ты же разрываешь связь клиента с сервером через пакетхак.

[Stasrus]

Как можно выдернуть определенную часть пакета при постоянно изменяющемся пакете?
Например нужно сделать проверку есть ли в пакете xyz часть Z или нет, сам пакет постоянно меняется таким образом xyz, zxy, yzx и.т.д

[NLObP]

Stasrus, где ты такие пакеты берешь? Дай пример такого пакета.

[Stasrus]

NLObP,7F

[Archibal]

Здаствуйте!
Вопрос первый как можно увеличить скорость отсылки пакетов в l2phx.3.5.11.118 а то больше чем 0.1 секунда нельзя а в старых версиях можно было и по 1 милисекунде отправлять.
второй : незнаю с чем это связано но с выходом l2phx.3.5 пинг к серваку показываеться наборот намного выше чем есть а в старых 3.2-3.4 стабильно минимальный , и влияет ли это на что-то? спасибо

[alexteam]

1. Скриптами.
2. пинг в окошке выбора сервера вообще не показатель.

[Archibal]

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

1. Скриптами.

можно по подробнее как-то ? = практическое решение проблемы - а то скрипты я не пишу (

[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.