Кружок нубов(Вопрос-Ответ)

[DeVolf]

//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.

где я ошибся?

[Sieg]

Сообщение от Stasrus

тип переменной разные ставил все равно ругается.
Еще такой вопроик как можно убить все пакеты кроме нетпинга сервер-клиент\клиент-сервер после получения 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, еще больше запутал))))

[Limpid]

Люди подскажите с чего надо начать что бы писать скрипты?
И если можно полезные ссылки.

[Sieg]

2Limpid
1. Turbo Pascal 7.0
2. http://coderx.ru/showthread.php?t=10
3. http://forum.coderx.ru/uploads/fs.rtf

[PanAm]

Stasrus,

var
  tmp1 : string;
begin
  tmp1[2] := char(Ord(tmp1[2]) xor $FF);
end;

[tester]

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

[QaK]

tester, ты уверен, что теб нужно посылать именно клиенту пакеты?

[tester]

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

[Sieg]

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.

Something like this... Enjoy. =)

[Timekiller]

Подскажите как сделать скрипт на продажу, у меня есть пакет, в нем есть впринципе все что нужно, но предмет не стопковый (лайф стоун) и objectID при каждой новой продаже меняется... нужно чтоб скрипт продавал предметы одного ID пока они не кончатся.

[ake1a]

Ребят помогите пожалуста...Недавно начал вести работу с ПХ ....
У меня есть пакет (NpcHtmlMessage), Сам код ХТМЛ

<tr><td><button value="A Weapons" action="bypass -h npc_268476135_Buy 350010" width=75 height=21 back="L2UI_ch3.Btn1_normalOn" fore="L2UI_ch3.Btn1_normal"></td><td><button value="A Armors" action="bypass -h npc_268476135_Buy 350011" width=75 height=21 back="L2UI_ch3.Btn1_normalOn" fore="L2UI_ch3.Btn1_normal"></td><td><button value="Jewels" action="bypass -h npc_268476135_Buy 350012" width=75 height=21 back="L2UI_ch3.Btn1_normalOn" fore="L2UI_ch3.Btn1_normal"></td></tr>

У меня вопрос.... что надо сделать чтобы ПХ автоматически нажимала на ету опцию в ГМшопе, выбирала пуху и покупала ее?
____________________
Help ....