PHP Code:
// --- Feather Buyer ---
//[ Start in fishing shop logged in, and thats it]
program Feathers;
{.include SRL/SRL.scar}
function FindGerrant:Boolean; //taken from delux feather buyer.
begin
if(GetColor(342, 44)=2070783)then
begin
Result:=True;
Exit;
end;
x:=246;
y:=163;
if(FindColorSpiralTolerance(x,y,6785945,10,10,500,330,3))or
(FindColorSpiralTolerance(x,y,7708590,10,10,500,330,3))or
(FindColorSpiralTolerance(x,y,7444904,10,10,500,330,3))then
begin
Mouse(x,y,3,3,False);
Wait(100+random(50));
if(Option2('Talk'))or
(IsUpText('Talk'))then
begin
Mouse(x,y,3,3,false);
Sleep(100+random(20));
ChooseOption(x,y,'Trade');
Flag;
Sleep(1000+Random(1000));
end;
end;
end;
Procedure Buyfeather;
begin
Mouse(500, 287, 20, 20,false);
if(isuptext('Buy 10')) then
begin
Mouse(486, 356, 20, 20,true);
end;
end;
Begin
SetupSRL;
Repeat
if(FindGerrant = true) then
Buyfeather;
until(false)
end.