Hi i am having a problem with my first script just trying to get it to login and move the mouse around the screen a couple of times.
If i remove the loggin part the mouse does what it is supposed to.
here is my code:
SCAR Code:
program Auto;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
var LoopCount: integer;
procedure FunkyMouse;
begin
MMouse(0+random(50),0+random(50),0,0);
wait(100+random(50));
MMouse(200+random(50),0+random(50),0,0);
wait(100+random(50));
MMouse(200+random(50),200+random(50),0,0);
wait(100+random(50));
MMouse(0+random(50),200+random(50),0,0);
wait(100+random(50));
MMouse(0+random(50),0+random(50),0,0);
end;
Procedure InitPlayers;
begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='username';
Players[0].Pass :='password';
Players[0].Nick :='nick';
Players[0].Loc :='yourloc';
Players[0].Skill:='yourskill';
Players[0].Active:=True;
end;
begin
LoopCount := 0;
SetupSRL;
ActivateClient;
InitPlayers;
if(not(LoggedIn))then
begin
writeln('Logging In ');
LoginPlayer;
end;
writeln('here');
repeat
LoopCount := LoopCount + 1;
FunkyMouse;
until(LoopCount > 2);
end.
It does eventually move the mouse after about 10 minutes its like there is a wait(6000000) somewhere and i even looked in login.scar and that seems to be all ok.
Any help would be greatly appreciated.