Code:
program AutoCraft;
{.include SRL\SRL.scar}
{.include SRL/SRL/Misc/Amount.scar}
const
bodycolor = 611335; //Body Color
hidecolor = 474629; //Hide Color
bank = 6648184; //Bank Color
var
alchstodo: Integer;
///////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//~~~~~~~~~~~~~~~~~~~~~~~~Do Not Touch Below~~~~~~~~~~~~~~~~~~~~~~~~~\\
///////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
procedure Craft;
begin
//Starting with blank inventory, only thread and needle.
//if(findcolortolerance(x,y,bank,103,96,343,170,5)) then
//Begin
//Mouse(x+random(3),y+random(3),2,2,false);
//ChooseOption(x,y,'Use-quickly');
//end else
//Writeln('Cannot find bank');
//end;
//Not needed yet
////////////End Of Banking//////////
if(findcolortolerance(x,y,hidecolor,552,212,718,461,5)) then
Begin
Mouse(x+random(3),y+random(3),2,2,true);
Wait(2000+random(500));
Mouse(576+random(4),230+random(4),2,2,true); //Uses Hide -> Needle
Wait(4200+random(2300));
Mouse(96+random(5),418+random(5),2,2,false);
ChooseOption(x,y,'Make 10'); //Starts Crafting
Wait(18000+random(5000)); // Waits on hides
end
if(findcolortolerance(x,y,bank,103,96,343,170,5)) then
Begin
Mouse(x+random(3),y+random(3),2,2,false);
ChooseOption(x,y,'Use-quickly');
Wait(4000+random(20));
end
if(findcolortolerance(x,y,bodycolor,552,212,718,461,5)) then
Begin
Mouse(x+random(3), y+random(3), 2,2, false);
Wait(2000+random(20));
ChooseOption(x,y,'Store All'); //Banked Hides
Wait(5300+random(53));
end
Mouse(134+random(3), 72+random(3), 2,2, false); // Withdraw hides, second bank
ChooseOption(x,y,'Withdraw All');
Wait(2000+random(200));
Mouse(483+random(1), 44+random(1),2,2,true); // Pulled more hides
//ChooseOption(x,y,'Off Private');
//if(findcolortolerance(x,y,1449042,731,176,752,205,5)) then
//begin
//end
writeln('Load Finished');
Craft;
end;
begin
DisguiseScar('RuneScape - the massive online adventure game by Jagex Ltd');
ActivateClient;
Craft;
writeln('Finished Crafting');
TerminateScript;
end.
Thanks, if its in the wrong section, you can move