SCAR Code:
program PowerWoodCutter;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
var
x, y: Integer;
i: Integer;
const
TreeColor = 1922123;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
{Does this work for me if im using 1 autoer? (Im getting more for times of 5 mins eac)}
Result := true;
2: if FindMod then Result := true;
3: if FindMime then Result := true;
4: if FindMaze then Result := true;
5: if FindQuiz then Result := true;
6: if FindDemon then Result := true;
7:
begin
if NoGameTab then
begin
Result := true;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
end;
end;
end;
procedure Chop;
begin
if (FindColor(x, y, TreeColor, 117, 179, 889, 709)) then
begin
Mouse(x, y, 5, 5, true);
Wait(1000 + Random(8000));
case Random(10) of
1: typesend('this is boring')
2: typesend('i cant take any more!!!')
3: typesend(' Blink 182 are such beaasts!!!')
4: typesend('ugh')
5: typesend('zzzz...zzzz...')
6: typesend('This is so not fun')
7: typesend('when does it end!')
8: typesend('This is 3 hours straight!!!')
9: typesend('I wish i was on a shift!')
10: typesend(' 4 hours straight woodcutting!!!')
end;
Wait(10000 + Random(20000));
end;
end;
begin
SetupSRL
i := 0;
repeat
i := i + 1;
Chop;
MMouse(MSX1, MSY1, MSX2, MSY2);
if InvFull then
begin
DropAllLogs;
end;
until (i >= 50);
end.
? hows that?. No procedure called DropAllLogs tho