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.
на вид все верно, но когда из первого окна (чар1) создаю пати со вторым окном (чар2), у чара1 пишет что чар1 принят в пати а во втором вообще ничего не происходит. Что не так?
Вот пробую напмсать скрипт автопринятие пати с задержкой ... на вид все верно. Что не так?
Даже на вид все неверно.
Раз у тебя запущено 2 клиента то отправляй пакеты именно в те соединия какие надо, а не во все, т.е. юзай ф-ции SendToServerEx. И принимай тоже не все пакеты а именно с того соединения которого ожидаешь, т.е. должны быть проверки ConnectionName = ...
Я в общем сильно в твой скрипт не всматривался, но он режет глаз даже при беглом просмотре
Последний раз редактировалось MHz, 27.07.2008 в 17:30.
Причина: более внимательно всмотрелся в скрипт
Надо панимать что 1 скрипт работает в одном адресном пространстве на все соединения?
угу,
нужно сдклать типа следующее:
delphi Код:
If FromServer and(ConnectName='тот, кто должен принять пати')and(pck[1]=#$39)and('тот,кто должен кинуть пати'=ReadS(2))then Timer.Enabled:=True;
procedure AnswerJoinParty(Sender: TObject);
begin
buf:=hstr('2A 01 00 00 00');
SendToServerEx('тот, кто должен принимать пати');
timer.enabled :=false;
end;
это снова я)
наткнулся на простенький скрипт на авто подачу НР-бутылок:
Код:
//by 6yDDucT
//автоматическое использование НР пробирок
var MyID:Word;
OID:String;
begin
if FromServer and (pck[1]=#$27) and (ReadD(12)=1060) then
OID:=pck[8]+pck[9]+pck[10]+pck[11]; //1060 - idItem'a который мы хотим юзать, в данном случае Lesser Healing Potion
if FromServer and (pck[1]=#$04) then MyID:=ReadD(18);
if FromServer and (pck[1]=#$0e) and (ReadD(2)=MyID) then
if ReadD(6)=4 then
if (ReadD(14)<=400) then //400 - кол-во ХП при котором начнется пьянка.
begin
buf:=#$14+OID+#$00#$00#$00#$00;
SendToServer;
end;
end.
чето не вдупляю как заставить его пить МР бутылки вместо НР ?? (играю на эбисе) если я не ошибаюсь юзается пакет charinfo, как его расшифровать? обьясните плиз русским языком чтоб я понял...
Последний раз редактировалось -=Ma}{imuS=-, 28.07.2008 в 23:11.
Причина: ошибка в коде
надо всего лишь поменять 1060 на айди мана драга ивсе, а чар инфо тебе не нужен
Добавлено через 23 минуты
фу неправда нужен еще как, вот наваял
delphi Код:
//by 6yDDucT//edit by metalFan (Mana)//автоматическое использование Mana Drugconst name=('metalFan');
var MyID:Word;
OID:String;
beginif(FromServer)and(ConnectName=name)and(pck[1]=#$27)and(ReadD(12)=726)then
OID:=pck[8]+pck[9]+pck[10]+pck[11];
if FromServer and(ConnectName=name)and(pck[1]=#$04)then MyID:=ReadD(18);
if FromServer and(ConnectName=name)and(pck[1]=#$0e)and(ReadD(2)=MyID)thenif ReadD(6)=4thenif(ReadD(82)<=351)then//400 - кол-во MP при котором начнется пьянка.begin
buf:=#$14+OID+#$00#$00#$00#$00;
SendToServerEx(name);
end;
end.
жду пасипки
Последний раз редактировалось metalFan, 28.07.2008 в 23:53.
Причина: Добавлено сообщение
За это сообщение metalFan нажился 2 спасибками от:
дико извиняюсь за оффтоп.. пакет хак еще не начинал осваивать.. увидел мессагу про паскаль.. глянул на код.. бля.. а ведь и вправду знакомо!!!
язык паскаля на 100% совпадает или только основа?
В Пакетхаке используется FastScript для поддержки скриптов. FastScript понимает паскаль - можно пользоваться и несколько других языков, в частности си, которые нельзя применять в пакетхаке. Вот ссылка на сайт FastScript, там можно взять мануал.
Последний раз редактировалось NLObP, 29.07.2008 в 00:09.