maxzzz
2006-03-21 05:36:21
It's a suggesion.
I think it's better to change OpenBank into this:
This is OpenBank at this moment:
You only need to put BankColor = 123456789; into your Const. This will work for every bank and will find the bank faster.
You only need to copy it into your own script I see now.
Maybe someone can think a way that it can stay in the include while declaring the BankColor in your own script.
I think it's better to change OpenBank into this:
{*******************************************************************************
procedure OpenBank;
by: Stupid3ooo
Description: Opens the bank if possible.
*******************************************************************************}
procedure OpenBank; // By Stupid3ooo
var
c : Integer;
begin
if (FindObj(x,y,'Use Bank', (BankColor), 10)) then
begin
Mouse(x, y, 1, 1, False);
if (ChooseOption(x,y,'quickly')) then
begin
Flag;
repeat
Wait(100);
c := c + 1
until (BankScreen) or (c >= 50);
end;
end;
end;
This is OpenBank at this moment:
{*******************************************************************************
procedure OpenBank;
by: Stupid3ooo
Description: Opens the bank if possible.
*******************************************************************************}
procedure OpenBank; // By Stupid3ooo
var
c : Integer;
begin
if (FindObj(x,y,'Use Bank', 539728, 10)) then
begin
Mouse(x, y, 1, 1, False);
if (ChooseOption(x,y,'quickly')) then
begin
Flag;
repeat
Wait(100);
c := c + 1
until (BankScreen) or (c >= 50);
end;
end;
end;
You only need to put BankColor = 123456789; into your Const. This will work for every bank and will find the bank faster.
You only need to copy it into your own script I see now.
Maybe someone can think a way that it can stay in the include while declaring the BankColor in your own script.