Originally Posted by
includer100
Any suggestions as to where I'm going wrong here?
procedure CutTree;
begin;
if P07_FindObj(x, y, 'own', 6723505, 5) then
begin
ClickMouse2(mouse_left);
begin;
i := P07_InvCount; // Stores how many items you have in your inventory in 'i'
MarkTime(CutTimer); // Marks a timer
if TimeFromMark(CutTimer) > 60000 then // Checks if the timer has been running for over a minute
if i = P07_InvCount then // Checks if your inventory count is still the same as it was a minute ago
ClickMouse2(mouse_left);
if not i = P07_InvCount then
begin;
MarkTime(CutTimer);
i := P07_InvCount;
end;
end;
repeat
Wait(RandomRange(3000, 8000));
until not P07_IsUpTextMultiCustom(['Teak']) or(P07_InvFull);
end;
end;
Simba Code:
procedure CutTree;
begin;
MarkTime(CutTimer);
i := P07_InvCount;
repeat
if P07_FindObj(x, y, 'own', 6723505, 5) then
ClickMouse2(mouse_left);
if TimeFromMark(CutTimer) > 60000 then
if i = P07_InvCount then
if P07_IsUpTextMultiCustom(['Teak']) then
ClickMouse2(mouse_left);
if not i = P07_InvCount then
begin;
MarkTime(CutTimer);
i := P07_InvCount;
end;
repeat
Wait(RandomRange(3000, 8000));
until not P07_IsUpTextMultiCustom(['Teak']) or(P07_InvFull);
end;
until P07_InvFull;
end;
Thats how I would do it.