SCAR Code:
{----------------------------------------------------------------------------}
{----------------------------Arrow Buyer V1.1!---------------------------------}
{----------------------------By:3Garrett3!-----------------------------------}
{----------------------------------------------------------------------------}
{Instructions!!!- Setup Lines 15-16. Be in Lowes store and have it on low detail}
{Credits: JAD, Markus, Yohojo8, Jason2gs, WT-Fakawi, and RScheater13 for
letting me use his Feather buyer to start this}
program Arrowbuyer;
{.include SRL/SRL.scar}
var BrArrow : Integer;
Bought : Integer;
IrArrow : Integer;
Lowe : Integer;
const
ArrowType=('Iron'); //Type of arrow you want to buy (Bronze or Iron)
Buying= 20; //How many you want to buy
{--------------Writes a Progress Report------------------------------------}
procedure Report;
begin
Writeln('[]========================================[]');
Writeln('---------------->Progress Report<-----------');
Writeln('------Worked For : ' + ScriptTime2(2) + '---')
Writeln(' Bought ' + IntToStr(Bought) + ' Arrows ' + '');
Writeln('[]========================================[]');
end;
procedure LoadDTMS;
begin
Writeln ('Loading DTMs')
BrArrow:= DTMFromString('78DA631467606090634001D922BC0CFF81342' +
'310FF07024605204392010D302291405A1048881250C309241409' +
'A801C9F3105003728B327E350096CF06C0');
IrArrow:= DTMFromString('78DA630C616060B06640013161610C3A8C0C0' +
'C40C4F01F0818BD818C000634C0C820C9005103E6B9020927026A' +
'A281843901357E40C28C801A4720E143404D1090F0C2AF0600EE3' +
'D09CC');
Writeln ('Done loading DTMs')
end;
Procedure BuyBrnz;
begin
if(Not(ArrowType = 'Bronze'))then
Begin
Exit;
End
else
if (ArrowType = 'Bronze')then
begin
Writeln ('Bronze Arrows Being Bought')
FindDTM(BrArrow,x,y,1, 1, 200, 200)
Mouse(x, y, 2, 2, False);
ChooseOption(x, y, '10');
Wait(1000+random(300));
Bought:= Bought + 10
end;
end;
Procedure BuyIrn;
begin
if(Not(ArrowType = 'Iron'))then
Begin
Exit;
End
else
if (ArrowType = 'Iron')then
begin
Writeln ('Iron arrows being bought')
FindDTM(IrArrow,x,y,1, 1, 200, 200)
Mouse(x, y, 2, 2, False);
ChooseOption(x, y, '10');
Wait(1000+random(300));
Bought:= Bought + 10
If not(FindDTM(IrArrow,x,y,1, 1, 200, 200)) Then
Writeln ('Cannont Find DTM')
end;
end;
Procedure LoweColor;
begin
Lowe[1]:= 4627910;
Lowe[2]:= 3953243;
Lowe[3]:= 4809580;
Lowe[4]:= 5156829;
end;
Procedure FindLowe;
var
a, b, Ax, Ay, MSX1, MSY1, MSX2, MSY2 : Integer
begin
If FindColorTolerance(Ax, Ay, Lowe[x], MSX1, MSY1 + 20, MSX2, MSY2, 5) then
begin
if IsUpText('l') then
repeat
Mouse(Ax, Ay, 0, 0, False);
ChooseOption(x, y, 'rade');
until findcolor(a, b, 2070783, 1, 1, 200, 200)
Writeln('Found Lowe and opened Screen')
end;
{------------Main Loop-----------------------------------------------------}
begin
SetupSRL;
LoadDTMS;
FindLowe;
repeat
begin
BuyBrnz;
BuyIrn;
Report;
end;
until(Bought = Buying);
Writeln ('Finished Buying Arrows, Thank you for using 3Garrett3s Arrow Buyer')
end.
anyone know why it doesnt wanna work?