This script is really good, you should try attempting some TPAs soon 
By the way:
SCAR Code:
function BankToTrees : Boolean;
begin
if (not LoggedIn) then
Exit;
x := MMCX;
y := MMCY;
Result := FindColorSpiral(x, y, TreeSymbol, MMX1, MMY1, MMX2, MMY2);
if (Result) then
begin
Mouse(x + 5, y + 17, 2, 2, True)
WriteLn('Moving to trees');
end else
begin
WriteLn('Could not find Tree Symbol');
Players[CurrentPlayer].Active := False;
LogOut;
Exit;
end;
end;
When you do Mouse(x + 5 that can be a bit bot-like. Thus, I suggest doing x + 3 + Random(2) or
Mouse(x + RandomRange(1, 6),
etc.
Keep up the good work though