
Originally Posted by
yohojo8
This scipt is waay to simple and has no failsaifes.
For all we know it might get stuck in a loop forever!
Heh, It just did, while I was running it for a bit
Got 1k arrows though...
EDIT:
Now checks if it's logged out
SCAR Code:
program New;
{.include SRL/SRL.scar}
procedure DropArrows;
begin
if(FindColorTolerance(x, y, 138555, 554, 204, 609, 250, 5))then
begin
MouseBox(575, 220, 590, 233, 2);
ChooseOption(x, y, 'rop');
Wait(500 + Random(200));
end;
end;
procedure GetArrows;
begin
repeat
if(FindMSColorTol(x, y, 4079173, 5))or
FindMSColorTol(x, y, 265320, 5)then
MMouse(x, y, 2, 2);
until(IsUpText('ombat'));
begin
Mouse(x, y, 2, 2, False);
ChooseOption(x, y, 'Talk-to');
Wait(2000 + Random(500));
end;
end;
procedure PickupArrows;
begin
repeat
if(FindObj(x, y, 'arrow', 264273, 5))then
MMouse(x, y, 2, 2);
until(IsUpText('arrow'));
Mouse(x, y, 2, 2, True);
end;
procedure main;
begin
DropArrows;
GetArrows;
PickupArrows;
end;
begin
SetupSRL;
repeat
if(LoggedIn)then
main;
wait(500+random(500));
until(IsFKeydown(12))
end.