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секунды от клиента идет пакет же типа где он ща находится а сервер если есть отклонение уже коректирует.
cepreu, Повтор пакетов лучше оформить через таймер
например
delphi Код:
Var
Timer : TTimer;
procedure Init; //Вызывается при включении скриптаbegin
Timer :=TTimer.Create(nil);
Timer.enabled :=false; //таймер выключен
Timer.OnTimer :=@MyAction; //адрес процедуры, //которая будет выполнятся
Timer.interval :=2000; //интервал в мсend;
procedure Free; //Вызывается при выключении скриптаbegin
Timer.Free;
end;
procedure MyAction(Sender: TObject);
begin
buf:=hstr('бла бла бла'); // тут вписываешь пакет
SendToServerEx('а тут имя соединения');
end;
//основная часть скрипта//вызывается при приходе каждого пакета если скрипт включенbegin
......
//сочиняешь по какому условия включить таймер
Timer.enabled :=true//и соответственно выключить
Timer.enabled :=false;
end;
end.
чет все повымирали( немного разобрался, вопрос очень важный!
Есть ли команда что бы из декса в хекс и на оборот.?
2)какую использовать команду, чтобы алгоритм между begin и and выполнялся единожды и больше никогда,?
оба вопросы как раз по теме и ответа ни них нет потомучто они заданы неверно.. ни ДЕКС ни ХЕКС формат - ДЕЛЬФИ-паскаль-ФАСТСКРИТ-ПАКЕТХАК не понимает.. нет у них таких типов данных.. есть БАЙТЫ данных.. ячейки памяти.. которые можно представить ввиде целого 4-х байтного числа, либо 2-х байтового либо сопостовлять каждому байту какойто символ из алфавита (CHAR) в масиве ето STRING.. ну если тебе из СТРИНГА ХЕКС надо сделать СТРИНГ- ДЕКС то такие функции есть но они громоздки и для программирования скриптов 99% не нужны.. нафига тебе в скрипте строка с текстом "8а"? может просто ты незнаеш как с типами данных работать и преобразовывать то ты вопрос подругому както задай что тебе нужно то..
а по второму вопросу: Бегин и ЕНД - их в скрипте куча.. и то что между ними не повторяется никогда само по себе... бегин и енд- ето всё равно что скобки () в синтаксисе языка.. например :
FOR i:=0 to 10 do
begin
//действие
end;
то что между бегин и енд будет выполнено 10 раз.. потомцчто цикл указан.. уфф ну ето основы паскаля, дельфи, фаск-скрипт, пакетхак..
кароч задавай вопрос лучше развернуто..
__________________
Цитата:
Сообщение от pybukon
прежде чета попросить я немнога раскажу чтоб вы понили как мне плоха
Цитата:
Сообщение от Byrger
А как сделать мой скрипт бесконечным?
Цитата:
Сообщение от XKOR
.. каждый день ионизированной ногой протирает больную)
Цитата:
Сообщение от PsyR
Вылоджите пожалуйста скрипт на рыбалку желательно что бы сам в ВХ клал адаптированый под шоки и так же скрипт на ТТ рец, тоже с диалогами
Написал скрипт на заточку, все настроено на очень продолжительную работу,т.е идет закупка точек и смена оружия, но через некоторое время в верии lhx 75 возникает ошибка List index out of bounds (4999), а 82 почти сразу же зависает. хроники - Грация. ItemsID последний. В чем может быть проблема никто не подскажет?
Всем добрый день. Прошу отнестись с пониманием и не судить очень строго.
Решил я написать скрипт на кач... и самое первое с чем я столкнулся, к моему сожалению, я незнаю как прописать таргет на моба ибо как оказалось в пакетах ID моба, с одним и тем же именем, разный
В инете нигде ничего такого я ненашол, я чувствую что чегото недочитал или не понимаю... но всёже прошу помочь.
Weik, не путай НПЦ ИД и обджект ид, НПЦ ИД - это идентификатор типа моба, а Обджект ИД - уникальный идентификатор, для каждой вещи/моба/непися/чара в игре он свой.