SCAR Code:
program TheWoodcutter;
{.Include SRL\SRL.Scar}
const
TreeColour1= 1648941;
TreeColour2= 2508859;
TreeColour3= 4350548;
var
x, y, i, tries : integer;
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$\\
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :=''; // Add player name - runescape username
Players[0].Pass :=''; // Add player password - runescape pass
Players[0].Nick :=''; // Add username nick - 3-4 consevutive numbers from username
Players[0].Active:=True;
end;
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$\\
procedure randoms;
begin
findnormalrandoms;
if findfight=true then
begin
runaway('E',true,1,5000+random(1000));
end;
end;
{*******************************************************************************
function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
By: Sumilion
Description: Will look for an Ent and avoid if found.
*******************************************************************************}
function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
var
x, y, EntTime, tcts: Integer;
begin
if not(LoggedIn)then
Exit;
GetMousePos(x, y);
if(x <> fx)or(y <> fy)then
MMouse(fx, fy, 0, 0);
if(IsUpText('Chop'))then
begin
tcts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 0.75);
Result := (CountColorTolerance(118478, 9, 10, 124, 23, 10) > 10);
SetColorSpeed2Modifiers(0.2, 0.2);
ColorToleranceSpeed(tcts);
end;
if(Result)then
begin
WriteLn('Ent Found!!');
if(AvoidWhenFound)then
begin
Writeln('Waiting for it to go away.');
MFNF(MMCX, MMCY, -1, 1);
MarkTime(EntTime);
while(TimeFromMark(EntTime) < 35000)do
if(Random(20) > 15)then
IdleTime(500, 500, 0.4)
else
Wait(500 + Random(500));
EntsAvoided := EntsAvoided + 1;
end;
end;
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(14) of
1: RandomRClick;
2: HoverSkill('Woodcutting', False);
3: RandomMovement;
4: BoredHuman;
5: DoEmote (25+Random(35));
6: Wait(500 + Random(500));
7: Wait(500 + Random(500));
8: Wait(500 + Random(500));
9: Wait(500 + Random(500));
10: Wait(500 + Random(500));
11: Wait(500 + Random(500));
12: Wait(500 + Random(500));
13: Wait(500 + Random(500));
14: HoverSkill('Mining', False);
end;
end;
Procedure RandomDisguise;
Begin
Case Random(12)Of
0: Disguise('Windows Live Messenger v.8.0');
1: Disguise('Bigfix - Computer Protection Wizard');
2: Disguise('RuneScape - the massive online adventure game by Jagex Ltd - Mozilla Firefox');
3: Disguise('Tip.it Free RS quest help');
4: Disguise('PhotoShop professional v12.9');
5: Disguise('Google Toolbar');
6: Disguise('Norton Internet Security');
7: Disguise('Tip.it Runescape Help!');
8: Disguise('Trust software and hardware development');
9: Disguise('C:/Program/wireless/internet/broswer');
10: Disguise('Microsoft Office Professional');
11: Disguise('Desktop files');
12: Disguise('SwiftSwitch i.explorer client');
End;
End;
procedure drop;
begin
if (InvFull) then
DropAll;
end;
procedure cutter;
begin
if not LoggedIn then
Exit;
{* if not (FindObj(x, y, 'Chop', TreeColour1, 10)) then
tries := i + 1;
Writeln(IntToStr(tries));
if(tries = 20)then
begin
Logout;
end;
end else *}
if (FindObjCustom(X, Y, ['cho', 'hop', 'chop'], [TreeColour1, TreeColour2, TreeColour3], 3)) then
begin
wait(500+random(10000));
case (Random(7)) of
1: Mouse (x, y, 1, 1,true);
2: Mouse (x, y, 2, 2,true);
3: Mouse (x, y, 3, 3,true);
4: Mouse (x, y, 4, 4,true);
5: Mouse (x, y, 8, 4,true);
6: Mouse (x, y, 1, 5,true);
7: Mouse (x, y, 3, 5,true);
end;
end;
end;
begin
SetupSRL;
RandomDisguise;
DeclarePlayers;
LoginPlayer;
repeat
randoms;
drop;
cutter;
wait(500+random(6000));
AntiBan;
wait(500+random(3000));
until(False)
end.