not sure if this is just a personal thing, but instead of putting
SCAR Code:
procedure LogDropper;
begin
if(InvFull)then
begin
DisguiseScar('Dropping Logs')
DropAllLogs;
Loadsoflogs := Loadsoflogs + 1
end;
end;
and
SCAR Code:
procedure TreeFinderChopper;
begin
if(FindMSColor(x, y, Treecolor1))or
FindMSColor(x, y, Treecolor2)then
begin
DisguiseScar('Looking for ' +(Treename))
MMouse(x, y, 2, 2);
if(IsUpText(Treename))then
Mouse(x, y, 0, 0, True);
wait(4000 + Random (2000));
end;
end;
I'd do this:
SCAR Code:
procedure TreeFinderChopper;
begin
repeat
if(FindMSColor(x, y, Treecolor1))or
FindMSColor(x, y, Treecolor2)then
begin
DisguiseScar('Looking for ' +(Treename))
MMouse(x, y, 2, 2);
if(IsUpText(Treename))then
Mouse(x, y, 0, 0, True);
wait(4000 + Random (2000));
until(InvFull);
end;
end;
and for dropping procedure I'd just put:
SCAR Code:
procedure LogDropper;
begin
DisguiseScar('Dropping Logs')
DropAllLogs;
Loadsoflogs := Loadsoflogs + 1
end;
end;
and that would just keep chopping until Inventory is full, then does the dropping procedure. Not sure if that'd work any better, but that'd be just how i would do it