ok here is what i have.. currently it only completes openthegodamnbank; and then finishes.. but here is what i have.. if anyone could help me i would be very happy...
SCAR Code:
procedure openthegoddamnbank;
var
c: Integer;
begin
if (FindObject(x, y, 'Use Bank', 3107204, 5, True)) 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;
procedure Deposittheshit(slot, toslot, thetype: Integer);
var
slotnumber, col, row: Integer;
begin
if (BankScreen) then
begin
slotnumber := slot;
while (slotnumber < toslot) do
begin
if ((slotnumber mod 4) = 0) then
col := 3
else
col := (slotnumber mod 4) - 1;
row := (slotnumber - 1) / 4;
if (FindColor(x, y, 65536, (571 + 47 * col), (215 + 36 * row), (601 + 47 *
col), (245 + 36 * row))) then
begin
if (thetype = 1) then
Mouse(x, y, 5, 5, True);
if (thetype = 2) then
begin
Mouse(x, y, 5, 5, False);
if (ChooseOption(x, y, 'All')) then
Wait(1000 + Random(100));
end;
end;
slotnumber := slotnumber + 1;
end;
end;
end;
begin
SetupSRL;
repeat
openthegoddamnbank;
until(false);
end.