hi
i wan't to move a mouse to a place, that's no problem, but now i wan't the mouse clicking on the SAME place but it click's on the OLD place, how do i fix that?
here's my script:
SCAR Code:
program boomshinev3;
{.include SRL/SRL.scar}
var
play1:Integer;
procedure load;
begin
play1 := BitmapFromString(63, 24, 'z78DAED97C19283200C865F8' +
'90001720C24BCFF232D2D1CEC5867ED6C7BE81A0FDF38127F9D4F' +
'0CEA5C6C40CE68341A8D46A3D168FC422621CAAD6BBF6D3B52A99' +
'9C3AC14521459A3A1E78E4799542B31EED33C270E7DD600A306D8' +
'8EA64821C77557232A3F8C822608F17F9BC75E7A5AFB225A141A0' +
'B8B7B30EF4699DFA7B5264D40749CE5974F371CBA95C623411353' +
'CECFCCDF2B670E4AD1245733EF04D1E39CD5CB18AA1FEE4F98DFD' +
'60CC40E00583C3D18DE98AF2ABEADAB146426D8721E9F3566FE5D' +
'E6B7671DF5BA753F97E9F3CB3CF5DA7999AFB757FF73E627D56BD' +
'5F5AC1575F4B94BAFB0A146D21033C4F2AAF9239E329F54F572DF' +
'3645AB235EACAC949F583D33E775CC793773CCFCF96EF3CB7CBE9' +
'BC75624B54948D8BCBCADDB98F9D39DC49754826CED8D55A2F5FA' +
'82F9BBEDEB985FCC08A3794C9EA9D9F3A8E62FF9F6B76B341A8D4' +
'6A3D168FC12FE00652D9887');
end;
procedure firstklick;
begin
if(FindBitmap(play1,x,y))then
begin
MMouse(x,y,0,0);
ClickMouse(x,y,true);
Wait(1000+random(1000));
MMouse(x-random(200),y+random(200),0,0);
ClickMouse(x,y,true); ///////////////////////////////////////////////////////////HERE!
end;
end;
procedure free;
begin;
FreeBitmap(play1);
end;
begin
activateclient;
repeat
SetupSRL;
load;
firstklick;
free;
until(false)
end.