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.
Помогите со скриптом. Он должен вытаскивать ники из пакета Charinfo, составлять пакет , чтобы писал в приват. В данном случае он просто пишет одному и тому же челу много раз. как я понял тут надо сделать чтото вроде массива из ников... и чтобы вторая часть скрипта с таймером, брала по одному нику, отправляла а после удаляла из массива ник, или же можно просто чтобы перескакивала на следующий.
Последний раз редактировалось Breadfan, 17.06.2011 в 09:31.
Procedure OnTimer;
begin
buf:=#$38;
WriteS(text);
WriteD(2);
WriteS(nick);
SendToServerEx(Name);
Timer1.Enabled:=false;
end;
это первое. Второе: invterval:=5000 - значит в ситуациях когда будут приходить несколько чаринфо с интервалом менее 5 секунд - не всем им будет послано сообщение, надо делать чтото вроде буфера, для сбора ников...Хотя может это и к лучшему.
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 17.06.2011 в 09:30.
Я так и писал, что надо сделать массив. Но я не могу это сделать. Навыков мало. С массивами не лажу совсем. Но знаю что точно надо сделать массив, и чтобы ники не повторялись, надо сделать алгоритм проверки совпадений и только после этого заносить в массив ник.
Добавлено через 5 минут
Этот скрипт не то что надо. Он пишет в ПМ по много раз, стоит с перса снять пуху и шмот., пакет Charinfo приходит еще раз. Надо чтобы на каждого перса приходило тока 1 сообщение. Так что без базы ников никак. Помогайте плизз! может у кого уже есть алгоритмы
Последний раз редактировалось Хламчег, 17.06.2011 в 11:26.
Причина: Добавлено сообщение
С массивами не лажу совсем. Но знаю что точно надо сделать массив, и чтобы ники не повторялись, надо сделать алгоритм проверки совпадений и только после этого заносить в массив ник.
Посмотри готовые скрипты - боты/заточка/рыбалка/покупка и т.д. практически все работают с массивами.
Массив сделать не трудно и внести туда ники... Вопрос в том как сделать так чтобы ники не повторялись. Алгоритм удаления повротений можно сделать, но как сверять типы String ?
если пришел один => one:=true; если пришел второй and one then startTimer;
както так Оффтоп
delphi Код:
var
one:boolean;
..................
procedure init;
begin
one:=false;
end;
..............
if fromserver and(pck=pck1)then one:=true;
if fromserver and(pck=pck2)and one thenbegin
one:=false;
TimerEnabled:=true;
end;
это если я верно понял...если надо чтоб включался когда придет или один или другой, то: Оффтоп
delphi Код:
..............
if fromserver and((pck=pck1)or(pck=pck2))thenbegin
TimerEnabled:=true;
end;
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 19.06.2011 в 21:12.
в общем, смысл в том, что у меня есть таймер на посылку 2х пакетов.
Мне его надо включить сначала одним пакетом, срабатывает процедура таймера, сразу вырубается и ждет пакета, сначала будет 2 раза пакет одного типа, потом будет пакет другого типа!
во втором варианте где вы написали через or, если таймер включится одним пакетом, то 2м он уже потом не включится вроде так