SRL Archive - SRL Bugs

All OpenBank() functions (OpenBankSilent, OpenBankFast etc) should be rewritten. They seem to avoid the bank booth rather than clicking it. I believe that's because colors have changed alot and they are old functions.

Yeah, since the Runetek 5 update w/e it called. Most of them have been broken. I know 100% that Draynor is broken.

The devs will work something out… give them time…

Hmm, anyone wanna try this out?

Function OpenBank1 : Boolean;
Var TPA, FTPA : TPointArray;
    ATPA : T2DPointArray;
    I : Integer;
    Col : TIntegerArray;

Begin
  Col := [2763308, 5465204, 4547194, 1517621, 5074311, 6780806, 10199466, 936034];
  For I := 0 To High(Col) Do
  Begin
    FindColorsTolerance(TPA, Col[I], MSX1, MSY1, MSX2, MSY2, 15);
    If Length(TPA) > 0 Then
      FTPA := CombineTPA(TPA, FTPA);
  End;
  ATPA := TPAToATPA(TPA, 25);
  SortATPAFromFirstPoint(ATPA, Point(MSCX, MSCY));

  For I := 0 To High(ATPA) Do
  If MiddleTPAEx(ATPA[I], x, y) Then
  Begin
    MMouse(x, y, 4, 4);
    If WaitUpText('ooth', 900) Then
    Begin
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, False);
      If WaitOption('uickly', 1100) Then
        Result := WaitFunc(@BankScreen, 50, 3000);
    End;
    If Result Then
      Break
    Else
      Continue;
  End;
End;

EDIT: If it seems to fail, could someone get 1 - 3 colors of that area, so I can update the array.. Would be much appreciated :)

Colors of what? The glass or the frame?