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.
††JoOD††,
оставь пакеты как в 896 сообщение
в скрипте изменить ЗДЕСЬ
попрбуй предметы будит видить
Код:
begin
j:=4; //смещение для ListCount
ListCount:=ReadH(j); //количество итемов не должно превышать max!
for i:=1 to maxitems do
if (i<=ListCount) then begin
BaseItems[i,1]:=ReadH(j); //ItemType1
BaseItems[i,2]:=ReadD(j); //ObjectID
BaseItems[i,3]:=ReadD(j); //ItemID
BaseItems[i,4]:=ReadD(j); //LocationSlot
BaseItems[i,5]:=ReadD(j); //Count
j:=j+4; // <<== ДОБАВИТЬ
BaseItems[i,6]:=ReadH(j); //ItemType2
BaseItems[i,7]:=ReadH(j); //CustomType1
BaseItems[i,8]:=ReadH(j); //isEquipped
BaseItems[i,9]:=ReadD(j); //BodyPart
BaseItems[i,10]:=ReadH(j); //EnchantLevel
BaseItems[i,11]:=ReadH(j); //CustType2
BaseItems[i,12]:=ReadH(j); //<<== ИЗМЕНИТЬ
//debugmsg('OID='+inttostr(BaseItems[i,2])+' ID='+inttostr(BaseItems[i,3]));
inc(j,38);// <<== ИЗМЕНИТЬ
end else for k:=1 to 12 do BaseItems[i,k]:=0; // забиваем нулями
//вносим изменения в чекбоксы
StringList.Clear;
try
//debugmsg('OID='+inttostr(BaseItems[i,2])+' ID='+inttostr(BaseItems[i,3]));
inc(j,38);// <<== ИЗМЕНИТЬ
здесь наверно я ошибся пробуй 28
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
дык. значит текущая дирректория у пх не сеттингс.
найди в скрипте
ItemsName.LoadFromFile('itemsid.ini');
пропиши полный путь к нему (чтобы точно находило)
на манер
ItemsName.LoadFromFile('d:\hp\settings\itemsid.ini ');
этот вопрос пиццотпидисят раз подымался... кстати..
народ не прёт чёта ваащеЕ.....не знаю что тут не правельно...((уже наверн мы всё тут перебрали а не пашет((ща серв закрыли на обновление его...зашёл на другой...так там такая же фигня...не видет и всё тут(
может йя выложу ссылку на сервак и каждый сам попробует с ним разобраться???прост уже второй серв и такая ошибка...как то странно выходит....
Последний раз редактировалось ††JoOD††, 25.09.2009 в 19:26.
В L2phx 3.4.1.68 Всё ок! Конектится, видит клиент, видит чара залогиненного! Но! При выполнении скрипта на логическое условие
if FromClient then
никогда не реагирует, хотя и пакеты идут вроди бы! да и вообще, что-то отправить на клиент через скрипт невозможно! Только готовый пакет, через вкладку "посылка"! Переменные pck и buf всегда пустые