Jump to content
Amberleaf

[PRSC]Rune Buyer - Port Sarim

Recommended Posts

Drag the target from the Scar-divi toolbar onto the PRSC client.

Enter your log-in details into the script for it to re-log and continue buying.

Start inside the rune store owned by Betty in Port Sarim while facing north.

Make sure you have a nice pile of gold to start as it's quite a money drainer, the script will also terminate when you're out of gold.

OSI can be obtained by going to File>>Includes manager.

F12 to stop the script at anytime.

 

Enjoy ;)

 

[sCAR]//PRSC Rune Buyer v0.1 26/1/13

//amberleaf

//www.scar-divi.com

 

{.include OSI\OSI.scar}

 

//OSI can be obtained by going to File>>Includes manager

 

const

 

USERNAME = 'jimbob';

PASSWORD = 'jones';

WAITBEFORELOGIN = 0; //minutes to wait until it relogs in

FIRE = 1; // 1; to buy 0; to not buy

WATER = 1; //

AIR = 1;

EARTH = 1;

MIND = 1;

BODY = 1;

 

 

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(RandomRange(60000, 61000) * WAITBEFORELOGIN);

TypeText(PASSWORD);

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

Wait(6000);

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

Wait(150);

end;

end;

 

procedure TalkToShopKeeper;

var x, y: Integer;

begin

repeat

Writeln('Talking to shopkeeper');

If FindColorsSpiral(259, 118, x, y, [592305, 174, 145, 263343, 263315, 921266, 1250228, 263376], 15, 15, 491, 313) then

begin

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

Wait(5500);

end;

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

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

Wait(5000);

end;

 

procedure BuyRunes;

var x, y: Integer;

begin

repeat

If FIRE = 1 then

begin

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

repeat

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

begin

Mouse(x - Random(15), y + Random(2), 0, 0, True);

Wait(50);

end;

If FindColor(x, y, 16777215, 10, 262, 10, 262) then

begin

WriteLn('Out of gold');

TerminateScript;

end;

If GetKeyState(VK_F12) then

begin

TerminateScript;

end;

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

end;

If WATER = 1 then

begin

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

repeat

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

begin

Mouse(x - Random(15), y + Random(2), 0, 0, True);

Wait(50);

end;

If FindColor(x, y, 16777215, 10, 262, 10, 262) then

begin

WriteLn('Out of gold');

TerminateScript;

end;

If GetKeyState(VK_F12) then

begin

TerminateScript;

end;

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

end;

If AIR = 1 then

begin

Mouse(185, 89, 0, 0, True);

repeat

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

begin

Mouse(x - Random(15), y + Random(2), 0, 0, True);

Wait(50);

end;

If FindColor(x, y, 16777215, 10, 262, 10, 262) then

begin

WriteLn('Out of gold');

TerminateScript;

end;

If GetKeyState(VK_F12) then

begin

TerminateScript;

end;

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

end;

If EARTH = 1 then

begin

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

repeat

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

begin

Mouse(x - Random(15), y + Random(2), 0, 0, True);

Wait(50);

end;

If FindColor(x, y, 16777215, 10, 262, 10, 262) then

begin

WriteLn('Out of gold');

TerminateScript;

end;

If GetKeyState(VK_F12) then

begin

TerminateScript;

end;

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

end;

If MIND = 1 then

begin

Mouse(284, 90, 0, 0, True);

repeat

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

begin

Mouse(x - Random(15), y + Random(2), 0, 0, True);

Wait(50);

end;

If FindColor(x, y, 16777215, 10, 262, 10, 262) then

begin

WriteLn('Out of gold');

TerminateScript;

end;

If GetKeyState(VK_F12) then

begin

TerminateScript;

end;

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

end;

If BODY = 1 then

begin

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

repeat

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

begin

Mouse(x - Random(15), y + Random(2), 0, 0, True);

Wait(50);

end;

If FindColor(x, y, 16777215, 10, 262, 10, 262) then

begin

WriteLn('Out of gold');

TerminateScript;

end;

If GetKeyState(VK_F12) then

begin

TerminateScript;

end;

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

end;

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

end;

 

begin

SetUpOSI;

MouseSpeed := 25;

repeat

LogIn;

TalkToShopKeeper;

BuyRunes;

until GetKeyState(VK_F12);

end.

[/sCAR]

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
  • Create New...