Your cutting procedure looks similar to Torrent of Flame's
Yours:
SCAR Code:
TreeColors[0] := 6650991;
TreeColors[1] := 4678229;
TreeColors[2] := 3825743;
TreeColors[3] := 3360830;
TreeColors[4] := 3166530;
for I := 0 to 4 do
if FindObjTPA(X, Y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'llow', 'illo']) then
Begin
Repeat
FindObjTPA(X, Y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'llow', 'illo'])
Wait(500 + Random(250));
MMouse(X, Y, 2, 2);
Begin
Wait(250 + Random(100));
Wait(250 + Random(100));
Case Random(2) Of
0: Begin
Mouse(X, Y, 4, 4, False);
Wait(250 + Random(100));
ChooseOption('Hop');
WriteLn('Chopping Tree');;
end;
1: Begin
Mouse(X, Y, 4, 4, True);
WriteLn('Chopping Tree');
End;
End;
Wait(3000 + Random(500));
FindObjTPA(X, Y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'llow', 'illo']);
MMouse(X,Y, 2, 2);
FindObjTPA(X, Y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'llow', 'illo']);
Wait(3000 + Random(500));
AntiBan;
If Not (LoggedIn) Then
LoginPlayer;
End;
Until InvFull or not FindObjTPA(X, Y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'llow', 'illo']);
While (not FindObjTPA(X, Y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'llow', 'illo'])) do
repeat
if (not FindObjTPA(X, Y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'llow', 'illo'])) then
MakeCompass('N');
Wait(250 + Random(100));
if (not FindObjTPA(X, Y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'llow', 'illo'])) then
MakeCompass('E');
Wait(250 + Random(100));
if (not FindObjTPA(X, Y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'llow', 'illo'])) then
MakeCompass('W');
Wait(250 + Random(100));
if (not FindObjTPA(X, Y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'llow', 'illo'])) then
inc(Failed);
Until FindObjTPA(X, Y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'llow', 'illo']);
If (Failed=5) Then
Begin
WriteLn('Tree Finding Failed :(');
ProgressReport;
LoginPlayer;
End;
End;
End;
End;
Torrent of Flame's
SCAR Code:
'willow': begin
TreeColors[0] := 2181686;
TreeColors[1] := 6193521;
TreeColors[2] := 3755332;
TreeColors[3] := 3234376;
for i := 0 to 3 do
if FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']) then
begin
repeat
FindEnts(x, y, True);
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])
Wait(100 + Random(300));
MMouse(x, y, 2, 2);
begin
Wait(100 + Random(200));
Wait(100 + Random(200));
case Random(2) of
0: begin
Mouse(x, y, 4, 4, False);
Wait(100 + Random(200));
ChooseOption('hop');
WriteLn('Chopping Tree');;
end;
1: begin
Mouse(x, y, 4, 4, True);
WriteLn('Chopping Tree');
end;
end;
Wait(3000 + Random(400));
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])
MMouse(x, y, 2, 2);
FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])
Wait(3000 + Random(400));
AntiBan;
FindRandoms;
if not (LoggedIn) then
NextPlayer(False);
LoginPlayer;
end;
until Invfull or not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']);
while (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) do
repeat
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
MakeCompass('N');
Wait(100 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
MakeCompass('E');
Wait(100 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
MakeCompass('W');
Wait(100 + Random(300));
if (not FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow'])) then
Inc(Failed);
until FindObjTPA(x, y, TreeColors[i], 30, 2, 15, 25, 10, ['Willow', 'Will', 'illo', 'llow']) or (Failed = 5);
if (Failed = 5) then
begin
WriteLn('Tree Finding Failed :(');
ProgressReport;
NextPlayer(False);
LoginPlayer;
end;
end;
end;
You should credit him for that procedure.