Simono
05-25-2012, 01:57 PM
I can't get MouseClick2 to click and I think it's because I'm using a wrong parameter.
I've tried MouseClick2(0/1), MouseClick2(true/false) and MouseClick2(mouse_left/right).
Also I tried using the Mouse function with the same parameters and it moves the mouse but it doesn't click.
procedure findBank;
var x, y, bank: Integer;
begin
bank := DTMFromString('mbQAAAHicY2VgYFBgZGCIB+IGIE4D4kYgXg 4UXwbEe4H4GBA/BeLMeDeGvzeVGd6dVYTT2AAjFgwGALo0DmM=');
if FindDTM( bank, x, y, MSX1, MSY1, MSX2, MSY2)
then
begin
Writeln('found bank');
FreeDTM(bank);
Wait(400);
Mouse(x, y, 5, 5, mouse_left);
end else
begin
Writeln('Have not found bank yet');
Wait(1000);
findBank;
end;
end;
Just need to know what to use as a parameter to make it click.
I've tried MouseClick2(0/1), MouseClick2(true/false) and MouseClick2(mouse_left/right).
Also I tried using the Mouse function with the same parameters and it moves the mouse but it doesn't click.
procedure findBank;
var x, y, bank: Integer;
begin
bank := DTMFromString('mbQAAAHicY2VgYFBgZGCIB+IGIE4D4kYgXg 4UXwbEe4H4GBA/BeLMeDeGvzeVGd6dVYTT2AAjFgwGALo0DmM=');
if FindDTM( bank, x, y, MSX1, MSY1, MSX2, MSY2)
then
begin
Writeln('found bank');
FreeDTM(bank);
Wait(400);
Mouse(x, y, 5, 5, mouse_left);
end else
begin
Writeln('Have not found bank yet');
Wait(1000);
findBank;
end;
end;
Just need to know what to use as a parameter to make it click.