Code:
program Fletcher;
{Set Logs in first bank slot, only does long bows}
procedure OpenBank2(pin: Integer);
var
x, y, fs, fs2: Integer;
begin
if not (BankScreen) then
repeat
if (FindObject(x, y, 'booth', 2842230, 10, True)) then
Mouse(x, y, 4, 4, False)
else
if (FindObject(x, y, 'booth', 12611, 10, True)) then
Mouse(x, y, 4, 4, False);
Wait(250);
if (ClickOption('quickly', 1)) then
begin
Flag;
repeat
Wait(100);
fs := fs + 1;
until (BankScreen) or (fs >= 50) or ((GetColor(136, 40) = 255) and
(GetColor(202, 39) = 255));
end;
fs2 := fs2 + 1;
until (BankScreen) or (fs2 >= 5) or ((GetColor(136, 40) = 255) and
(GetColor(202, 39) = 255));
InPin(IntToStr(pin));
end;
procedure QuickFixBank;
begin
if (BankScreen) then
begin
if not (GetColor(475, 75) = 5531254) then
Mouse(475, 77, 0, 0, True);
end;
end;
procedure Withdraw2(i, Amount: Integer);
begin
if (BankScreen) then
begin
if (Amount = 0) then
begin
BankMouse(i, False);
Wait(800 + Random(400));
ClickOption('All', 1);
end;
if (Amount = 10) or (Amount = 5) then
begin
BankMouse(i, False);
Wait(800 + Random(400));
ClickOption(IntToStr(Amount), 1);
end;
if (Amount = 1) then
begin
BankMouse(i, True);
Wait(800 + Random(400));
end;
if (Amount > 1) and (Amount <> 5) and (Amount <> 10) then
begin
BankMouse(i, False);
Wait(450 + Random(200));
if (ClickOption('X', 1)) then
begin
repeat
Wait(150 + Random(200));
until (GetColor(255, 410) = 8388608);
TypeSend(IntToStr(Amount));
Wait(800 + Random(400));
end;
end;
end;
end;
end.
That's what i have so far, and i dont know what to do right now.