SRL Archive - OSR Help

Hi,

The following Script, when Run is supposed to Right Click a Bank Booth and Find the "Use-Quickly" using that BitMap. But it just moves the mouse to 0,22 where my Start Button is. o_o

Program new;
{$i srl/srl.simba}
var usequick:Integer;
Procedure Walk2MineMine;
var X,Y:Integer;
begin
FindColorTolerance(X,Y,1716796,430,273,450,296,5);
MoveMouse(X,Y);
wait(250);
ClickMouse(X,Y,mouse_left);
end;
Procedure RightClickBank;
var A,B:Integer;
begin
FindColorTolerance(A,B,75323,89,336,108,383,5);
MoveMouse(A,B);
wait(250);
ClickMouse(A,B,mouse_right);
wait(2500)
end;
Procedure ClickUse;
var C,D:Integer;
begin
FindBitmapToleranceIn(usequick,C,D,13,394,150,408,10);
MoveMouse(C,D);
wait(250)
end;

begin
SetupSRL;
usequick := BitmapFromString(131, 12, 'meJzNWEFywyAM9BPwF+xL+Gc/0' +
        'ms/mSaRvVqtgNhpppMM04EFCdgVAreu89f3z2Wd72W5//XmkbJwvV' +
        'ilNrqouQy8FTa5r2SBeXHkUfeKGZrto3m9Tign9rKXgdURh/VwYW/' +
        '1wfw0OSLNoQrFqbM62GBKs3a93o3hElayzKA9IOKNfN42iN8LWpj5' +
        '2a4jWtzMpQlvrwtBG69PRqbK2j8XPrj4SuhERGlmkt5teYMHqXuvE' +
        'D0tzPydQiAI86EY07vqiQjZJlqREFsuUiFIIzb/BCGaWhwSYmM1bP' +
        'ZWR2F+BGkJ5CMD57m+zFiMe44raSOrH5NdEaeL7wgWRS4Oq2fQTHJ' +
        'a6109TRwgM8+ITQSEhAhxaBuc6CcgyOzpZSN5GBSXWQzh6UC7qWCG' +
        '8MCHxd1GJuWOgCgCAmcQTYl/eM5qjqdj5u0HXepjmKamcCGWJr1bb' +
        'zQMehGrwrnaLnPqLZyILHHxCVVXBD69I/ikIOYRYww2VcjeBtNlsJ' +
        'eagIQTsSgh4+DPS9XgXxN7Mf9nReTVRJmn6GDJpbsWPWY4RHt0yYk' +
        'YC/HUyREh0Lz4jbnxTAdkllvSKh78xFv8CiggUPNJSk0q0/6I1Tsi' +
        'jAkhIfHwF7qydv8pBOcB5q0Z/I0bofNYykRlh9ZbpVefDcVACRKc1' +
        'izE+LI+xeEpzwOQ7+u2EDuNW5DTM0aDf6e9gYdHLN6WRYkiWzjc2Q' +
        '4zgmo497X5Z3UJOY1Ke+UtXFfSBw967oEg3BDUSQgQGP7D0CikReM' +
        'sOBiQcJnKhzBNWvGXzWVq/XZIX3mtg/k5pdI2pfwCTOWX1g==');

RightClickBank;
ClickUse;
FreeBitmap(usequick);
end.

Thanks.

Have you used the green crosshair to target the RuneScape client?
Also, You'll need this to point your script to RS:

ActivateClient;

program new;
{$i srl/srl.simba}

var
  usequick: Integer;

procedure Walk2MineMine;
var
  X, Y: Integer;
begin
  FindColorTolerance(X, Y, 1716796, 430, 273, 450, 296, 5);
  MoveMouse(X, Y);
  wait(250);
  ClickMouse(X, Y, mouse_left);
end;

procedure RightClickBank;
var
  A, B: Integer;
begin
  FindColorTolerance(A, B, 75323, 89, 336, 108, 383, 5);
  MoveMouse(A, B);
  wait(250);
  ClickMouse(A, B, mouse_right);
  wait(2500)
end;

procedure ClickUse;
var
  C, D: Integer;
begin
  FindBitmapToleranceIn(usequick, C, D, 13, 394, 150, 408, 10);
  MoveMouse(C, D);
  wait(250)
end;

begin
  SetupSRL;
  ActivateClient;
  usequick := BitmapFromString(131, 12, 'meJzNWEFywyAM9BPwF+xL+Gc/0' + 'ms/mSaRvVqtgNhpppMM04EFCdgVAreu89f3z2Wd72W5//XmkbJwvV' + 'ilNrqouQy8FTa5r2SBeXHkUfeKGZrto3m9Tign9rKXgdURh/VwYW/' + '1wfw0OSLNoQrFqbM62GBKs3a93o3hElayzKA9IOKNfN42iN8LWpj5' + '2a4jWtzMpQlvrwtBG69PRqbK2j8XPrj4SuhERGlmkt5teYMHqXuvE' + 'D0tzPydQiAI86EY07vqiQjZJlqREFsuUiFIIzb/BCGaWhwSYmM1bP' + 'ZWR2F+BGkJ5CMD57m+zFiMe44raSOrH5NdEaeL7wgWRS4Oq2fQTHJ' + 'a6109TRwgM8+ITQSEhAhxaBuc6CcgyOzpZSN5GBSXWQzh6UC7qWCG' + '8MCHxd1GJuWOgCgCAmcQTYl/eM5qjqdj5u0HXepjmKamcCGWJr1bb' + 'zQMehGrwrnaLnPqLZyILHHxCVVXBD69I/ikIOYRYww2VcjeBtNlsJ' + 'eagIQTsSgh4+DPS9XgXxN7Mf9nReTVRJmn6GDJpbsWPWY4RHt0yYk' + 'YC/HUyREh0Lz4jbnxTAdkllvSKh78xFv8CiggUPNJSk0q0/6I1Tsi' + 'jAkhIfHwF7qydv8pBOcB5q0Z/I0bofNYykRlh9ZbpVefDcVACRKc1' + 'izE+LI+xeEpzwOQ7+u2EDuNW5DTM0aDf6e9gYdHLN6WRYkiWzjc2Q' + '4zgmo497X5Z3UJOY1Ke+UtXFfSBw967oEg3BDUSQgQGP7D0CikReM' + 'sOBiQcJnKhzBNWvGXzWVq/XZIX3mtg/k5pdI2pfwCTOWX1g==');
  RightClickBank;
  ClickUse;
  FreeBitmap(usequick);
end.

Note, Please learn scripting standards(proper spacing) to keep your script neat. You can also just click Parser -> Format Script.

By the way, SRL has built in variables that count for different parts of the screen.
TopLeft Corner of MainScreen = MSX1, MSY1
BottomRight Corner of MainScreen = MSX2, MSY2
Center of MainScreen = MSCX, MSCY
Same thing works for inventory, chat, and minimap.