SCAR Code:
procedure NotTreeType1;
var WaitTime: Integer;
begin
if (not(IsUpTextMulti('hop','own',TreeType))) then
begin
MarkTime(WaitTime);
repeat
if (IsUpTextMulti('hop','own',TreeType)) then
Break;
if (FindColorTolerance(x,y,TreeColor1,0,0,263,154,TreeTol)) or
(FindColorTolerance(x,y,TreeColor2,0,0,263,154,TreeTol)) or
(FindColorTolerance(x,y,TreeColor3,0,0,263,154,TreeTol)) then
begin
MMouse(x,y,3,3);
end;
until(IsUpTextMulti('hop','own',TreeType)) or (TimeFromMark(WaitTime) > 5000 + random(2000))
end;
end;
procedure NotTreeType2;
var WaitTime: Integer;
begin
if (not(IsUpTextMulti('hop','own',TreeType))) then
begin
MarkTime(WaitTime);
repeat
if (IsUpTextMulti('hop','own',TreeType)) then
Break;
if (FindColorTolerance(x,y,TreeColor1,263,0,512,154,TreeTol)) or
(FindColorTolerance(x,y,TreeColor2,263,0,512,154,TreeTol)) or
(FindColorTolerance(x,y,TreeColor3,263,0,512,154,TreeTol)) then
begin
MMouse(x,y,3,3);
end;
until(IsUpTextMulti('hop','own',TreeType)) or (TimeFromMark(WaitTime) > 5000 + random(2000))
end;
end;
procedure NotTreeType3;
var WaitTime: Integer;
begin
if (not(IsUpTextMulti('hop','own',TreeType))) then
begin
MarkTime(WaitTime);
repeat
if (IsUpTextMulti('hop','own',TreeType)) then
Break;
if (FindColorTolerance(x,y,TreeColor1,0,154,263,0,TreeTol)) or
(FindColorTolerance(x,y,TreeColor2,0,154,263,0,TreeTol)) or
(FindColorTolerance(x,y,TreeColor3,0,154,263,0,TreeTol)) then
begin
MMouse(x,y,3,3);
end;
until(IsUpTextMulti('hop','own',TreeType)) or (TimeFromMark(WaitTime) > 5000 + random(2000))
end;
end;
procedure NotTreeType4;
var WaitTime: Integer;
begin
if (not(IsUpTextMulti('hop','own',TreeType))) then
begin
MarkTime(WaitTime);
repeat
if (IsUpTextMulti('hop','own',TreeType)) then
Break;
if (FindColorTolerance(x,y,TreeColor1,263,154,512,337,TreeTol)) or
(FindColorTolerance(x,y,TreeColor2,263,154,512,337,TreeTol)) or
(FindColorTolerance(x,y,TreeColor3,263,154,512,337,TreeTol)) then
begin
MMouse(x,y,3,3);
end;
until(IsUpTextMulti('hop','own',TreeType)) or (TimeFromMark(WaitTime) > 5000 + random(2000))
end;
end;
//CHOPPING PROCEDURE//
procedure Chop;
var WaitTime: Integer;
begin
repeat
if(not(LoggedIn)) or (IsChatMessage('ou do not have an axe'))then
NextPlayer(True);
if(FindColorTolerance(x,y,TreeColor1,MSX1,MSY1,MSX2,MSY2,TreeTol))or
(FindColorTolerance(x,y,TreeColor2,MSX1,MSY1,MSX2,MSY2,TreeTol))or
(FindColorTolerance(x,y,TreeColor3,MSX1,MSY1,MSX2,MSY2,TreeTol))then
begin
case random(2) of
0: begin
MMouse(x,y,3,3);
if (not(IsUpTextMulti('hop','own',TreeType))) then
begin
repeat
if(IsUpTextMulti('hop','own',TreeType))then
Break;
NotTreeType1;
NotTreeType2;
NotTreeType3;
NotTreeType4;
MakeCompass('random');
until(IsUpTextMulti('hop','own',TreeType));
if (FindColorTolerance(x,y, 65535, 6,6,117,27,10)) or
(FindColorTolerance(x,y, 383705,6,6,117,27,10)) or
(FindColorTolerance(x,y, 55769, 6,6,117,27,10)) and
(IsUpTextMulti('hop','own',TreeType)) then
begin
Writeln('Ent Found RUNNING!');
RunAwayDirection(RunDir);
Wait(20000 + random(15000));
RunBack;
EntsAvoided:= EntsAvoided + 1;
end else
if (IsUpTextMulti('hop','own',TreeType)) then
Mouse(x,y,3,3,True);
MarkTime(WaitTime);
if(InvFull) or (FindFastRandoms) or if(not(FindColorTolerance(x,y,TreeColor1,MSX1,MSY1,MSX2,MSY2,3)))then
Break;
while(TimeFromMark(WaitTime) < ChopTime * 1000)do
begin
Randoms;
DontGetBanned;
end;
end;
end;
1: begin
MMouse(x,y,3,3);
if (not(IsUpTextMulti('hop','own',TreeType))) then
begin
repeat
if(IsUpTextMulti('hop','own',TreeType))then
Break;
NotTreeType1;
NotTreeType2;
NotTreeType3;
NotTreeType4;
MakeCompass('random');
until(IsUpTextMulti('hop','own',TreeType));
if (FindColorTolerance(x,y, 65535, 6,6,117,27,10)) or
(FindColorTolerance(x,y, 383705, 6,6,117,27,10)) or
(FindColorTolerance(x,y, 55769, 6,6,117,27,10)) and
(IsUpTextMulti('hop','own',TreeType)) then
begin
Writeln('Ent Found RUNNING!');
RunAwayDirection(RunDir);
Wait(20000 + random(15000));
RunBack;
EntsAvoided:= EntsAvoided + 1;
end else
if (IsUpTextMulti('hop','own',TreeType)) then
Mouse(x,y,3,3,False);
ChooseOption(x,y,'own');
MarkTime(WaitTime);
if(InvFull) or (FindFastRandoms) or (not(FindColorTolerance(x,y,TreeColor1,MSX1,MSY1,MSX2,MSY2,3)))then
Break;
while(TimeFromMark(WaitTime) < ChopTime * 1000)do
begin
Randoms;
DontGetBanned;
end;
end;
end;
end;
end;
until(InvFull);
end;