looks really good for a second script
ok so what i noticed is that (this is for it only chopping one tree) so u have it like this
SCAR Code:
procedure ChopTree;
begin
repeat
if (FindMSColor(x,y,TreeColor)) then
Mouse(x,y,2,2,true);
Wait((waittime)+random(200));
until(InvFull)
end;
and u should have it like this
SCAR Code:
procedure ChopTree;
begin
repeat
if (FindMSColor(x,y,TreeColor)) then
Mouse(x,y,2,2,false);
Wait((waittime)+random(200));
ChooseOption(x,y,'' + TypeOfTree +'');
until(InvFull)
end;
and also up in the const have
SCAR Code:
TypeOfTree = 'Tree';//Type Of Tree To Cut
oh and also i just noticed in the drop procedure u have
SCAR Code:
procedure Drop;
begin
GameTab(4);
DropTo(1,28);
Load := Load + 1;
end;
so if someone doesnt have axe weilded than they would drop axe but keep trying to cut tree :/ so u should do something like this...
SCAR Code:
procedure Drop;
begin
repeat
DropAllLogs;
until(InvEmpty)
Loads:= Loads + 1
end;
but otherwise really good for second script
add me on MSN if u want help