bloodargon
2008-03-24 16:21:25
Hello all.
Im making a request for a simple crafter. I have a out of date one I made myself, but primitive and wont work with the newest SCAR/SRL.
What I need it to do is…
-Craft dragon hide leather into a body
-Bank
-Repeat.
Very simple. No need for anti randoms as Ill be at PC bank.
Auto talker would be cool, and if possible make it SMART compatible. If not, no worries. Anti ban I guess is good?
Hopefully someone can help, if not, perhaps tell me how to make this old one (3.01 Divi, same version SRL about) work with a new one?
Below is a template for any graphics you may need.
Im making a request for a simple crafter. I have a out of date one I made myself, but primitive and wont work with the newest SCAR/SRL.
What I need it to do is…
-Craft dragon hide leather into a body
-Bank
-Repeat.
Very simple. No need for anti randoms as Ill be at PC bank.
Auto talker would be cool, and if possible make it SMART compatible. If not, no worries. Anti ban I guess is good?
Hopefully someone can help, if not, perhaps tell me how to make this old one (3.01 Divi, same version SRL about) work with a new one?
program AutoCrafter;
{.include SRL/SRL.scar}
const
bodycolor = 611335; //Body Color
hidecolor = 474629; //Hide Color
bank = 6648184; //Bank Color
///////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//~~~~~~~~~~~~~~~~~~~~~~~~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(1000+random(700));
Mouse(576+random(4),230+random(4),2,2,true); //Uses Hide -> Needle
Wait(2200+random(1300));
Mouse(96+random(5),418+random(5),2,2,false);
ChooseOption(x,y,'Make 10'); //Starts Crafting
Wait(14000+random(2000)); // 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(2000+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(2300+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.
Below is a template for any graphics you may need.