L2PHX counter - script problem

[Cafalorn]

I did the script, to counting, but unfortunately is out of order. What can the problem be in?

 

var
a:integer;
begin
for a:=0 to 2 do
buf:=#$49;
WriteS(a);
WriteD(0);
SendToServer;
end.

 

Screen here

 

sorry for my english. ThX

 

 

 

[mg13gr]

Use it like that:

 

var
a:integer;
begin
for a:=0 to 2 do
buf:=#$49;
WriteS('a');
WriteD(0);
SendToServer;
end.

 

There was a mistake.

[Cafalorn]

Use it like that:

 

var
a:integer;
begin
for a:=0 to 2 do
buf:=#$49;
WriteS('a');
WriteD(0);
SendToServer;
end.

 

There was a mistake.

 

Then I will see on chat only 'a' but i need 1,2,3,4...... from loop

[mg13gr]

Then I will see on chat only 'a' but i need 1,2,3,4...... from loop

Why you are not using in game macros? :S

[Cafalorn]

Why you are not using in game macros? :S

i need it for SPAM :) loop for a:=0 to 50000 do :) so could you help me please?

[mg13gr]

i need it for SPAM :) loop for a:=0 to 50000 do :) so could you help me please?

Give me some minutes, I'll log in and try to code it properly.

[mg13gr]

Well, I tried but didn't manage to made a timer.

You just need to spam or it's necessary to countdown?

[Cafalorn]

Well, I tried but didn't manage to made a timer.

You just need to spam or it's necessary to countdown?

 

necessary :( i need countdown, if you can ofc

[mg13gr]

Ι can't sorry.

[Cafalorn]

Ι can't sorry.

I thank for the interest, if I dont make this scipt i will try L2net. Thanks a lot

[mg13gr]

I thank for the interest, if I dont make this scipt i will try L2net. Thanks a lot

My pleasure dude.

I wish you good luck.

[˚کe®κ]

Program arrayz;
uses crt;

Const
max = 5000;

VAR
marks : array [1..MAX] of integer;
a : integer;
begin
for a := 1 to MAX do
begin
buf:=#$49;
WriteS(a);
WriteD(0);
SendToServer;
end.
end;

 

no tested

[Cafalorn]

Program arrayz;
uses crt;

Const
max = 5000;

VAR
marks : array [1..MAX] of integer;
a : integer;
begin
for a := 1 to MAX do
begin
buf:=#$49;
WriteS(a);
WriteD(0);
SendToServer;
end.
end;

 

no tested

the same problem :(. In l2 phx numbers must be in

''

for example loop:

for a:=0 to 2 do

 

and it looks

WriteS('0');

WriteS('1');

WriteS('2');

 

but i need place it by variable a, so it must be

WriteS(a) but I need to add to that letter exactly these quotation marks

 

 

 

[˚کe®κ]

i dont have time to test the code is working in delphi

[iNos]

the problem is that you are trying to call WriteS (write a string) using an integer variable

 

try to use this

var
a:integer;
begin
for a:=0 to 2 do
buf:=#$49;
WriteS(IntToStr(a));
WriteD(0);
SendToServer;
end.