OK I am a very new scripter, and I keep getting file access error in my script, halfway through, it just clicks on inventory, then stops. It sais file access error in my debug box. Heres script if it helps/
program edgevilleyewcutter;
{.include srl/srl.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
var x, y, LoadsNum, LoadsNum2: integer;
Procedure ClickOnExistingUserButton;
Begin
Mouse(426, 277,1,1,true);
Wait(1000+Random(2000));
WriteLn('Clicked Existing User Button');
end;
Procedure TypeInUserandPass;
Begin
TypeSend('griff721'); // username here!
wait(1000+Random(200));
TypeSend('password); // password here!
end;
Procedure CompleteLogin;
Begin
Mouse(303, 315,1,1,true);
WriteLn('Clicked login button');
WriteLn('Waiting For the Confirmation Screen!');
Wait(5000+Random(2000));
Mouse(388, 322,5,5,true);
wait(2000+Random(3000));
end;
procedure totrees;
begin
Mouse(674, 483,1,1,true);
Mouse(642, 431,1,1,true);
RadialWalk(361732,180,270,72,8,8);
end;
procedure FindTreeAndChopTree;
var CuttingTime: integer;
Tries: integer;
begin
MarkTime(CuttingTime);
MakeCompass('N');
repeat
if FindObjCustom(x, y, ['Yew'], [2060900, 1793357, 3305062], 7) then
begin
Mouse(x,y,0,0,false);
if(IsUpText('Chop'))then
Wait(5000 + (random(150)));
ChooseOption('Chop')
if (not (FindObjCustom(x, y, ['Yew'], [2060900, 1793357, 3305062], 7))) then
Wait(100+random(100));
Tries := Tries + 1;
if(Tries = 50)then
begin
Writeln ('Yew trees not found. Switching Players..');
Logout;
NextPlayer(False);
Exit;
end;
end;
until(InvFull) or (TimeFromMark(CuttingTime) > 800000+random(60000));
end;
begin
SetupSRL;
ActivateClient;
ClickOnExistingUserButton;
TypeInUserandPass;
CompleteLogin;
totrees
ChopTree
end.





Reply With Quote








, But really that tutorial was just a demo use Login Player via DeclarePlayers, soo much easier 