JuKKa
2007-09-05 14:18:43
Well now i added:
Edge village
fishing guild
north ardougne
south ardougne
seers village, Has some trouble but it finds it!
catherby
The code:
Edge village
fishing guild
north ardougne
south ardougne
seers village, Has some trouble but it finds it!
catherby
The code:
function OpenBankFast(Location: String): Boolean;
var
x, y, i, l, c: Integer;
Info: TIntegerArray;
Booths, t: TPointArray;
begin
case LowerCase(Location) of
'akb', 'al kharid': Info := [130, 180, 606291, 4];
'lb', 'lumbridge': Info := [270, 100, 6196388, 9];
'veb', 'varrock east': Info := [200, 290, 2971236, 10];
'vwb', 'varrock west': Info := [270, 270, 5689318, 25];
'feb', 'falador east': Info := [220, 260, 4612728, 14];
'fwb', 'falador west': Info := [300, 300, 4612728, 14];
'db', 'draynor': Info := [175, 145, 605006, 4];
'eb', 'edge village': Info := [290, 190, 606551, 4];
'fg', 'fishing guild': Info := [220, 170, 606294, 4];
'nab','north ardougne':Info := [250, 220, 607067, 4];
'sab','south ardougne':Info := [300, 190, 605521, 4];
'svb', 'seers village':Info := [270, 140, 2771547, 10];
'cb', 'catherby': Info := [270, 150, 606035, 4];
else
begin
WriteLn('Unknown bank: '+Location);
Exit;
end;
end;
MakeCompass('n');
FindColorsSpiralTolerance(Info[0], Info[1], Booths, Info[2], MSX1, MSY1, MSX2, MSY2, Info[3])
SetArrayLength(t, 0);
t := Booths;
SetArrayLength(Booths, 0);
Booths := ReArrangeAndShortenArray(t, 14);
l := GetArrayLength(Booths) -1;
for i := 0 to l do
begin
Wait(100);
if (LowerCase(Location) = 'vwb') or (LowerCase(Location) = 'varrock west') then
begin
Booths[i].X := Booths[i].X + 5;
Booths[i].Y := Booths[i].Y - 20;
end;
MMouse(Booths[i].X, Booths[i].Y, 0, 0);
Wait(50);
if IsUpText('ooth') Then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
Wait(100);
if ChooseOption('uickly') then
begin
FFLag(0);
MarkTime(c);
repeat
Wait(100);
until (BankScreen) or (TimeFromMark(c) > 3000);
Result := BankScreen;
if Result then Exit;
end;
end;
end;
end;