MyPoint needs to be a TPoint;
SCAR Code:
Function FindSpot:Boolean;
Var x,y,i: Integer;
TPA: TPointArray;
MyPoint: TPoint;
Begin
If Not LoggedIn Then Exit;
x := MSCx;
y := MSCy;
FindColorsSpiralTolerance(x, y, TPA, Colour, MSx1, MSy1, MSx2, MSy2, 10);
If Length(TPA) = 0 Then
If FindColorsSpiralTolerance(x, y, TPA, Colour1, MSX1, MSY1, MSX2, MSY2, 10) Then
If Length(TPA) = 0 Then
Exit;
For i := 0 To High(TPA) Do
Begin
MyPoint := TPA[i]
MMouse (MyPoint.x, MyPoint.y, 3, 3);
If IsUpText('ow') Then
begin
GetMousePos(x,y);
If Random(8)=5 Then
Mouse(x,y,0,0,False)
else
Mouse(x, y, 0, 0, True);
Wait(500+Random(750);
WaitOption('ill', 2000);
Break;
end;
End;
End;
There, I believe that's what you want.
ChooseOption checks to see if the option is available first so it wont execute it you didn't right click