Valithor
2012-03-20 16:05:12
Can anyone help me out with this? I'm trying to find the door to the Hardwood Grove on Karmaja Island (p2p side). I'm using basically two functions: a mouse function by YoHoJo (presented in his video tut), and a TPA color-finding function by Naum (from his tut on TPA's) .
In short when I go to find it SRL complies, but then the mouse doesn't move. I'm sure that my colors are fine because I was using the ACA utility to find them.
Here's my code. Where did I go wrong? :unsure:
This is the camera angle and position when I begin searching for the door. The image after that is what ACA shows when I search for that Color and Tolerance. What changes should be done?
In short when I go to find it SRL complies, but then the mouse doesn't move. I'm sure that my colors are fine because I was using the ACA utility to find them.
Here's my code. Where did I go wrong? :unsure:
program new; // Edits shown in comments
{$i srl/srl.simba}
function CheckAndClick(UpText, Option:String; X,Y:Integer; RClick:Boolean):Boolean; //by YoHoJo
begin
MMouse(x, y, 5, 5);
if WaitUptext(UpText, 1500*Random(500)) then //changed this to: (Uptext, 1500 + Random(500))
begin // works fine now
Result:=True;
GetMousePos(x, y);
if RClick then
begin
Mouse(X, Y, 5, 5, false);
Result:=WaitOption(Option, 2000);
Writeln('CheckAndClick (False - RClick)');
if Result then FFlag(0);
end else
begin
Mouse(x, y, 5, 5, true);
Writeln('CheckAndClick (True - LClick)');
Wait(100 * Random(50));
FFlag(0);
end;
end;
end;
function FindGroveDoor: Boolean;
var
Dx, Dy: integer;
TPA: Array of TPoint;
ATPA: T2DPointArray;
I: integer;
begin
FindColorsSpiralTolerance(Dx, Dy, TPA, 3894411, MSX1, MSY1, MSX2, MSY2, 17);
begin
ATPA:= SplitTPA(TPA, 20);
for I := 0 to High(ATPA) do
if MiddleTPAEX(ATPA[i], Dx, Dy) then
begin
case Random(2) of
0:
begin
GetMousePos(Dx, Dy); //took out GetMousePos as suggested by Home
CheckAndClick('door', 'pen', Dx, Dy, true); // I don't think it would hurt if left in
Writeln('Found Door');
Result:= true;
end;
1:
begin
GetMousePos(Dx, Dy); // Took this one out, too
CheckAndClick('door', 'pen', Dx, Dy, false);
Writeln('Found Door');
Result:= true;
end;
end;
end else
Result:= False;
Exit;
end;
end;
begin
SetUpSRL;
ActivateClient;
FindGroveDoor;
end. This is the camera angle and position when I begin searching for the door. The image after that is what ACA shows when I search for that Color and Tolerance. What changes should be done?
