Hi...
Three lower right options :
SCAR Code:
{*******************************************************************************
Procedure DepositBank(Option: String);
By : Dr D. Dervish
Description: Will deposit the items using the three deposit methods
in the down-right corner of the Bank Screen
The valid options are :
inventory
equipped
summoned
*******************************************************************************}
Procedure DepositBank(Option: String);
var
x,y: Integer;
Begin
If (Not(BankScreen)) then
Exit;
Case Option of
'inventory' : Begin
MMouse(381,296,28,18);
If (IsUpText('arried')) then
Begin
GetMousePos(x,y);
Mouse(x,y,0,0,true);
End;
End;
'equipped' : Begin
MMouse(421,296,28,18);
If (IsUpText('worn')) then
Begin
GetMousePos(x,y);
Mouse(x,y,0,0,true);
End;
End;
'summoned' : Begin
MMouse(441,296,28,18);
If (IsUpText('beast')) then
Begin
GetMousePos(x,y);
Mouse(x,y,0,0,true);
End;
End;
End;
End;
Searching :
SCAR Code:
{*******************************************************************************
procedure SearchBank(Item: string);
by: ZephyrsFury (mini fix by Dr D. Dervish for bank update).
Description: Searches for Item in your bank.
*******************************************************************************}
procedure SearchBank(Item: string);
var
T, II: Integer;
begin
if (not(BankScreen)) then Exit;
for II := 0 to 2 do
begin
FixBankTab;
Mouse(72,296,28,18,true);
T := GetSystemTime;
while (BankScreen) and (not(FindTextTpa(0, 0, 350, 392, 399, 410, 'search', UpChars, Nothing))) do
begin
Wait(500 + Random(500));
if (GetSystemTime - T > 5000) then Break;
end;
Wait(500 + Random(500));
if (FindTextTpa(0, 0, 350, 392, 399, 410, 'search', UpChars, Nothing)) then
begin
TypeSend(Item);
Exit;
end;
end;
end;
Note withdrawal :
SCAR Code:
{*******************************************************************************
procedure NotedMode(Mode: boolean);
by: Dr D. Dervish.
Description: Changes the Mode to items if Mode boolean is set to false.
Changes the Mode to notes if Mode boolean is set to true .
*******************************************************************************}
Procedure NotedMode(Mode: Boolean);
var
x,y : Integer;
Begin
If (not(BankScreen)) then
Exit;
MMouse(243,296,28,18);
Wait(750+random(250));
If (IsUpText('note')) then
Case Mode of
True : Begin
GetMousePos(x,y);
Mouse(x,y,0,0,true)
End;
False : Begin
Writeln('Withdrawal mode is already set to items.');
Exit;
End;
End;
If (IsUpText('items')) then
Case Mode of
True : Begin
Writeln('Withdrawal mode is already set to notes.');
Exit;
End;
False : Begin
GetMousePos(x,y);
Mouse(x,y,0,0,true);
End;
End;
End;
Hope you like it.
Tell me if you find any errors.