
Originally Posted by
cnr sport
SCAR Code:
program PropperChopper;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\woodcutting.scar}
{.includes\SRL\SRL\skill}
const
IsAxeWeilded = true; // Change to True If Axe Is Weilded
RunDirection= 'NW';
Tree = 4026472;//Colour of tree.
Treename = 'Willow';
Loads=20;
procedure CuttingTree;
begin
if (FindColorTolerance(x,y,4026472,MSX1,MSY1,MSX2,MSY2,Tolerance)) then
Mouse(x,y,4,4,True);
if FindObj(x,y,'ill',Tree,10) then
Mouse(x, y, 1, 1, true);
Writeln('Cutting a tree ');
case random(10)of
0 : wait (1000);
1 : wait (2068);
2 : wait (3102);
3 : wait (1000);
4 : wait (2500);
5 : wait (1674);
6 : wait (6453);
7 : wait (1343);
8 : wait (1232);
9 : wait (2743);
10 : wait (2342);
end
FindHead;
AttachHead;
end;
procedure DropAllLogs;
begin
wait(500);
DropAllLogs;
end;
begin
CuttingTree;
DropAllLogs;
repeat
CuttingTree;
repeat
DropAllLogs;
until(InventoryFull)
until(loads=20)
end.
It says unnknown identifer(tolerance) in line 14 in my script
It's the
SCAR Code:
if (FindColorTolerance(x,y,4026472,MSX1,MSY1,MSX2,MSY2,Tolerance))
Tolerance there, add it to the constants
SCAR Code:
program PropperChopper;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\woodcutting.scar}
{.includes\SRL\SRL\skill}
const
IsAxeWeilded = true; // Change to True If Axe Is Weilded
RunDirection= 'NW';
Tree = 4026472;//Colour of tree.
Treename = 'Willow';
Loads=20;
Tolerance=10;
procedure CuttingTree;
begin
if (FindColorTolerance(x,y,4026472,MSX1,MSY1,MSX2,MSY2,Tolerance)) then
Mouse(x,y,4,4,True);
if FindObj(x,y,'ill',Tree,10) then
Mouse(x, y, 1, 1, true);
Writeln('Cutting a tree ');
case random(10)of
0 : wait (1000);
1 : wait (2068);
2 : wait (3102);
3 : wait (1000);
4 : wait (2500);
5 : wait (1674);
6 : wait (6453);
7 : wait (1343);
8 : wait (1232);
9 : wait (2743);
10 : wait (2342);
end
FindHead;
AttachHead;
end;
procedure DropAllLogs;
begin
wait(500);
DropAllLogs;
end;
begin
CuttingTree;
DropAllLogs;
repeat
CuttingTree;
repeat
DropAllLogs;
until(InventoryFull)
until(loads=20)
end.
And change the 'ill' to Treename perhaps?
SCAR Code:
program PropperChopper;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\woodcutting.scar}
{.includes\SRL\SRL\skill}
const
IsAxeWeilded = true; // Change to True If Axe Is Weilded
RunDirection= 'NW';
Tree = 4026472;//Colour of tree.
Treename = 'Willow';
Loads=20;
Tolerance=10;
procedure CuttingTree;
begin
if (FindColorTolerance(x,y,4026472,MSX1,MSY1,MSX2,MSY2,Tolerance)) then
Mouse(x,y,4,4,True);
if FindObj(x,y,Treename,Tree,10) then
Mouse(x, y, 1, 1, true);
Writeln('Cutting a tree ');
case random(10)of
0 : wait (1000);
1 : wait (2068);
2 : wait (3102);
3 : wait (1000);
4 : wait (2500);
5 : wait (1674);
6 : wait (6453);
7 : wait (1343);
8 : wait (1232);
9 : wait (2743);
10 : wait (2342);
end
FindHead;
AttachHead;
end;
procedure DropAllLogs;
begin
wait(500);
DropAllLogs;
end;
begin
CuttingTree;
DropAllLogs;
repeat
CuttingTree;
repeat
DropAllLogs;
until(InventoryFull)
until(loads=20)
end.