Paradoxium
05-22-2012, 07:35 PM
Hi, so i developed a small script that would play for me in an mmorpg. The problem is that after it clicks to get inside of the client(via clicking it on my taskbar), it fails to click and sendkeys ingame...Could it be that the game is blocking simulated clicks from scar? Here is my code
program Main;
var
X,Y: Integer;
function FindReadys:Boolean;
begin
Result := FindColorTolerance(X, Y,15137340, 1215, 411, 1235, 435, 20) {and FindColorTolerance( X, Y,16120397, 763, 176, 787, 202,20)};
end;
procedure Logintogame;
begin
ClickMouse(671,1018,true); //clicks back into client
Wait(500);
repeat
Wait(500);
Writeln('Waiting for others to be ready'); //(waits until other cows are ready)
until(FindReadys);
SendKeys('hello');
ClickMouse(1203,675,true); //clicks start twice
Writeln('Clicked');
end;
{procedure WalkOver;
begin
end;}
begin
Logintogame;
//WalkOver;
end.
program Main;
var
X,Y: Integer;
function FindReadys:Boolean;
begin
Result := FindColorTolerance(X, Y,15137340, 1215, 411, 1235, 435, 20) {and FindColorTolerance( X, Y,16120397, 763, 176, 787, 202,20)};
end;
procedure Logintogame;
begin
ClickMouse(671,1018,true); //clicks back into client
Wait(500);
repeat
Wait(500);
Writeln('Waiting for others to be ready'); //(waits until other cows are ready)
until(FindReadys);
SendKeys('hello');
ClickMouse(1203,675,true); //clicks start twice
Writeln('Clicked');
end;
{procedure WalkOver;
begin
end;}
begin
Logintogame;
//WalkOver;
end.