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

[Stasrus]

тип переменной разные ставил все равно ругается.
Еще такой вопроик как можно убить все пакеты кроме нетпинга сервер-клиент\клиент-сервер после получения 0x03 (EnterWorld)

[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, еще больше запутал))))

[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. =)