its ure first right? well let me suggest something...
were u put typesend('this is boring') you should chaange it because your script will be like this: chop a tree, type this is boring, chop a tree, type this is boring. over and over. i suggest making it random by doing something lkike this:
Code:
case Random(10) of
1: typesend('this is boring')
9: typesend('few more logs')'
5: typesend('woodcutting gets boring after awile')
end;
that says that SCAR will randomly pick a number from 0 - 10 and if it pick any of the numbers next to the typesends it will do that command for example if it randomly picks 5 it will type 'woodcutting gets boring after awile'. so your final script would look like this:
Code:
program PowerWoodCutter;
{.include SRL/SRL.scar}
var
x, y: Integer;
i: Integer;
const
TreeColor = 1922123;
procedure Chop;
begin
if (FindColor(x, y, TreeColor, 117, 179, 889, 709)) then
begin
Mouse(x, y, 5, 5, true); //Move and click there
Wait(1000 + Random(8000));
case Random(10) of
1: typesend('this is boring')
4: typesend('ugh')
7: typesend('when does it end!')
end;
Wait(10000 + Random(20000)); //waits 10-20 seconds
end;
end;
begin
SetupSRL
i := 0;
repeat
i := i + 1;
Chop; //Do the chop procedure
MMouse(MSX1, MSY1, MSX2, MSY2);
if InvFull = true then
DropToPosition(2, 28);
until (i >= 50); //Do it 50 times
end.
remember every "case" needs an end;
I tested it works
hope i helped