Thanks to all of you for your help, especially sumilion who helped with all of the script. here is the finished version:
SCAR Code:
program BasicTreeCutter;
//with help from Sumilion =]
//whith some guidance on log dropping from JLewis
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
Var TempCount, CutMark, Mymark : integer;
procedure Setup;
begin;
SetupSRL;
ActivateClient;
MouseSpeed := 20;
end;
procedure colourpick1;
begin;
If FindColorSpiral(x, y, 2246712, 000, 000, 516, 337) Then;
begin;
Mouse(x, y, 3, 5, true);
TempCount := InvCount;
MarkTime(CutMark);
repeat
FindNormalRandoms;
Wait(200)
Until(InvCount = TempCount +1) Or (TimeFromMark(CutMark) >= 10000)
end;
end;
begin;
Setup;
repeat
marktime(mymark);
repeat
colourpick1;
until(InvFull);
If(InvFull) Or (TimeFromMark(CutMark) >= 60000) Then;
begin;
DropAllLogs;
end;
Until(false);
end.