PRSC Arrow & bolt buyer

[Amberleaf]

Arrow & Bolt buyer v0.1

 

Make sure you have some cash on you & space for arrows & bolts in your bag.

Drag the target from the scar divi tool bar onto the PRSC client.

Start inside the range store in Varrock, enter your login details into the script if you want it to log back in after 5minutes.

F12 to stop the script at anytime.

 

[sCAR]//bronze arrow & bolt buyer

//amberleaf

//www.scar-divi.com

 

{.include OSI\OSI.scar}

 

const

 

USERNAME = 'jimbob';

PASSWORD = 'jones';

 

var a, b: Integer;

 

procedure ScriptTerminate;

begin

FreeOSI;

end;

 

procedure LogIn;

var x, y: Integer;

begin

If FindColor(x, y, 0, 274, 267, 274, 267) then

begin

Writeln('Logging In')

Mouse(355, 281, 0, 0, True);

Wait(150);

TypeText(USERNAME);

Wait(1000);

Mouse(193, 309, 0, 0, True);

Wait(150);

TypeText(PASSWORD);

Wait(1000);

Mouse(411, 250, 0, 0, True);

Wait(5000);

Mouse(264, 196, 0, 0, True);

Wait(150);

end;

end;

 

procedure TalkToShopKeeper;

var x, y: Integer;

begin

repeat

Writeln('Talking to shopkeeper');

If FindColorTol(x, y, 2701712, 15, 15, 491, 313, 8) then

begin

Mouse(x, y, 0, 0, True);

Wait(7500);

end;

until (FindColor(x, y, 16776960, 4, 1, 171, 13) = True);

Mouse(49, 9, 0, 0, True);

Wait(5000);

end;

 

procedure BuyArrows;

var x, y: Integer;

begin

repeat

repeat

If FindColors(x, y, [16777215, 255], 395, 252, 411, 257) then

begin

Mouse(x - Random(5), y + Random(4), 0, 0, True);

Wait(50);

a := a + 1;

Writeln('Arrows so far...');

Writeln(a);

end;

If GetKeyState(VK_F12) then

begin

TerminateScript;

end;

until (FindColors(x, y, [16777215, 255], 395, 252, 411, 257) = False);

Mouse(133, 88, 0, 0, True);

Wait(150);

repeat

If FindColors(x, y, [16777215, 255], 395, 252, 411, 257) then

begin

Mouse(x - Random(5), y + Random(4), 0, 0, True);

Wait(50);

b := b + 1;

Writeln('Bolts so far...');

Writeln(b);

end;

If GetKeyState(VK_F12) then

begin

TerminateScript;

end;

until (FindColors(x, y, [16777215, 255], 395, 252, 411, 257) = False);

Mouse(83, 88, 0, 0, True);

Wait(150);

until (FindColor(x, y, 0, 274, 267, 274, 267) = True);

end;

 

begin

SetUpOSI;

MouseSpeed := 25;

repeat

LogIn;

TalkToShopKeeper;

BuyArrows;

until GetKeyState(VK_F12);

end.

[/sCAR]

[Janilabo]

Very nice to see you are still scripting for PRSC mate!

Good job.

[tweakmeup]

Is this a good money maker or something?

[Amberleaf]

I think it is you get arrows at 4gp each when they're depleted & bolts for 6gp, once you have a few thousand you can set a higher price on the load.. say arrows 8gp & 12gp for bolts. I got the idea for this script from 'somebody' who pm'ed me asking if I could make this script for them privately but I don't do secret scripts so here it is. I'll add a random sleep between the 5 minute timeouts in the next version so it isn't spamming it.

[grannen]

nice script sir lovely idea

[Toby1]

I tried the script, it works really well! and when bolts run out it buys arrows which is really good, works really smooth! will be using this!