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.
Когда жму выполнить ничего не происходит, по идее должен появиться текст в шауте "Хелло"? юзаю l2phx 3.4.1.61, сервер ИЛ ПТС С6. Что-то может я не поставил в пакетнике?
Название (урл) сервера. Скриншоты настроек и пакетхака при зашедшем чаре выложи.
Подопытный пакет...
Вопрос:
После второго begin, i ведь равняется 2+8=10?, просто если я ставлю i:= 10, то скрипт не работает... Мне надо по сути считать ник из пакета(он выделен), объясните плз разницу мне, т.к. я delphi не учил, а учу через пх
i := 2; //i=2if ReadD(i) = 380then{S1_PURCHASED_S3_S2_s}//i=6begin
i := i + 2*4; //i = 14
name := ReadS(i);
все ReadX при передаче им переменной смещают переменную на длинну прочитаного значения.
после ReadD(i) в твоем случае i будет равен 2(инициализировано) + 4(ReadD)
Добавлено через 1 минуту
ничего не мешает тебе использовать
if ReadD(2) = .....
а вот со строками, если требуеться читать чтото "за ними" так не получится. ибо никто не знает какой длинны строка может быть. тут - использовать переменные.
__________________
L2Ext - project closed.
Последний раз редактировалось alexteam, 02.09.2009 в 23:16.
Причина: Добавлено сообщение
в твоем случае ничего не значат т.к. пакеты есть целове и не делимое и только зная структуру можно определить что есть что 51 01 00 00 в десятеричной системе это 1392574464 если брать 4 байта, если 51 01 как 2 байта то чило 20737.