shnk
12-30-2011, 08:49 PM
It opens up the bank but it doesn't seem to withdraw the bitmap :fiery:
I've looked through like every bitmap tutorial.
program test;
//{$DEFINE SMART}
{$i SRL\SRL.scar}
const
//World = 0; //Leave it 0 for a random world
//Members = false; //F2P = false, P2P = true
BreakEvery = 60; //Break every 'x' minutes. Default is 60.
BreakFor = 5; //Break for 'x' minutes. Default is 5.
Version = '1.0';
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; //RuneScape username
Players[0].Pass :=''; //RuneScape password
Players[0].Nick :='';
Players[0].Active:=True;
end;
function Banking: boolean;
begin
if (InvEmpty) then
begin
OpenBank ('fwb', true, true);
Wait (2000);
end;
end;
function FindBitmap: boolean;
var Bitmap, x, y : integer;
begin
Bitmap:= BitmapFromString(13, 9, 'meJxN0FcOg0AMRdFFIVIg9A6hD70' +
'OafvfQR6aZIR0P48s25/H9jn0WOahabqKVEUe+b6hqvL1ehKE90ZZ' +
'jG3zPLYtWF0WSRhauq7I0lkUOWPRadxZXYFl8d21TF1VpMvlR Snib' +
'B2HqdtZU5ZlmvqOwwYyxmOsr2swkueh5zmmqSm317ruHVnfgb WEgM' +
'Vh4Dm2qWk/9g+7geFYMBybRFHgurZhPNcFHdnc9/wneRLfA9+zLTw' +
'KMYzoNC3DwI8lWYZp2O0LwDN21A==');
if FindBitmap (Bitmap, x, y) then
begin
Mouse (x, y, 5, 5, false);
ChooseOption ('w-All V');
end;
end;
begin
SetUpSRL;
//ActivateClient;
DeclarePlayers;
//SetAngle(False);
//LoginPlayer;
Banking;
FindVials;
I've looked through like every bitmap tutorial.
program test;
//{$DEFINE SMART}
{$i SRL\SRL.scar}
const
//World = 0; //Leave it 0 for a random world
//Members = false; //F2P = false, P2P = true
BreakEvery = 60; //Break every 'x' minutes. Default is 60.
BreakFor = 5; //Break for 'x' minutes. Default is 5.
Version = '1.0';
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; //RuneScape username
Players[0].Pass :=''; //RuneScape password
Players[0].Nick :='';
Players[0].Active:=True;
end;
function Banking: boolean;
begin
if (InvEmpty) then
begin
OpenBank ('fwb', true, true);
Wait (2000);
end;
end;
function FindBitmap: boolean;
var Bitmap, x, y : integer;
begin
Bitmap:= BitmapFromString(13, 9, 'meJxN0FcOg0AMRdFFIVIg9A6hD70' +
'OafvfQR6aZIR0P48s25/H9jn0WOahabqKVEUe+b6hqvL1ehKE90ZZ' +
'jG3zPLYtWF0WSRhauq7I0lkUOWPRadxZXYFl8d21TF1VpMvlR Snib' +
'B2HqdtZU5ZlmvqOwwYyxmOsr2swkueh5zmmqSm317ruHVnfgb WEgM' +
'Vh4Dm2qWk/9g+7geFYMBybRFHgurZhPNcFHdnc9/wneRLfA9+zLTw' +
'KMYzoNC3DwI8lWYZp2O0LwDN21A==');
if FindBitmap (Bitmap, x, y) then
begin
Mouse (x, y, 5, 5, false);
ChooseOption ('w-All V');
end;
end;
begin
SetUpSRL;
//ActivateClient;
DeclarePlayers;
//SetAngle(False);
//LoginPlayer;
Banking;
FindVials;