L2PacketHackФорум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела!
Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
//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.
где я ошибся?
Последний раз редактировалось QaK, 30.08.2010 в 18:56.
,только загвостка в том что эт файл является: Video CD и каким
оброзом его открыть(точнее сказать с помощью какой проги) я незнаю,перепробывал все имеющиеся редакторы на компе,не одним толково не вскрыл его(((
//=============================================
if FromServer and (pck[1]=#$21) then
case ReadD(12) of
1061,1539: begin//Зелье Исцеления ID:1061
hpID:=ReadD(8);
SendMsg2('запомнил: З е л ь е Исцеления')
end;
734,1374: begin//Зелье Ускорения ID:734
uskorID:=ReadD(8);
Timer2.enabled:=true;
SendMsg2('запомнил: З е л ь е Ускорения');
end;
735,1375: begin//Зелье Быстрой Атаки ID:735
atakID:=ReadD(8);
Timer3.enabled:=true;
SendMsg2('запомнил: З е л ь е Атаки');
end;
и т.д
//==================================================
Можно как то подругому проще это все выполнить ОПТИМИЗИРОВАТЬ действия
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
l2ph запускаю перед клиентом
Проблема: логин, выбор сервера и болт потом(бывает с 20 раза заходит)
Пинг почему-то отображает 1, а в реале 100!!!
Если вдруг зашло, точит на ура Ы вепон(только не видит имени, надо по id искать в списке)
Есть еще Epic weapon(id=10300 вроде), на него не реагирует, не хочет точить 2Север тот же
l2ph запускаю во время выбора сервера, потом захожу в игру и пишет ошибку после запуска скрипта Версия 3,19
А в последней версии, после запуска не видит что есть в инвенторе!!!
1. при произведенном мною действии
2 . если нет ответа на действие
// вот здесь наверно надо мне чтобы высчитывалось время
// между п.1 и п.2 _ ток как сделать я невкурю
3. если время высчитаное более заданого то
4. произвести другое действие
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
Подскажите, играю на Грации Финал, использую пакет хак для точки скилов, вопрос в следующим: какую лучше поставить задержку отправления пакетов на сервер, чтобы меньше палиться в логах.
TAMBIK, делаешь п1 - запускаешь таймер, в интервале ставишь, скклько надо тебе ждать, в обработчик таймера - п4 и стоп таймера, ну и проверяешь, если получил ответ на п1 и таймер.енабле = true тогда товет получили и тормозишь таймер.
Как-то так ... что непонятно - спрашивай
Добавлено через 38 секунд newbie61, чем больше, тем лучше, ставь секунд 30, не промахнешься.
[quote=QaK;35012]TAMBIK, делаешь п1 - запускаешь таймер, в интервале ставишь, скклько надо тебе ждать, в обработчик таймера - п4 и стоп таймера, ну и проверяешь, если получил ответ на п1 и таймер.енабле = true тогда товет получили и тормозишь таймер.
Как-то так ... что непонятно - спрашивай
вот так ?
Код:
// п.1
procedure Action;
begin
timer5.enabled:=true;
end;
procedure OnTimer5(Sender: TObject);
begin
stopAttacka;
end;
// п.4
procedure stopAttaka;
begin
timer5.enabled:=false;
end;
procedure Init;
begin
timer5:=TTimer.Create(nil);
timer5.OnTimer:=@OnTimer5;
timer5.enabled:=false;
timer5.interval:=6000;
end;
procedure Free;
begin
Timer5.free;
end;
// п.2
begin
if FromServer and(pck[1]=#$33)and(ReadD(2)=myID) then
if timer5.enabled=true then timer5.enabled:=false;
end;
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
Последний раз редактировалось TAMBIK, 05.08.2009 в 13:17.