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)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
const
Name='';
var MyID:Word;
OID:String;
begin
if (FromServer) and (pck[1]=#$27) and (ReadD(12)=726) then
OID:=pck[8]+pck[9]+pck[10]+pck[11];
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(82)<=400) then //400 - кол-во MP при котором начнется пьянка.
begin
buf:=#$14+OID+#$00#$00#$00#$00;
SendToServerEx(Name);
end;
end.
работает каряво, постоянно пьет МР банки пока не зальет полностю, на "400 - кол-во MP при котором начнется пьянка " даже не смотрит.
кроме того пьет не через каждые 15 сек а постоянно систем чат аж разрывается...
помогите разобратся, надо чтобы пил только при определенном кол-ве МП, предполагаю что ошибка здесь: if (ReadD(82)<=400), возможно вместо 82 другая цифра должна быть и скрипт просто не туда смотрит, но пакет UserInfo настолько большой я не смог найти там CurrentMP, да и вобще не знаю как искать конкретный кусок
возможно вместо 82 другая цифра должна быть и скрипт просто не туда смотрит, но пакет UserInfo настолько большой я не смог найти там CurrentMP, да и вобще не знаю как искать конкретный кусок
Скачай 4 версию пакетхака. Там для своего чара можно посмотреть смещение для MP. Смещение зависит от длины имени, поэтому разное.
тут только один момент - если используются несколько окон, то в OnTimer неопределенность куда посылать пакет, надо использовать SendToServerExt и явно указывать соединение
ок, спс.
вот тока я не понимаю как старые скрипты типа "Бот - локомотив", или скрипт на бутылки НР определяют это самое смещение, причем я их включаю на разных персах с разными именами и всегда работает