SCAR Code:
program YewCutter;
//Made And Coded By U L T R A & cut em 2it.
//90 = east, 180 = south, 270 = west, 360 = north.
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
var
CementRoadColor: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Zezima';
Players[0].Pass := 'rs99all99crazycrazy';
Players[0].Integers[0] := 5; //Loads to do?
Players[0].Booleans[0] := True; //Is axe wielded?
Players[0].Active := True;
end;
procedure FirstWalkToYews;
begin
RadialRoadWalk(CementRoadColor,90,20,55,10,10);
Flag;
end;
procedure SecondWalkToYews;
begin
RadialRoadWalk(CementRoadColor,90,270,70,10,10);
Flag;
end;
procedure OpenBankDeposit(FirstSlot, EndSlot: integer);
var
x, y: integer;
begin
repeat
FindObjCustom(x, y, ['Use', 'B', 'U'], [3421240, 4937311], 4);
Mouse(x, y, 1, 1, false);
ChooseOption('uick');
Wait(1500+random(125));
until(BankScreen);
if BankScreen then
begin
Deposit(FirstSlot, EndSlot, 1);
end;
CloseBank;
end;
procedure Problems;
var fx, fy:integer;
begin
FindBirdsNest;
FindEnt(fx, fy, true);
end;
procedure FindYew;
var x, y:integer;
begin
repeat
FindObj(x, y, 'Yew', 3107935, 4);
MMouse(x, y, 1, 1);
Problems;
if IsUpText('Yew') then
begin
Mouse(x, y, 1, 1, true);
Problems;
end;
until(InvFull);
Writeln('Done cutting yews.');
end;
procedure GetInBankAndDeposit;
begin
if Players[CurrentPlayer].Booleans[1] then
begin
OpenBankDeposit(1, 28);
end else
begin
OpenBankDeposit(2, 28);
end;
end;
begin
SetUpSRL;
ActivateClient;
CementRoadColor:=5921634;
begin
FirstWalkToYews;
SecondWalkToYews;
end;
end.