SRL Archive - Research & Development Lounge

Ok so i have been hacked every month and its now 3 times so 3 months and i bet its someone that thinks its funny so i put an pin on my main and there dosent exist anything to work when u are waiting for ur pin if u dont understand ill say it again… When u set a PIN u get a warning every time u try to open the bank and theres no function that presses yes continue… heres a pic


so is this added to SRL or does it have to?

i think it should be implemented as well…

{*******************************************************************************
function InPin(pin: String): Boolean;
by: RSN / Starblaster100
Description: Puts in bank pin. Results True if XXX
*******************************************************************************}

function InPin(pin: string): Boolean;
var
iNumber: Integer;
begin
if (PinScreen) then
begin
Result := True;
for iNumber := 1 to Length(pin) do
begin
MMouse(395, 175, 10, 10);
Wait(200 + Random(200));
ClickText(pin[iNumber], upchars, 1, 1, 512, 336, True);
Wait(500 + Random(500));
end;
repeat
Wait(100);
until BankScreen or not LoggedIn;
end;
end;

Never hurts to search before posting :rolleyes:

i said its not the PIN screen! its a warning …

I had one of those so i pout it in my script i think this is the one i use..

function WaitingPin: boolean;
var
x,y: integer;
begin
  if not (LoggedIn) then Exit;
  if (GetColor(297, 288) = 0) and (GetColor(69, 47) = 0) then
  begin
    Wait(500 + Random(400));
    MMouse(127, 142, 200, 3);
    Wait(70 + Random(30));
    if IsUpText('k') then
    begin
      GetMousePos(x, y);
      Mouse(X, y, 0, 0, True);
    end else Mouse(127, 142, 200, 3, True);
    Result := True;
  end;
end;

should work…been about a month since i used it so itll work unless jagex updated something

From: RAM
Never hurts to search before posting :rolleyes:

Doesn't hurt to read a thread too :rolleyes:

I do agree with you however…

But I'm a bit busy atm, so would another developer mind doing it ?

example

Procedure Warning;
begin
  if findbitmap(blablablabla) then mouse(x,y,0,0,true) else inpin;
end;  

From: Sumilion
Doesn't hurt to read a thread too :rolleyes:

I do agree with you however…

But I'm a bit busy atm, so would another developer mind doing it ?

I see no use in it.

i agree w/ wizzup? just use a non-banking script for the time being or just plain out dont auto for 7 days….but then again i agree too, it wouldnt hurt to have it

From: hermpie
example

Procedure Warning;
begin
  if findbitmap(blablablabla) then mouse(x,y,0,0,true) else inpin;
end;  

If FindNPCChatText(''I asked') then …..
If FindNPCChatText(''I didn't ask') then …..

maybe simpler :)

:D w/e, fakawi is always right, :D

so would another developer mind doing it ?

;) Sometimes a private detective can be faster than the police force:

Procedure HandlePinConfirmation;
Var
  X, Y: Integer;
Begin
  If Not LoggedIn Then Exit;
  While FindText(X, Y, 'another', NPCChars, 40, 46, 465, 95) Do
  Begin
    Mouse(157 + Random(30), 143, 8, 2, True);
    Wait(1000 + Random(350));
  End;
End;

Tested it….

EDIT: Oh crap, gotta cancel the pin..

Just don't auto until you have changed your pin, i can't see many people needing to use this…

but its handy

Just don't auto until you have changed your pin, i can't see many people needing to use this…

Or just read the post above you?

Nothing hard, just add HandlePinConfirmation after the proc that opens bank…

Thx n3 ill see if it works…

From: Sumilion
Doesn't hurt to read a thread too :rolleyes:

Considering he even repeated himself twice :redface:

Either way, it isnt going to stop you getting hacked. lol

Rogeruk why? ill be putting in my stuff in bank every time i log out ( ye i know its sad) and the hacker dosent know my PIN