So I've been working on getting into TPAs because apparently they're only the coolest thing ever and I want to be an SRL member. So I whipped up a TPA test script to find a color, then left click on it and choose an option. Can anybody tell me what's wrong with my TPA?
Simba Code:
program TPAtest;
{$Define SMART}
{$I SRL/SRL.Simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Pin :=''
Players[0].Active:=True;
end;
procedure FindThing;
var
X, Y, i: Integer;
TPA: TPointArray;
ATPA: T2DPointArray;
begin
begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.97, 3.83);
if FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4211012, MSX1, MSY1, MSX2, MSY2, 6) then
begin
SplitTPAExWrap(TPA, 4, 4, ATPA);
if Length(ATPA) > 0 then
begin
SortATPASize(ATPA, True);
MiddleTPAEx(ATPA[0], X, Y);
MMouse(X, Y, RandomRange(-2, 2), RandomRange(-2, 10));
if WaitUpTextMulti(['anker', 'nker', 'ker'], 500) then
begin
case Random(7) of
0..4: ClickMouse2(1);
5..6: begin
ClickMouse2(0);
WaitOptionMulti(['ank', 'nk'], 500);
end;
end;
end;
end;
end;
end;
end;
begin
SMART_FIXSPEED := True;
SRL_SixHourFix:= True;
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
FindThing;
until (False);
end.
It only seems to hover over grey minimized action bar.