SRL Archive - Help and Support

Here it is, some stuff isnt filled in cuz its part of the setup.

program Varrokrunebuyer;
{.include SRL/SRL.scar}

// setup
const shirtcolor=;// color of aubury's shirt
// also put in the coords for line 23 x,y, and the ammount u want all separated buy commas
// end of setup //

procedure findaubury;
begin
ClickMSColor(shirtcolor);//now sure if this is right seems like im missing something
wait(100);
movemousesmooth(429,672,true);
wait(100)
clickmouse(429,672,true);
wait(100)
movemousesmooth(380,615,true);
wait(100);
clickmouse(380,615);
end.
procedure buyrunes
begin
buycoords(x,y,amount);
end
begin
loadinclude('internet explorer',true);
Writeln('Starting Aubury Rune Buyer')
repeat
findaubury;
buyrunes;
until(false)
logout;
end

Try using the code tags. I'll be back in a bit to figure out your problem if you have one ;)

Ok, here's a helpful hint when trying to figure out what goes in the parameters.
If you click right after the parentheses next to the parameter name(ex. ClickMSColor( <— ) it will give you all of the parameters.

For ClickMSColor there is two parameters: the color and if you want to right or left click.

To left click you use True; to right click you use False. Booleans are true and false data types.

Also, instead of using MoveMouseSmooth try using Mouse and MMouse. Practice finding out what parameters you need and I'll help you out.

using clickmscolor to right click on aubury might work

next, you would need to click on shop or trade or whatever
you can use
function PopUp(Option: string) : Boolean; or
function ChooseOption(x, y: Integer; txt : String) : Boolean;

but yeah, youre on the right track :)

Look at those horrible begins and ends :0
end. goes at the very end
end; goes at the end of procedures

program Varrokrunebuyer;
{.include SRL/SRL.scar}

// setup
const shirtcolor=;// color of aubury's shirt
// also put in the coords for line 23 x,y, and the ammount u want all separated buy commas
// end of setup //

procedure findaubury;
begin
ClickMSColor(shirtcolor);//now sure if this is right seems like im missing something
wait(100);
movemousesmooth(429,672,true);
wait(100)
clickmouse(429,672,true);
wait(100)
movemousesmooth(380,615,true);
wait(100);
clickmouse(380,615);
end;

procedure buyrunes
begin
buycoords(x,y,amount);
end;

begin
loadinclude('internet explorer',true);
Writeln('Starting Aubury Rune Buyer')
repeat
findaubury;
buyrunes;
until(false)
logout;
end.