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.
Конечно не получилось. А откуда между Repeat и until в pck возмется новое значение? Проверяй как написали выше. При каждом приходе пакета. Если нужно перехватить именно после отправки то введи дополнительную переменную.
v0ltag3,
добавляешь в раздел описания переменных новую переменную, при иницаализации скрипта обнуляешь ее, при срабатывании условия ставишь нужное тебе значение.
delphi Код:
var var_1:integer;
procedure Init;
begin//......................
var_1:=0;
//......................end;
//......................begin//...............//..........//при каких-нибудь действиях, например, после юз итем ставишь
var_1:=1;
//................//после этого ставишь дополнительное условиеif pck[1]=#$7C thenbeginif var_1=1then//обнуляем переменную
var_1:=0;
//ну и проверяешь, если {.........}if var_1=0then UseItem(1234{юзаем следующий итем});
end;
//...............end;