Amberleaf Posted January 26, 2013 Share Posted January 26, 2013 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] Quote Link to comment Share on other sites More sharing options...