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.
тип переменной разные ставил все равно ругается.
Еще такой вопроик как можно убить все пакеты кроме нетпинга сервер-клиент\клиент-сервер после получения 0x03 (EnterWorld)
var
flag:boolean;
procedure Init;
begin
flag:=true;
end;
begin
if (pck[1]=#$03) then flag:=false;
if flag then exit;
if FromServer and (pck[1]<>#$D3) then pck:='';
if FromClient and (pck[1]<>A8) then pck:='';
end.
Добавлено через 2 минуты ratvier, еще больше запутал))))
Последний раз редактировалось Sieg, 22.03.2009 в 03:44.
Причина: Добавлено сообщение
Hi, i'm new to this forum, and i understand Russian perfectly, but have some problem with writing on Russian keyboard anyway, i wonder if someone could help me with my little project:
1. I have packets, lets say
a1
a2
a3
...
2. i need a script (on l2phx 3.4.x), to send them to server, but with delay after each of them for about 4-5 seconds.
3. after last packet was sent, begin everything from the first packet.
thank U in advance
Последний раз редактировалось tester, 23.03.2009 в 22:47.
No, i need to send packets to server, i'm making kin of bot, but programing was my weak point in college So, is there an easy and fast way to make this script? the main part is to make a delay of 4-5 s. between sending packages, but as far as i tried, didn't succeeded
Thanks for very fast answer
Последний раз редактировалось tester, 23.03.2009 в 23:06.
tester, Hello. I had similar problem with my crafter-bot. So, here's my way to solve it:
Код:
const
maxBufferSize = 5; //for example. change it according to your needs
var
delayedPackets: array[1..maxBufferSize] of String;
packetIndex, packetEnd : integer;
delayedPacketTimer :TTimer;
procedure sendDelayedPacket;
begin
buf:=delayedPackets[packetIndex];
SendToServer; //use 'SendToServerEx' here if it's required
//if (packetIndex=packetEnd) then delayedPacketTimer.enabled:=false; //uncomment this if you don't want the process to be endless
inc(packetIndex);
if (packetIndex>maxBufferSize) then packetIndex:=1;
end;
procedure Init;
begin
packetIndex:=1;
packetEnd:=1;
//here you can set packet's values, that you want to be sent with delay
//...or do it somewhere in script later
delayedPackets[1]:=HStr('bla-bla-bla');
delayedPackets[2]:=HStr('bla-bla-bla');
delayedPackets[3]:=HStr('bla-bla-bla');
//...and so on
delayedPacketTimer:=TTimer.Create(nil);
delayedPacketTimer.OnTimer:=@SendDelayedPacket;
delayedPacketTimer.interval:=5000; //set here required interval at wich packets will be sent. You can change it later in you script also.
delayedPacketTimer.enabled:=false; //set it to 'true' to start packets parcel
end;
procedure Free;
begin
delayedPacketTimer.enabled:=false;
delayedPacketTimer.Free;
end;
begin
if FromClient and (pck[1]=#$1b) and (pck[2]=#$04) then delayedPacketTimer.enabled:=true; //activates the parcel when you press social 'Advance' or type '/socialcharge' in game
end.
Подскажите как сделать скрипт на продажу, у меня есть пакет, в нем есть впринципе все что нужно, но предмет не стопковый (лайф стоун) и objectID при каждой новой продаже меняется... нужно чтоб скрипт продавал предметы одного ID пока они не кончатся.