Function DoorFinder(var x, y: Integer): Boolean;
Var
CTS, I: Integer;
DoorTPA: TPointArray;
ATPA: Array of TPointArray;
Begin
If(Not(LoggedIn))Then Exit;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 1.14);
FindColorsSpiralTolerance(MSCX, MSCY, DoorTPA, 1394785, MSX1, MSY1, MSX2, MSY2, 11);
ATPA := TPAToATPAEx(DoorTPA, 15, 15);
For I := 0 To High(ATPA) Do
Begin
MiddleTPAEx(ATPA[i], x, y);
MMouse(x, y, 2, 2);
If(IsUpTextMultiCustom(['Guild','Open'])) Then
Begin
Writeln('Found Door');
GetMousePos(x, y);
Result := True;
Break;
End;
End;
End;
Should find the door for you. I used it awhile ago so it might not work. Have to make your own clicking function and stuff like…
If DoorFinder(x, y) Then
//blah blah blah click click