BigRedJapan
2012-05-31 14:38:12
How can i make it click something and check to make sure it clicked the option!
2012-05-31 14:38:12
2012-05-31 15:01:34
2012-05-31 15:10:19
(*
FindText
~~~~~~~~
.. code-block:: pascal
function FindText(var cx, cy: Integer; txt,font: string; xs, ys, xe, ye: Integer): Boolean;
Searches for text in specified box with specified font.
.. note::
by Coh3n
Example:
.. code-block:: pascal
*)
function FindText(var cx, cy: integer; txt, font: string; xs, ys, xe, ye: integer): boolean;
begin
result := findTextEx(cx, cy, [txt], [font], xs, ys, xe, ye);
end;function FindObj_pX(Mouse:Boolean;pX, pY,Null,Null2: Integer; Mod1,Mod2:Extended;Lol1:String): Boolean;
var
CTS, I: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
begin
CTS := GetColorToleranceSpeed;
FindNormalRandoms;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(Mod1, Mod2);
If Not Mouse then
FindColorsSpiralTolerance(MSCX, MSCY, TPA,Null, 190, 140, 320, 230, Null2) else
FindColorsSpiralTolerance(MSCX, MSCY, TPA,Null, MSX1, MSY1, MSX2, MSY2, Null2);
ColorToleranceSpeed(CTS);
ATPA := TPAToATPAEx(TPA, 15, 15);
For I := 0 to High(ATPA) do
begin
MiddleTPAEx(ATPA[i], pX, pY);
If Mouse then
begin
MMouse(pX, pY, 2, 2);
Wait(300+Random(75));
If(IsUpTextMultiCustom([Lol1])) then
begin
Result := True;
GetMousePos(pX, pY);
Break;
end;
end else
Result := True;
end;
end;2012-05-31 15:12:59
2012-05-31 19:07:05
From: YoHoJo
Tutorial island section is for tutorials, NOT scripting help.
This belongs in the scripting help section.
2012-05-31 19:14:55
From: Rules of Joe
FYI THis is the Development! And Not Only for Tutorials!:google: