Well Here they Are; These are Basically infallible because of so many procedures being called.
Basically I couldn't get The FindColorSkipBoxArray To work because of some careless error( I cant see it now it 2:50:p). Nyways These will still work very well. Tomorrow planning on developing My own color finders to add to these. These functions do it all. Finds From Centre Any 3 colors while tolerance raising to your specified tol. Also, if you choose the two Click functions, they pick out of 9 phrases to click :P
SCAR Code:
{*****************************************************
function FindMSObjUltamite(var ox, oy: integer; Color1, Color2, Color3, Pixels,
Tolerance, MaxTolerance: integer; Text1, Text2, Text3, Text4, Text5, Text6: string): boolean;
By : Pwnaz0r
Descripton : Brute Forces A MS Color And returns value as Ox, Oy
*****************************************************}
var
OX, Oy: integer;
function FindMSObjUltamite(var ox, oy: integer; Color1, Color2, Color3, Pixels, Tolerance, MaxTolerance: integer; Text1, Text2, Text3, Text4, Text5, Text6: string): boolean;
var
PMSCX, PMSCY, PMSX1, PMSX2, PMSY1, PMSY2, I, SearchX1, SearchY1, SearchX2, SearchY2, Ox, Oy: integer;
TheTBoxArray: array[1..5] of Tbox;
H, Q, Z: integer;
Boxes: array[1..15] of integer;
begin
result := false;
H := 0;
Q := 0;
Z := 0;
PMSX1 := MSX1 + 5;
PMSY1 := MSY1 + 5;
PMSX2 := MSX2 - 5;
PMSY2 := MSY2 - 5;
PMSCX := Round(MSX2 / 2);
PMSCY := Round(MSY2 / 2);
I := 0;
repeat
I := I + 10;
SearchX1 := MSCX - I;
SearchY1 := MSCY - I;
SearchX2 := MSCX + I;
SearchY2 := MSCY + I;
//If(Z>4)then exit;
//If(Z > 1)then
//begin
//If(FindColorSkipBoxArray(X,Y,Color1,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))or
//(FindColorSkipBoxArray(X,Y,Color2,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))or
//(FindColorSkipBoxArray(X,Y,Color3,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))then
//begin
//MMouse(X,Y,0,0);
//If(IsUpTextMulti(Text1, Text2, Text3))or
//(IsUpTextMulti(Text4,Text5,Text6))then
//begin
//Result := true;
//GetMousePos(ox,oy);
//Exit;
//end
//end;
if (FindColorFromCentre(X, Y, PMSCX, PMSY2, Color1, I, Tolerance)) or
(FindColorFromCentre(X, Y, PMSCX, PMSY2, Color2, I, Tolerance)) or
(FindColorFromCentre(X, Y, PMSCX, PMSY2, Color3, I, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color1, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color2, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color3, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolRaiser(X, Y, PMSX1, PMSY1, PMSX2, PMSY2, Color1, 0, MaxTolerance, true, 5)) or
(FindColorTolRaiser(X, Y, PMSX1, PMSY1, PMSX2, PMSY2, Color2, 0, MaxTolerance, true, 5)) or
(FindColorTolRaiser(X, Y, PMSX1, PMSY1, PMSX2, PMSY2, Color3, 0, MaxTolerance, true, 5)) or
(ScanForObjectMulti(X, Y, 516, 388, Color1, Color2, Color3, tolerance, Text1)) or
(ScanForObjectMulti(X, Y, 516, 388, Color1, Color2, Color3, tolerance, Text2)) or
(ScanForObjectMulti(X, Y, 516, 388, Color1, Color2, Color3, tolerance, Text3)) or
(ScanForObjectMulti(X, Y, 516, 388, Color1, Color2, Color3, tolerance, Text4)) or
(ScanForObjectMulti(X, Y, 516, 388, Color1, Color2, Color3, tolerance, Text5)) or
(ScanForObjectMulti(X, Y, 516, 388, Color1, Color2, Color3, tolerance, Text6)) or
(FindColorTolerance(X, Y, Color1, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolerance(X, Y, Color2, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolerance(X, Y, Color3, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) then
MMouse(X, Y, 0, 0);
if (IsUpTextMulti(Text1, Text2, Text3)) or
(IsUpTextMulti(Text4, Text5, Text6)) then
begin
Result := true;
GetMousePos(ox, oy);
Exit;
end
if not (IsUpTextMulti(Text1, Text2, Text3)) or
not (IsUpTextMulti(Text4, Text5, Text6)) then
begin
GetMousePos(X, Y);
H := H + 1;
Boxes[H] := X - 15;
H := H + 1;
Boxes[H] := Y - 15;
H := H + 1;
Boxes[H] := X + 15;
H := H + 1;
Boxes[H] := Y + 15;
Q := Q + 1;
TheTBoxArray[Q] := cBox2(Boxes[H - 3], Boxes[H - 2], Boxes[H - 1], Boxes[H]);
Z := Z + 1;
end;
//end;
until (SearchX1 > 1);
if (SearchX1 > 1) then
begin
Writeln('Could not Find Color In FindMSObjAdvanced');
Exit;
end;
end;
SCAR Code:
{****************************************************
function FindMSObjAdvanced(var ox, oy: integer; Color1, Color2, Color3, Pixels, Tolerance, MaxTolerance: integer; Text1, Text2, Text3, Text4, Text5, Text6: string): boolean;
by : pwnaz0r
Description : Brute Forces Color From Centre
****************************************************}
function FindMSObjAdvanced(var ox, oy: integer; Color1, Color2, Color3, Pixels, Tolerance, MaxTolerance: integer; Text1, Text2, Text3, Text4, Text5, Text6: string): boolean;
var
PMSCX, PMSCY, PMSX1, PMSX2, PMSY1, PMSY2, I, SearchX1, SearchY1, SearchX2, SearchY2, Ox, Oy: integer;
TheTBoxArray: array[1..5] of Tbox;
H, Q, Z: integer;
Boxes: array[1..15] of integer;
begin
result := false;
H := 0;
Q := 0;
Z := 0;
PMSX1 := MSX1 + 5;
PMSY1 := MSY1 + 5;
PMSX2 := MSX2 - 5;
PMSY2 := MSY2 - 5;
PMSCX := Round(MSX2 / 2);
PMSCY := Round(MSY2 / 2);
I := 0;
repeat
I := I + 10;
SearchX1 := MSCX - I;
SearchY1 := MSCY - I;
SearchX2 := MSCX + I;
SearchY2 := MSCY + I;
//If(Z>4)then exit;
//If(Z > 1)then
//begin
//If(FindColorSkipBoxArray(X,Y,Color1,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))or
//(FindColorSkipBoxArray(X,Y,Color2,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))or
//(FindColorSkipBoxArray(X,Y,Color3,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))then
//begin
//MMouse(X,Y,0,0);
//If(IsUpTextMulti(Text1, Text2, Text3))or
//(IsUpTextMulti(Text4,Text5,Text6))then
//begin
//Result := true;
//GetMousePos(ox,oy);
//Exit;
//end
//end;
if (FindColorFromCentre(X, Y, PMSCX, PMSY2, Color1, I, Tolerance)) or
(FindColorFromCentre(X, Y, PMSCX, PMSY2, Color2, I, Tolerance)) or
(FindColorFromCentre(X, Y, PMSCX, PMSY2, Color3, I, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color1, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color2, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color3, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolRaiser(X, Y, PMSX1, PMSY1, PMSX2, PMSY2, Color1, 0, MaxTolerance, true, 5)) or
(FindColorTolRaiser(X, Y, PMSX1, PMSY1, PMSX2, PMSY2, Color2, 0, MaxTolerance, true, 5)) or
(FindColorTolRaiser(X, Y, PMSX1, PMSY1, PMSX2, PMSY2, Color3, 0, MaxTolerance, true, 5)) or
(FindColorTolerance(X, Y, Color1, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolerance(X, Y, Color2, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolerance(X, Y, Color3, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) then
MMouse(X, Y, 0, 0);
if (IsUpTextMulti(Text1, Text2, Text3)) or
(IsUpTextMulti(Text4, Text5, Text6)) then
begin
Result := true;
GetMousePos(ox, oy);
Exit;
end
if not (IsUpTextMulti(Text1, Text2, Text3)) or
not (IsUpTextMulti(Text4, Text5, Text6)) then
begin
GetMousePos(X, Y);
H := H + 1;
Boxes[H] := X - 15;
H := H + 1;
Boxes[H] := Y - 15;
H := H + 1;
Boxes[H] := X + 15;
H := H + 1;
Boxes[H] := Y + 15;
Q := Q + 1;
TheTBoxArray[Q] := cBox2(Boxes[H - 3], Boxes[H - 2], Boxes[H - 1], Boxes[H]);
Z := Z + 1;
end;
//end;
until (SearchX1 > 1);
if (SearchX1 > 1) then
begin
Writeln('Could not Find Color In FindMSObjAdvanced');
Exit;
end;
end;
SCAR Code:
{****************************************************
function FindMSObjAccurate(var ox, oy: integer; Color1, Color2, Color3, Pixels, Tolerance, MaxTolerance: integer; Text1, Text2, Text3, Text4, Text5, Text6: string): boolean;
by : pwnaz0r
Description : Brute Forces Color From Centre
****************************************************}
function FindMSObjAccurate(var ox, oy: integer; Color1, Color2, Color3, Pixels, Tolerance, MaxTolerance: integer; Text1, Text2, Text3, Text4, Text5, Text6: string): boolean;
var
PMSCX, PMSCY, PMSX1, PMSX2, PMSY1, PMSY2, I, SearchX1, SearchY1, SearchX2, SearchY2, Ox, Oy: integer;
TheTBoxArray: array[1..5] of Tbox;
H, Q, Z: integer;
Boxes: array[1..15] of integer;
begin
result := false;
H := 0;
Q := 0;
Z := 0;
PMSX1 := MSX1 + 5;
PMSY1 := MSY1 + 5;
PMSX2 := MSX2 - 5;
PMSY2 := MSY2 - 5;
PMSCX := Round(MSX2 / 2);
PMSCY := Round(MSY2 / 2);
I := 0;
repeat
I := I + 10;
SearchX1 := MSCX - I;
SearchY1 := MSCY - I;
SearchX2 := MSCX + I;
SearchY2 := MSCY + I;
//If(Z>4)then exit;
//If(Z > 1)then
//begin
//If(FindColorSkipBoxArray(X,Y,Color1,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))or
//(FindColorSkipBoxArray(X,Y,Color2,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))or
//(FindColorSkipBoxArray(X,Y,Color3,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))then
//begin
//MMouse(X,Y,0,0);
//If(IsUpTextMulti(Text1, Text2, Text3))or
//(IsUpTextMulti(Text4,Text5,Text6))then
//begin
//Result := true;
//GetMousePos(ox,oy);
//Exit;
//end
//end;
if (FindColorFromCentre(X, Y, PMSCX, PMSY2, Color1, I, Tolerance)) or
(FindColorFromCentre(X, Y, PMSCX, PMSY2, Color2, I, Tolerance)) or
(FindColorFromCentre(X, Y, PMSCX, PMSY2, Color3, I, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color1, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color2, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color3, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolerance(X, Y, Color1, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolerance(X, Y, Color2, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolerance(X, Y, Color3, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) then
MMouse(X, Y, 0, 0);
if (IsUpTextMulti(Text1, Text2, Text3)) or
(IsUpTextMulti(Text4, Text5, Text6)) then
begin
Result := true;
GetMousePos(ox, oy);
Exit;
end
if not (IsUpTextMulti(Text1, Text2, Text3)) or
not (IsUpTextMulti(Text4, Text5, Text6)) then
begin
GetMousePos(X, Y);
H := H + 1;
Boxes[H] := X - 15;
H := H + 1;
Boxes[H] := Y - 15;
H := H + 1;
Boxes[H] := X + 15;
H := H + 1;
Boxes[H] := Y + 15;
Q := Q + 1;
TheTBoxArray[Q] := cBox2(Boxes[H - 3], Boxes[H - 2], Boxes[H - 1], Boxes[H]);
Z := Z + 1;
end;
//end;
until (SearchX1 > 1);
if (SearchX1 > 1) then
begin
Writeln('Could not Find Color In FindMSObjAdvanced');
Exit;
end;
end;
SCAR Code:
{***************************************************
Function function ClickMSObjUltamite((var ox, oy: integer; Color1, Color2, Color3, Pixels, Tolerance, MaxTolerance: integer; Text1, Text2, Text3, Text4, Text5, Text6: string; left: boolean; Option1, Option2, Option3: string): boolean;
By : Pwnaz0r
Description : If It Finds The Color Anywhere On the MS, It will click How specified
***************************************************}
function ClickMSObjUltamite((var ox, oy: integer; Color1, Color2, Color3, Pixels, Tolerance, MaxTolerance: integer; Text1, Text2, Text3, Text4, Text5, Text6: string; left: boolean; Option1, Option2, Option3: string): boolean;
var
Ox, Oy, PMSCX, PMSCY, PMSX1, PMSX2, PMSY1, PMSY2, I, SearchX1, SearchY1, SearchX2, SearchY2: integer;
TheTBoxArray: array[1..5] of Tbox;
H, Q, Z: integer;
Boxes: array[1..15] of integer;
begin
result := false;
H := 0;
Q := 0;
Z := 0;
PMSX1 := MSX1 + 5;
PMSY1 := MSY1 + 5;
PMSX2 := MSX2 - 5;
PMSY2 := MSY2 - 5;
PMSCX := Round(MSX2 / 2);
PMSCY := Round(MSY2 / 2);
I := 0;
repeat
I := I + 10;
SearchX1 := MSCX - I;
SearchY1 := MSCY - I;
SearchX2 := MSCX + I;
SearchY2 := MSCY + I;
//If(Z>4)then exit;
//If(Z > 1)then
//begin
//If(FindColorSkipBoxArray(X,Y,Color1,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))or
//(FindColorSkipBoxArray(X,Y,Color2,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))or
//(FindColorSkipBoxArray(X,Y,Color3,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))then
//begin
//MMouse(X,Y,0,0);
//If(IsUpTextMulti(Text1, Text2, Text3))or
//(IsUpTextMulti(Text4,Text5,Text6))then
//begin
//Result := true;
//GetMousePos(ox,oy);
//Exit;
//end
//end;
if (FindColorFromCentre(X, Y, PMSCX, PMSY2, Color1, I, Tolerance)) or
(FindColorFromCentre(X, Y, PMSCX, PMSY2, Color2, I, Tolerance)) or
(FindColorFromCentre(X, Y, PMSCX, PMSY2, Color3, I, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color1, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color2, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color3, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolRaiser(X, Y, PMSX1, PMSY1, PMSX2, PMSY2, Color1, 0, MaxTolerance, true, 5)) or
(FindColorTolRaiser(X, Y, PMSX1, PMSY1, PMSX2, PMSY2, Color2, 0, MaxTolerance, true, 5)) or
(FindColorTolRaiser(X, Y, PMSX1, PMSY1, PMSX2, PMSY2, Color3, 0, MaxTolerance, true, 5)) or
(ScanForObjectMulti(X, Y, 516, 388, Color1, Color2, Color3, tolerance, Text1)) or
(ScanForObjectMulti(X, Y, 516, 388, Color1, Color2, Color3, tolerance, Text2)) or
(ScanForObjectMulti(X, Y, 516, 388, Color1, Color2, Color3, tolerance, Text3)) or
(ScanForObjectMulti(X, Y, 516, 388, Color1, Color2, Color3, tolerance, Text4)) or
(ScanForObjectMulti(X, Y, 516, 388, Color1, Color2, Color3, tolerance, Text5)) or
(ScanForObjectMulti(X, Y, 516, 388, Color1, Color2, Color3, tolerance, Text6)) or
(FindColorTolerance(X, Y, Color1, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolerance(X, Y, Color2, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolerance(X, Y, Color3, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) then
MMouse(X, Y, 0, 0);
if (IsUpTextMulti(Text1, Text2, Text3)) or
(IsUpTextMulti(Text4, Text5, Text6)) then
begin
GetMousePos(ox, oy);
if (left) then
begin
Mouse(Ox, Oy, 0, 0, true);
Result := true;
end;
if not (left) then
begin
Mouse(Ox, Oy, 0, 0, false);
if (ChooseOption(x, y, (Option1))) or
(ChooseOption(x, y, (Option2))) or
(ChooseOption(x, y, (Option3))) or
(ChooseOption(x, y, (Text1))) or
(ChooseOption(x, y, (Text2))) or
(ChooseOption(x, y, (Text3))) or
(ChooseOption(x, y, (Text4))) or
(ChooseOption(x, y, (Text5))) or
(ChooseOption(x, y, (Text6))) then
result := true;
end;
end
if not (IsUpTextMulti(Text1, Text2, Text3)) or
not (IsUpTextMulti(Text4, Text5, Text6)) then
begin
GetMousePos(X, Y);
H := H + 1;
Boxes[H] := X - 15;
H := H + 1;
Boxes[H] := Y - 15;
H := H + 1;
Boxes[H] := X + 15;
H := H + 1;
Boxes[H] := Y + 15;
Q := Q + 1;
TheTBoxArray[Q] := cBox2(Boxes[H - 3], Boxes[H - 2], Boxes[H - 1], Boxes[H]);
Z := Z + 1;
end;
//end;
until (SearchX1 > 1);
if (SearchX1 > 1) then
begin
Writeln('Could not Find Color In FindMSObjAdvanced');
Exit;
end;
end;
SCAR Code:
{**************************************************
function function ClickMSObjAdvanced((var ox, oy: integer; Color1, Color2, Color3, Pixels, Tolerance, MaxTolerance: integer; Text1, Text2, Text3, Text4, Text5, Text6: string; left: boolean; Option1, Option2, Option3: string): boolean;
by : pwnaz0r
Description : If Finds Color From Centre, It Will Click How specified
**************************************************}
function ClickMSObjAdvanced((var ox, oy: integer; Color1, Color2, Color3, Pixels, Tolerance, MaxTolerance: integer; Text1, Text2, Text3, Text4, Text5, Text6: string; left: boolean; Option1, Option2, Option3: string): boolean;
var
Ox, Oy, PMSCX, PMSCY, PMSX1, PMSX2, PMSY1, PMSY2, I, SearchX1, SearchY1, SearchX2, SearchY2: integer;
TheTBoxArray: array[1..5] of Tbox;
H, Q, Z: integer;
Boxes: array[1..15] of integer;
begin
result := false;
H := 0;
Q := 0;
Z := 0;
PMSX1 := MSX1 + 5;
PMSY1 := MSY1 + 5;
PMSX2 := MSX2 - 5;
PMSY2 := MSY2 - 5;
PMSCX := Round(MSX2 / 2);
PMSCY := Round(MSY2 / 2);
I := 0;
repeat
I := I + 10;
SearchX1 := MSCX - I;
SearchY1 := MSCY - I;
SearchX2 := MSCX + I;
SearchY2 := MSCY + I;
//If(Z>4)then exit;
//If(Z > 1)then
//begin
//If(FindColorSkipBoxArray(X,Y,Color1,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))or
//(FindColorSkipBoxArray(X,Y,Color2,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))or
//(FindColorSkipBoxArray(X,Y,Color3,SearchX1,SearchY1,SearchX2,SearchY2,TheTBoxArray))then
//begin
//MMouse(X,Y,0,0);
//If(IsUpTextMulti(Text1, Text2, Text3))or
//(IsUpTextMulti(Text4,Text5,Text6))then
//begin
//Result := true;
//GetMousePos(ox,oy);
//Exit;
//end
//end;
if (FindColorFromCentre(X, Y, PMSCX, PMSY2, Color1, I, Tolerance)) or
(FindColorFromCentre(X, Y, PMSCX, PMSY2, Color2, I, Tolerance)) or
(FindColorFromCentre(X, Y, PMSCX, PMSY2, Color3, I, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color1, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color2, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorSpiralTolerance(X, Y, Color3, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolRaiser(X, Y, PMSX1, PMSY1, PMSX2, PMSY2, Color1, 0, MaxTolerance, true, 5)) or
(FindColorTolRaiser(X, Y, PMSX1, PMSY1, PMSX2, PMSY2, Color2, 0, MaxTolerance, true, 5)) or
(FindColorTolRaiser(X, Y, PMSX1, PMSY1, PMSX2, PMSY2, Color3, 0, MaxTolerance, true, 5)) or
(FindColorTolerance(X, Y, Color1, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolerance(X, Y, Color2, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) or
(FindColorTolerance(X, Y, Color3, SearchX1, SearchY1, SearchX2, SearchY2, Tolerance)) then
MMouse(X, Y, 0, 0);
if (IsUpTextMulti(Text1, Text2, Text3)) or
(IsUpTextMulti(Text4, Text5, Text6)) then
begin
GetMousePos(ox, oy);
if (left) then
begin
Mouse(Ox, Oy, 0, 0, true);
Result := true;
end;
if not (left) then
begin
Mouse(Ox, Oy, 0, 0, false);
if (ChooseOption(x, y, (Option1))) or
(ChooseOption(x, y, (Option2))) or
(ChooseOption(x, y, (Option3))) or
(ChooseOption(x, y, (Text1))) or
(ChooseOption(x, y, (Text2))) or
(ChooseOption(x, y, (Text3))) or
(ChooseOption(x, y, (Text4))) or
(ChooseOption(x, y, (Text5))) or
(ChooseOption(x, y, (Text6))) then
result := true;
end;
end
if not (IsUpTextMulti(Text1, Text2, Text3)) or
not (IsUpTextMulti(Text4, Text5, Text6)) then
begin
GetMousePos(X, Y);
H := H + 1;
Boxes[H] := X - 15;
H := H + 1;
Boxes[H] := Y - 15;
H := H + 1;
Boxes[H] := X + 15;
H := H + 1;
Boxes[H] := Y + 15;
Q := Q + 1;
TheTBoxArray[Q] := cBox2(Boxes[H - 3], Boxes[H - 2], Boxes[H - 1], Boxes[H]);
Z := Z + 1;
end;
//end;
until (SearchX1 > 1);
if (SearchX1 > 1) then
begin
Writeln('Could not Find Color In FindMSObjAdvanced');
Exit;
end;
end;
