AndyxD
07-12-2007, 12:17 PM
Hey All..
I just leaned how to code in SCAR so I've just made this..
Because I'm new, ill post only the script, so you wont go like, "He might post a virus".. Blah >.<
program AutoLogIn;
var
x,y: Integer;
procedure ClickClient;
begin
ClickMouse(101,13,true);
Wait(300+random(150));
end;
procedure ClickLogIn;
begin
ClickMouse(451,288,true);
Wait(200+random(200));
end;
procedure AccountName;
begin
SendKeys('ACCOUNT NAME'); //Change it to you're account name
Wait(200+random(200));
end;
procedure ClickPassword;
begin
ClickMouse(357,275,true);
Wait(200+random(200));
end;
procedure AccountPass;
begin
sendKeys('ACCOUNT PASSWORD');//Change it to you're account pass
wait(200+random(200));
end;
procedure LogIn;
Begin
ClickMouse(308,320,true);
Wait(6000);
end;
procedure ContinueToGame;
Begin
ClickMouse(390,329,true);
Wait(3000+random(1700));
end;
begin
ClickClient;
ClickLogIn;
AccountName;
ClickPassword;
AccountPass;
LogIn;
ContinueToGame;
end.
I just leaned how to code in SCAR so I've just made this..
Because I'm new, ill post only the script, so you wont go like, "He might post a virus".. Blah >.<
program AutoLogIn;
var
x,y: Integer;
procedure ClickClient;
begin
ClickMouse(101,13,true);
Wait(300+random(150));
end;
procedure ClickLogIn;
begin
ClickMouse(451,288,true);
Wait(200+random(200));
end;
procedure AccountName;
begin
SendKeys('ACCOUNT NAME'); //Change it to you're account name
Wait(200+random(200));
end;
procedure ClickPassword;
begin
ClickMouse(357,275,true);
Wait(200+random(200));
end;
procedure AccountPass;
begin
sendKeys('ACCOUNT PASSWORD');//Change it to you're account pass
wait(200+random(200));
end;
procedure LogIn;
Begin
ClickMouse(308,320,true);
Wait(6000);
end;
procedure ContinueToGame;
Begin
ClickMouse(390,329,true);
Wait(3000+random(1700));
end;
begin
ClickClient;
ClickLogIn;
AccountName;
ClickPassword;
AccountPass;
LogIn;
ContinueToGame;
end.