Procedure ToBankers;

[TheGodfather]

Hey can anyone let me know what goes into the procedure?


procedure ToBankers(var BankColor:LongInt;MouseAdjustX:MouseAdjustY:LongIn t)


So if anyone may, I'd like to kno how xD

(basically just the Adjust parts....)

[Jason2gs]

Well...

BankColor is obviously the color of the bank.

I'm lost as far as MouseAdjustX and MouseAdjustY.

[TheGodfather]

well thats the part i need :S

[Ejjman]

Look through SRL...I can't find it, its not under Bank.scar.

[TheGodfather]

Look through SRL...I can't find it, its not under Bank.scar.
ehem.... Case you think im DUMB I'm not ;) [not saying u did think so] but here it is... Copied from SRL....
procedure ToBankers(var BankColor: Integer; MouseAdjustX, MouseAdjustY:
Integer);
var
c, ax, ay, x, y: Integer;
begin
if (FindMMColor(x, y, BankColor)) then
begin
while c < 30 do
begin
c := c + 5;
if (FindMMColor(x, y, BankColor)) then
begin
if (FindColorSpiralTolerance(ax, ay, 195836, x - c, y - c, x + c, y + c,
10)) then
begin
x := ax;
y := ay;
break;
end;
end;
end;
MouseFindFlag(x, y, MouseAdjustX, MouseAdjustY);
Flag;
Wait(1000 + Random(100));
end;
end;

It works fine for me when I set them both at 1, but if i set em higher... Just intested..

EDIT: After 2 minutes fooling around with the procedure, I've figured it out :P

[Sumilion]

In case it cant find the flag on the MM where it clicks it will add MouseAdjustX to x and MouseAdjustY to y until it found the flag.

EDIT:
So 1,1 will make the mouse go sout east if it wont find the flag, 1,0 will make it go east, 0, -1 will make it go north, etc.

[Mr. Doctor]

You can just use
openbank3;
or
openbankquiet('db')
I always use them 2, always work(mostly openbank3;),