This seems to work well enough for pest control bank:
Code:
'pest control':
begin
theOptions := ['Bank Bank booth', 'Bank Squire'];
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(1, 1);
FindColorsTolerance(TPA, 10594481, MSX1, MSY1, MSX2, MSY2, 7);
colorToleranceSpeed(1);
setColorSpeed2Modifiers(0.2, 0.2);
ATPA := TPAtoATPAEx(TPA, 20, 10);
SortATPAFromMidPoint(ATPA, Point(250, 90));
SMART_ClearCanvas;
for I := 0 to High(ATPA) do
begin
if Length(ATPA[I]) < 150 then
Continue;
TP := middleTPA(ATPA[I]);
mMouse(TP.X, TP.y, 5, 5);
clickMouse2(MOUSE_RIGHT);
Break;
end;
end;
This makes tabs work:
Code:
//Boxes := Grid(8, 6, 32, 32, 48, 36, Point(88,84));
Boxes := Grid(8, 6, 32, 32, 48, 36, Point(86,97));
Code:
procedure _closeBank;
begin
mouseBox(478, 14, 492, 27, MOUSE_LEFT);
end;
No idea if stringing works with it though.
Also a note that the knife goes in the last slot would be good to put into the script header. Took me a bit to figure out why it was depositing my knife
Edit:
|================================================= =========
| elfyyy's Fletcher
| Version 1.4
| ================================================== =====
| Time Running : 1 Hours, 27 Minutes and 16 Seconds
| Status : Banking
| Bow's made : 2160
| Logs Left : 23161
|================================================= =========
Second edit: Progress report should say "bows", not "bow's".