Title says it all. Having a really hard time find the banker.
Simba Code:
Function BankFind(var x, y: Integer): Boolean;
Var
CTS, I: Integer;
BankTPA: TPointArray;
ATPA: Array of TPointArray;
Begin
If(Not(LoggedIn))Then Exit;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.14, 0.81);
FindColorsSpiralTolerance(MSCX, MSCY, BankTPA, 2175542, MSX1, MSY1, MSX2, MSY2, 6);
ATPA := TPAToATPAEx(BankTPA, 5, 5);
For I := 0 To High(ATPA) Do
Begin
MiddleTPAEx(ATPA[i], x, y);
MMouse(x, y, 2, 2);
If(IsUpTextMultiCustom(['Bank','Fre'])) Then
Begin
Writeln('Found Bank');
GetMousePos(x, y);
Result := True;
Break;
End;
End;
End;
Procedure OpenFreBank;
Var Tries: Integer;
Begin
Repeat
If(Not(LoggedIn))Then Exit;
Tries := Tries + 1;
If(Tries = 5) Then
Writeln('Failed Five times');
Logout;
If BankFind(x, y) Then
Mouse(x, y, 0, 0, False);
WaitOption('ank', 500);
Until(BankScreen or(Tries = 5));
If Bankscreen Then
Begin
Writeln('Opened bank, deposit ores...');
//Haven't written this yet//
End Else
Writeln('Failed to open bank');
Logout;
End;