now it compiles...i dont know what your trying to do with the buying proc.
SCAR Code:
{Credits: JAD, Markus, Yohojo8 (DTM), Jason2gs, 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;
const
ArrowType=('Bronze'); //Type of arrow you want to buy
Buying= 50; //How many you want to buy
{--------------Writes a Progress Report------------------------------------}
procedure Report;
begin
Writeln('[]========================================[]');
Writeln('---------------->Progress Report<-----------');
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 Buying1;
Begin
if (ArrowType = 'Bronze')then
begin
FindDTM(BrArrow,x,y,1, 1, 200, 200)
Mouse(x, y, 2, 2, False);
ChooseOption(x, y, '10');
Wait(6000+random(300));
Bought:= Bought + 10
end
else
end;
{------------Main Loop-----------------------------------------------------}
begin;
SetupSRL;
repeat
if FindDTM(BrArrow,x,y,1, 1, 200, 200) Then
Begin
Mouse(x, y, 2, 2, False);
ChooseOption(x, y, '10');
Wait(6000+random(300));
Bought:= Bought + 10
End;
until(Bought = Buying);
Report;
end.