thanks for the help flight I'm trying to work though it but you right its is hard to be accurate.
but one thing that i thought of was using Runeloader to help me tell simba that we had stopped cutting the reason that i thought this would work is because runeloader provides this window when skilling
runeloader wc.PNG
is there anyway i could search for that bright green color that says 'You Are WoodCutting'(also side note the text turns red when not woodcutting). and that could be my deciding factor weather or not im cutting. for example something like this
Simba Code:
program woodcutter;
{$DEFINE WALKER}
{$i AeroLib/AeroLib.Simba}
var
RSW:TRSWalker;
path:TPointArray;
WillowTree:TMSObject;
WeridGreenCol:TColEx;
procedure LoadItem;
begin
WillowTree.create('Chop down Willow', ['Chop', 'down','Willow'], [createCol(2771022, 13, 0.20, 0.07)], 50, 0, 0, 0);
WeridGreenCol.create(5275409, 22, 1.10, 0.60);
RSW.Init('WorldMap');
end;
procedure cutting;
var
pntTree:Tpoint;
i:Integer;
begin
for i:=1 to 5 do
begin
if WillowTree.find(pntTree) then
HumanMMouse(pntTree,5,5);
if IsUpTextMulti(['Chop', 'down','Willow']) then
FastClick(Mouse_LEFT);
writeln('cutting1');
if didRedClick() then
break;
end;
end;
procedure isWoodCutting;
var
i:Integer;
begin
if WeridGreenCol.find then
begin
for i:=1 to 1000 do
begin
wait(300);
if not WeridGreenCol.find then
break;
end;
writeln('couldnt find werid Green color so breaking loop/means done cutting');
end;
end;
procedure Cutting2;
var
pntTree:Tpoint;
i:Integer;
begin
for i:=1 to 5 do
begin
wait(4000 + Random(1000));
writeln('Lets look for a Tree');
if WillowTree.find(pntTree) then
HumanMMouse(pntTree,5,5);
if IsUpTextMulti(['Chop', 'down','Willow']) then
FastClick(Mouse_LEFT);
if didRedClick() then
break;
end;
end;
procedure Droppinglogs;
var
i, SSlot: integer;
begin
if findBlackChatMessage('Your inventory is too full to hold any more logs.') then
begin
if (getRunEnergy() > randomRange(1,100)) then
toggleRunning(True);
RSW.walkStyle := wsSPS;
RSW.anyAngle := True;
path:=[Point(2680,2428),Point(2678,2461),Point(2680,2491),Point(2686,2502),Point(2705,2505),Point(2714,2500),Point(2712,2487),Point(2722,2477)];
RSW.WalkPath(path);
end;
end;
Procedure MainLoop;
begin
cutting();
IsWoodcutting;
cutting2();
Droppinglogs;
end;
begin
initAL;
Loaditem;
repeat
MainLoop();
Until(False);
end.
In my mind i feel like this should work but i cant get it to compile. could you please take look at and tell me what you think.