i dont understand... why dont the srl ones work?
they do use Mouse...
SCAR Code:
function OpenBank: Boolean;
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;
if BankScreen then Result := True;
end;
SCAR Code:
procedure Withdraw(col, row, Amount: Integer);
var
rx, ry: Integer;
begin
rx := 35 + (col * 47);
ry := 27 + (row * 38);
if (BankScreen) then
begin
if (Amount = 1) then
begin
Mouse(rx, ry, 0, 0, True);
end
else
begin
Mouse(rx, ry, 0, 0, False);
if (Amount = 1) or (Amount = 5) or (Amount = 10) or (Amount = 0) then
begin
if (Amount = 5) then
ChooseOption(rx, ry, 'Withdraw 5');
if (Amount = 10) then
ChooseOption(rx, ry, 'Withdraw 10');
if (Amount = 0) then
ChooseOption(rx, ry, 'Withdraw All');
end
else
begin
ChooseOption(rx, ry, 'Withdraw X');
Wait(1000 + Random(100));
TypeSend(IntToStr(Amount) + Chr(13));
end;
end;
end;
end;
SCAR Code:
function CloseBank: Boolean;
var
CBBM, CBx, CBy: Integer;
begin
if not BankScreen then Exit;
CBBM := BitmapFromString(4, 3, 'z78DA3330000243030CD2C' +
'CC4D4DC848008320900F6350DC1');
if FindBitmapToleranceIn(CBBM, CBx, CBy, 450, 30, 500, 50, 50) then
begin
MMouse(CBx, CBy, 4, 4);
GetMousePos(CBx, CBy);
Mouse(CBx, CBy, 0, 0, True);
Result := True;
end;
FreeBitmap(CBBM);
end;
they all use MMouse or Mouse