Syntax
2014-01-14 05:06:18
I use to use the Find Object function in ACA because it was simple and it worked here is what I used:
[SIMBA=
Var
TPAA: T2DPointArray;
TPA: TPointArray;
CTS, I: Integer;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 9222068, MSX1, MSY1, MSX2, MSY2, 11);
ColorToleranceSpeed(CTS);
TPAA := TPAToATPAEx(TPA, 525, 346);
SortATPASize(TPAA, True);
For I := 0 To High(TPAA) Do
If GetArraylength(TPAA) > 5 Then
Begin
repeat
MiddleTPAEx(TPAA, X, Y);
MMouse(X, Y, 3, 3);
if (isMouseOverText(['tack', 'an'])) then
Begin
Result := True;
GetMousePos(X, Y);
mouse(x,y,3,3,false);
wait(100 + random(200));
chooseOption('pock');
wait(5000 + random(1000));
Break;
End;
until (Result :=False);
Break;
end;
end;
]
As you can see, I have started to adapt it for SRL-6 with some minor adjustments then I realized it wasn't supported anymore the CTS.
Does anyone have some suggestions for what I should use instead? The target isn't still it's a moving NPC (Rogues Den banker)
[SIMBA=
Var
TPAA: T2DPointArray;
TPA: TPointArray;
CTS, I: Integer;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 9222068, MSX1, MSY1, MSX2, MSY2, 11);
ColorToleranceSpeed(CTS);
TPAA := TPAToATPAEx(TPA, 525, 346);
SortATPASize(TPAA, True);
For I := 0 To High(TPAA) Do
If GetArraylength(TPAA) > 5 Then
Begin
repeat
MiddleTPAEx(TPAA, X, Y);
MMouse(X, Y, 3, 3);
if (isMouseOverText(['tack', 'an'])) then
Begin
Result := True;
GetMousePos(X, Y);
mouse(x,y,3,3,false);
wait(100 + random(200));
chooseOption('pock');
wait(5000 + random(1000));
Break;
End;
until (Result :=False);
Break;
end;
end;
]
As you can see, I have started to adapt it for SRL-6 with some minor adjustments then I realized it wasn't supported anymore the CTS.
Does anyone have some suggestions for what I should use instead? The target isn't still it's a moving NPC (Rogues Den banker)