Need help with first script

[thomis]

I need some help with my feather buyer (it's my first script).

It doesn't switch to the Internet window and right-clicks in the scar program.
If someone would help me, that would be really nice.

program MyFeatherBuyer;
{.include SRL\SRL.scar}

var
   bought, iter : integer;


Procedure DoBuy; //One click of buy
begin
     Mouse(370,73,20,20,false);
     begin
          ClickOption('Buy 10',1);
          bought := bought + 10;
     end;
end;

Procedure MyReport; //Randoms and purchases report
begin
     SRLRandomsReport;
     Writeln('');
     Writeln('We have bought ' + IntToStr(bought) + ' feathers.');
     Writeln('');
end;

begin
 SetupSRL;
     bought := 0;
     iter := 0;;
 repeat
   DoBuy;
   iter := iter + 1;
   Wait(5000 + random(2000));
   FindNormalRandoms;
 until (iter = 1799);
 MyReport;
end.

 

[Town]

Put ActivateClient; after SetupSRL.

 

[thomis]

thanks, you really helped me out