SCAR Code:
program BuzzysSilkBuyer;
{.include SRL/SRL.scar}
//1. Start logged out in the third to last bank slot in Alkharid Bank with nothing in inventory.
//2. Setup lines 16-18
//3. Press run, compile time may take awhile so sit tight.
var
Loads: Integer;
MoneySpent: Integer;
SilkBought: Integer;
Silktemp: Integer;
const
UserName= '';
Password= '';
LoadsToDo= 10000;
procedure LogIn; //can you tell this logs you in?
begin
Mouse(459, 291, 0, 0, true);
Typesend(UserName);
wait(100+random(50));
Typesend(Password);
Mouse(311, 324, 0, 0, true);
wait(5000+random(3000));
Mouse(391, 350, 4, 4, true);
wait(2000+random(2000));
end;
procedure GetCash; //only works if your right next to the bank window
begin
MakeCompass('n');
HighestAngle;
if(FindColortolerance(x,y,6119269,177, 115,205, 187,20))then
Mouse(x,y,1,1,false);
Mouse(x,y+40,3,4,true);
wait(3000+random(1000));
Mouse(93, 78,2,1,false);
wait(1000+random(500));
Mouse(77,165,1,1,true);
wait(1500+random(500));
typesend('81'); //you need 81 coins for 27 silk at 3gp ea
mouse(486, 41,2,3,true)
wait(1500+random(500));
end;
procedure GotoSeller; //haven't gotten to fully work yet
begin
setrun(true);
if(FindColor(x,y,4292432,668, 58,689, 118))then
Mouse(x,y,1,1,true);
wait(3500+random(500));
if(FindColor(x,y,1858609,661, 18,689, 39))then
mouse(x,y,1,1,true);
wait(5000+random(1000));
if(FindColor(x,y,1146779,681, 76,697, 86))then
mouse(x,y,1,1,true);
wait(8000+random(2000));
Mouse(668, 27,3,4,true);
wait(8000+random(2000));
if(FindColor(x,y,7082653,626, 30,663, 64))then
end;
procedure BuySilk; //can't get to click seller, but otherwise works.
begin
silktemp:= 0;
repeat
silktemp:= silktemp + 1;
if(FindColortolerance(x,y,12413886,175, 105,517, 338,20))then
mouse(x,y,1,1,true);
wait(3000+random(1000));
Mouse(302,447,10,3,true);
wait(1000+random(750));
Mouse(245, 396, 10, 1, true);
wait(1000+random(750));
Mouse(302, 447, 10, 3, true);
wait(1000+random(750));
Mouse(302, 447, 10, 3, true);
wait(1000+random(750));
Mouse(309, 428, 10, 2, true);
wait(1000+random(750));
Mouse(302, 447, 10, 3, true);
wait(1000+random(750));
Mouse(302, 447, 10, 3, true);
until(silktemp >=27);
end;
begin
SetupSRL;
LogIn;
GetCash;
GotoSeller;
BuySilk;
end.