Code:
program fletcher;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
const
StartPlayer = 0;
UseBenMouse = True; // Use BenMouse?
treecolor1 =5075056;
treecolor2 =2897976;
treecolor3 =3825752;
longbow =537419;
RunDir ='N'; //Which way to run after fight
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
CurrentPlayer := StartPlayer;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :=''; // 3-4 letters from your name
Players[0].Active:= True;
end;
function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for I := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: if FindTalk then
Result := True;
end;
Wait(1);
end;
end;
procedure antiz; // Made by Reece844 me
begin
case Random(6) of
0: AlmostLogout;
1: begin
HoverSkill('Woodcutting', True);
Wait(564 + random(365));
GameTab(4);
end;
2: begin
HoverSkill('Prayer', false);
Wait(733 + random(421));
GameTab(4);
end;
3: begin
GameTab(1)
Wait(126 + random(895));
GameTab(4)
end;
4: SayCurrentLevels('Woodcutting');
5: PickUpMouse;
end;
end;
Procedure FindThoseRandoms;
begin
if(FindFight)then
begin
RunAwayDirection('N');
Wait(9500+Random(5500));
RunBack;
end;
if(FindDead)then
begin
Writeln('You are Dead!');
Writeln('Next player.');
end;
antiz;
DwarfItem;
SolveFrog;
FindCerter;
FindDemon;
FindQuiz;
SolveBox;
SolveSandWich;
FindNormalRandoms;
FindFastRandoms;
FindLamp('woodcutting');
end;
Procedure findtree;
begin
if(findcolorspiraltolerance(x,y,treecolor1,msx1,msy1,msx2,msy2,20))or
(findcolorspiraltolerance(x,y,treecolor2,msx1,msy1,msx2,msy2,15))or
(findcolorspiraltolerance(x,y,treecolor3,msx1,msy1,msx2,msy2,10))then
begin
MMouse(x, y, 3, 3);
if(IsUpTextMulti('chop','op do','down'))then
begin
writeln('Found a tree.')
writeln('Lets Check It.')
if(IsUpTextMulti('Tr','ee','down'))then
begin
Mouse(x, y, 2, 2, True);
FindThoseRandoms;
Wait(13);
Exit;
end else
begin
writeln('Redo Your colors!')
end;
end;
end;
end;
procedure fletch;
begin
mmouse(710, 359, 3, 3);
wait(234)
mouse(x,y, 2, 2, True);
wait(154)
mmouse(750, 359, 3, 3);
wait(325)
mouse(x,y, 2, 2, True);
if(findcolorspiraltolerance(x,y,longbow,msx1,msy1,msx2,msy2,20))then
begin
mmouse(x, y, 3, 3);
mouse(x, y, 2, 2, False);
ChooseOption(x, y, 'Make X');
TypeSend('28');
KeyDown(13);
Sleep(1);
KeyUp(13);
wait(7500);
end;
end;
procedure saddrop;
begin
if InvCount = 28 then
begin
DropTo(3, 28);
end;
end;
procedure SetUp;
begin
if not(LoggedIn)then
LoginPlayer;
wait(345)
HighestAngle;
MakeCompass('N');
SetRun(true);
GameTab(4);
end;
begin
SetUpSRL;
BenMouse := UseBenMouse;
Activateclient;
SetUp;
repeat
findtree;
FindThoseRandoms;
fletch;
FindThoseRandoms;
saddrop;
until(isfkeyDown(10))
if(isfkeyDown(10))then
terminatescript;
end.