need help with repeat command

[vagtastic]

okay, lets say i make a program that has 506 constants.. p1 - p506
now i want the repeat command to type a username and then a pass like so

Code: [Select]

begin
clickmouse(400,315,true); <= click okay if pass is wrong incase it's up

clickmouse(113,360,true); <= click play game
wait(1000);
sendtype('User');
clickmouse(461, 381,true); <= clicks pass textbox
wait(1000);
sendtype(p1);
wait(500);
writeln(p1); <=tells me what pass i'm on
clickmouse(400,315,true); <= clicks okay if pass is wrong

end.
how can i make it so i don't have to type this 506 times, replacing p1 with the given constant.

any help would be greatly appreciated =]

*before you judge me and my program, this is to get back an account i lost

not sure how much it matters, but i'm required to use scar 3.12

[Freddy]

Why SCAR 3.12? Also you can't just make a loop that uses 506 constants, you should make it some kind of array or generate the data at runtime...

[vagtastic]

i'm using 3.12 because the new version doesn't work for typing on endless online
(i have a thread about this in the EO section)

and thank you for the tip.. every little bit helps..

i must have been thinking illogically with looping this

[Freddy]

SendType isn't a default SCAR function, where does it come from?

[vagtastic]

roll back much? lol

i found these in an auto script and applied them

Code: (scar) [Select]

procedure TypeByte(k: Byte);
begin
  KeyDown(k);
  wait(25 + Random(40));
  KeyUp(k);
end;

procedure SendType(Text: String);
var
  i: Integer;
begin
  for i := 1 to Length(Text) do
  begin
    TypeByte(GetKeyCode(Text[i]));
    Wait(50 + Random(60));
  end;
  wait(200 + Random(500));
  TypeByte(13);
end;

[Freddy]

Didn't roll back at all... Hmm, I'll check into that typing then I guess