SCAR Code:
{LumbridgeLogBuyer By: Eicca
All players must be at the very center of the lumbridge.}
program LLB;
{.include SRL\SRL.scar}
var colorofgsmark, colorofshopkeeper, logcolor, staircolor, k, r, a, s: Integer;
procedure ToShop;
begin
colorofgsmark := 922711 //<--
colorofshopkeeper := 3103108 //<--
logcolor := 3430257 //<--
staircolor := 866395 //<--
MakeCompass('N');
Mouse(647, 11, 0, 0, True);
Wait(25000+random(2000));
FindMMColor(x, y, colorofgsmark);
Mouse(x, y, 0, 0, True);
writeln('we got in to the shop (i think)');
Wait(8000+random(2000));
end;
procedure BuyLogs;
begin
if FindObj(x, y, 'Shop', colorofshopkeeper, 50)
then
begin
writeln('found shop assistant');
Mouse(x, y, 2, 1, False);
GetMousePos(x, y);
ChooseOption(x, y, 'rade')
Wait(5000+random(1000));
if(FindObj(x, y, 'Log', logcolor, 50))
then
begin
writeln('found logs');
k := x;
r := y;
a := x;
s := y;
Mouse(x, y, 0, 0, False);
ChooseOption(x, y, '10');
Mouse(k, r, 0, 0, False);
ChooseOption(k, r, '10');
Mouse(a, s, 0, 0, False);
ChooseOption(a, s, '10');
writeln('bought logs');
end else
begin
writeln('didnt find shop assistant!');
end;
end else
begin
writeln('didnt find logs!');
end;
end;
procedure ToBank;
begin
MakeCompass('N');
Mouse(643, 153, 0, 0, True);
Wait(30000+random(5000));
FindMMColor(x, y, staircolor);
Mouse(x, y, 0, 0, True);
end;
begin
Mouse(750, 17, 0, 0, True);
ToShop;
BuyLogs;
ToBank;
end.