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.
Подскажите, а можно как-то сделать gateway не через маршрутизатор и т.д., а посредством Интернета?
__________________
Если вы умные в программировании и скриптописании это не значит что все такие умные! Относитесь, пожалуйста, с пониманием к таким людям!
Alexandr, щифрация трафика изменена, надо писать свою newxor.dll archimG, где скрины настроек и хроникик сервера? Попробуй вместо лсп-перехвата зать надежный.
Добавлено через 1 минуту midko, и как ты себе представляешь убирание лагов скриптом? может скрипт опреративки допаяет? или к процу несколько миллионов транзисторов присобачить?
Добавлено через 30 секунд Ma3aXakA, только ручками + brain.dll
может он про скрипт убивающий пакеты про дроп стрел (и тому подобного хлама)? но он гдето был тут...ищите вобщем
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
врядли ты сможеш юзать его на хелбаунде. из за хтмл который клиент хелбаунда не будет воспринимать.
В каком файле можно посмотреть.изменить сам код? Ты писал, что нужна серьезная переработка хтмл. Может я этим займусь? Искал в исходниках, не нашел. Кстати, клиенту даже не приходит пакет хтмл. Или его не показывает пакетхак
Добавлено через 2 минуты
Цитата:
Сообщение от midko
Друзья!
Срочно нужен скрипт чтобы убрать лаги когда хлапой выкидывают большое кол-во итемов в локации. Пожалуйста помогите!
Какие хроники? М.б. просто сделать скрипт, убивающий пакет дропа, если какой-нить серв с автоподбором.
Последний раз редактировалось spiritofsands, 16.02.2010 в 02:14.
Причина: Добавлено сообщение
В каком файле можно посмотреть.изменить сам код? Ты писал, что нужна серьезная переработка хтмл. Может я этим займусь? Искал в исходниках, не нашел. Кстати, клиенту даже не приходит пакет хтмл. Или его не показывает пакетхак
для начала сам скрипт поправь.. под хелбаунд.. или что там у тебя..
18 EE 42 A9 10 01 00 00 00 0B 00 00 00 DC 04 00 00
Код:
Var
i,p,mid,currentmainhp,currentmainmp,currentmaincp,maxmaincp : integer;
begin
case pck[1] of
#$18: //status update
begin
i:=2;
if readd(i)=mid then
begin
p:=1;
while p <= (readd(i)*2) do
begin
case readd(i) of
9: currentmainhp:=readd(i);
11: currentmainmp:=readd(i);
33:
begin
sendmsg('test1');
currentmaincp:=readd(i);
end;
34:
begin
sendmsg('test2');
maxmaincp:=readd(i);
end;
end;
p:=p+1;
end;
end;
end;
end;
end.
Скрипт не считівает никакое цп. Даже сообщения в лог тест1 и тест2 не пишутся. В чем я ошибся?
<это часть скрипта, отвечающая за обновление инфы>
Добавлено через 23 минуты
Проблему решил сам. Что было не так - хз, но вот рабочий вариант:
Код:
Var
i,p,mid,currentmainhp,currentmainmp,currentmaincp,maxmaincp : integer;
begin
case pck[1] of
#$18: //status update
begin
i:=2;
mid:=readd(i);
if mid=mid then
begin
for p:=1 to (readd(i)*2) do
begin
case readd(i) of
9:
begin
sendmsg('currentmainhp='+inttostr(currentmainhp));
currentmainhp:=readd(i);
end;
11:
begin
sendmsg('currentmainmp='+inttostr(currentmainmp));
currentmainmp:=readd(i);
end;
33:
begin
sendmsg('currentmaincp='+inttostr(currentmaincp));
currentmaincp:=readd(i);
end;
34:
begin
sendmsg('maxmaincp='+inttostr(maxmaincp));
maxmaincp:=readd(i);
end;
end;
end;
end;
end;
end;
end.
Последний раз редактировалось spiritofsands, 17.02.2010 в 23:36.
Причина: Добавлено сообщение