Hey,
i made my own function to find the bank, however it doesnt seem to be able to open the bank.
Simba Code:
Function MyOpenBank:Boolean;
var
TPA : TPointArray;
ATPA : T2DPointArray;
x, y, i, ii:Integer;
begin
Result:= False;
if BankScreen then
begin
Result:= True;
Writeln('Bank Found');
Exit;
end;
MakeCompass('W');
Wait(300); //screen settel
FindColorsTolerance(TPA, MyFindColor('bank', False), MSX1, MSY1, MSX2, MSCY, 5);
//DebugTPA(TPA, '');
//Wait(3000);
ATPA := SplitTPAEx(TPA, 10, 10);
SortATPAFromFirstPoint(ATPA, Point(MSCX, MSCY));
//DebugATPABounds(ATPA);
ii := High(ATPA); //get higherst entry in array
for i := 0 to ii do //from 0 first entry in array to ii highest entry
begin
MiddleTPAEx(ATPA[i], x, y);//find middle of array entry
MMouse(x, y, 3, 3);
if WaitUpTextMulti(['ooth', 'ank booth'], 300) then
begin
Mouse(x, y, 0, 0, False);
Wait(200); //ERROR HERE
//ChooseOption('uickly'); //Dont work
//WaitOptionMultiEx(['se-quickly', 'uickly'], 'all', ClickLeft, 200);//Dont work
//WaitOption('uickly', 500); //Dont work
ChooseOptionMultiEx(['uickly'], 'all', ClickLeft) //Dont work
Flag;
Wait(2000 + Random(800));
if BankScreen then
begin
Result:= True;
Writeln('Bank Found');
Exit;
end;
end;
end;
end;
i have tried just using SRL's OpenBank(); and that works fine, however my function wont for for some reason.
any ideas