Alright so I've been using findobjcus w/ ACA for a while becasue its been so simple and I can just throw scripts together but I gave ATPA a go here is my issue > It will Find the Altar perfectly Fine > Right click wont choose the option altar and will immediately move outside to the left side of the screen then repeat > finding altar > rightclicking bla bla.
Simba Code:
Function Altar: Boolean;
Var
CTS, I: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(1.39, 0.20);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, AltarColor, MSX1, MSY1, MSX2, MSY2, 18); // Used ACA 'AltarColor'
ColorToleranceSpeed(CTS);
ATPA := TPAToATPAEx(TPA, 15, 15);
For I := 0 to High(ATPA) Do
Begin
MiddleTPAEx(ATPA[i], x, y);
MMouse(X, Y, 2, 2);
If (IsUpTextMultiCustom(['Altar'])) Then
begin
ClickMouse2(False);
Wait(100 + Random(50));
ChooseOption('Altar');
end;
result:=true;
break;
end;
end;
end;
Second one is simple the Until(invFull); must be written wrong because on a full inventory it will still keep trying to pick up items. Whats the correct way to write it?
Simba Code:
Procedure PickupSticks;
Begin
Gametab(Tab_Inv)
If (FindObjCustom(X, Y, ['The names here'], [COL], 5)) Then // ignore this line
Begin
Writeln('Found Da Sticks');
Wait(700+random(50));
ClickMouse2(False);
Wait(200 + Random(150));
ChooseOption('Take')
Wait(500 + Random(150));
MMouse(292,180,2,2);
Wait(44000 + Random(1000));
End Else Writeln('Cant Find The Stick');
Repeat
PickupSticks;
Until(invFull); // < Here is the issue
Teleport;
End;