PDA

View Full Version : [Multiple Rsps] Runique Bank Pin Snippet



goodgamescript
10-19-2016, 04:03 AM
RSPS Bank Pin Snippet/set up for runique

Must have

>srl-6 include

To Get it working with most old school style rsps.

>adjust the pin screen/bank screen is open procedures look at the comments so you can adjust them.
>change the tbox for rspsmainscreen var
>change the textcolor var by getting a c1 color of the pin number, and change that.
>you may have to adjust the font on line 43
>lower the wait on line 48 if the digits dont move.

Features

>Clicks bank pin

program new;
{$i srl-6/srl.simba}
var
rspsmainscreen: tbox;
textcolor:integer;

function BankIsOpen:boolean;
var
Textbox:tbox;
begin
Textbox:= intToBox(188, 64,319, 80); //texbox for bank of ...
if Textbox.colorExists(2070783) then //color of text to find
result:= true;
end;


function PinScreenOpen:boolean;
var
Textbox:tbox; //searches for yellow question marks on pin screen.
begin
Textbox:= intToBox(433, 71,496, 101); //box where unique text is on pin screen
if Textbox.colorExists(65535) then // the color of that text.
result:= true;
end;

procedure EnterRspsBankPin(PinNumbers : Array [0..3] of Integer);
var
g,m:integer;
Tpa: TPointArray;
Atpa: T2DPointArray;
numberbounds: tbox;
begin
if PinScreenOpen then
begin
for m:= 0 to 3 do //loops through each pin.
begin
if FindColorsTolerance(Tpa,textcolor ,rspsmainscreen ,0, colorSetting(1,0, 0)) then //color of pin numbers
begin
Atpa:= clusterTpa(tpa,30); //splits the pin numbers up
for g:= 0 to high(Atpa) do //loops through every number on pinscreen
begin
numberbounds:= Atpa[g].getBounds; //gets bounds of the tpa to use in mouse procedure;.
if StringMatch(getTextAtEx(numberbounds, 0,5,3,textcolor, 0, 'Upchars07') , tostr(PinNumbers[m])) > 0.95 then
begin
wait(30 + random(200));
mouse(numberbounds.getMiddle,MOUSE_LEFT,MOUSE_ACCU RATE);
mouse(point(344, 253),MOUSE_MOVE,MOUSE_ACCURATE); //moves mouse off current number so all the numbers are visible
wait(900); //wait for numbers to change
writeln('pin number found and clicked ',PinNumbers[m]);
break; //breaks out of loop after finding correct number.
end;
end;
end;
end;
waitfunc(@BankIsOpen,300,3000);
end else
begin
writeln('Pin Screen Not open');
exit;
end;

end;

begin
rspsmainscreen:= intToBox (4, 47, 524, 386); //tbox of the main screen..
textcolor:= 32767; //c1 of the color of the pin number on screen
EnterRspsBankPin([0,0,0,0]); //pin goes here

end.

HakunaMatata


Yo, do you think you could help me make by bot enter my bank pin on runique? I've been working on this script for some time now, and I think its finally time I took some help.
Thanks in advance.

*Snippet

HakunaMatata
10-19-2016, 03:47 PM
Thank you! Unfortunately, I did not manage to get it to work correctly, although I'm sure I'll find a way to implement this into my script. I also need help with another topic, if you don't mind (this time with more details about my script), which might help.