SCAR Code:
program TreeCutter;
{.include SRL\SRL.scar}
{.include srl\srl\skill\WoodCutting.scar}
/////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////
// \ / \ / //
// \ / _ _ _ _ \ / //
// \ / _ _ _ | _ _ _ _ _ _ _ _ \ / //
// \ / | | | | | \ / | \ / //
// \ | | | | | \ / | \ //
// / \ |_ _ _ | | | | \ / | / \ //
// / \ | | | | | \_/ | / \ //
// / \ | | | | | | / \ //
// / \ _ _ _| |_ _ _ _ _ _ _|_ _ _ | | | / \ //
/////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////
// ~*~SETUP*SETUP*SETUP*SETUP~*~ //
// //
// Details: V-Bright, Low Detail, Least Full world! //
// Start next to your desired TREES! //
// Enter Colours For the TREE you want to CUT! //
// Author: X S C Il M X //
// Version: 1.00! //
// Date: 12th November 2006 ! //
// Post all Errors in the Thread Thanks! //
// Have Axe in First Inventory Slot! //
// Setup Lines 45-52! //
// Must Have SRL!!!!!!!!!!!! //
/////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////
// DO NOT TOUCH //
// DO NOT TOUCH //
// //
// Comments: THIS IS MY FIRST SCRIPT EVER! //
// Comments: THIS IS MY FIRST SCRIPT EVER! //
/////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////
var
a, b: Integer;
A1, A2, A3, H: Integer;
BTimes, STimes, FTimes, ETimes: Integer;
//Setup Setup Setup Setup\\
const
HowManyDrops = 100; // How many drops do you want the script to do
WaitTime = 3501; // Time between Cutting the Tree (Milliseconds)
TreeColor1 = 802872; //Color of Tree (1)
TreeColor2 = 5075056; //Color of Tree (2)
TreeColor3 = 2254936; //Color of Tree (3)
//End of Setup End of Setup\\
VersionNumber = 'v1.00 by X S C Il M X'; // DONT LEECH!!!!!!
//Chat\\
procedure SetupScript;
begin
MakeCompass('N');
SetChat('Off', 1);
SetChat('Off', 2);
SetChat('Off', 3);
SetRun(true);
GameTab(4);
end;
//Progress Report\\
procedure ProgressReport;
begin
begin
WriteLn(' ');
WriteLn('~*~*~*~*~*~ ' + VersionNumber + ' Progress Report ~*~*~*~*~*~');
WriteLn(' Cut: ' + inttostr(STimes) + ' Log(s)! ');
WriteLn(' Dropped: ' + inttostr(BTimes) + ' Inventory of Log(s)! ');
WriteLn(' Fixed ' + inttostr(FTimes) + ' Axe(s)! ');
WriteLn(' Found: ' + inttostr(ETimes) + ' Ent(s)! ');
Writeln(' This Script has been running for: ' + TimeRunning + ' Minutes! ');
end;
end;
//Chop Trees\\
procedure ChopTrees;
begin
if (FindMainColor(a, b, TreeColor1, 3, true)) or
FindMainColor(a, b, TreeColor2, 2, true) or
FindMainColor(a, b, TreeColor3, 3, true) then
begin
repeat
STimes := STimes + 1
wait(1023 + random(323 * 5 / 2));
if (IsUpText('Chop Down')) then
MMouse(a, b, 1, 2);
GetMousePos(a, b);
Mouse(a, b, 1, 2, true);
wait(WaitTime + Random(329 * 8 / 2 + 3 - 1));
until (InvFull);
ProgressReport;
end;
end;
//Repeat all processes\\
procedure MainLoop;
begin
repeat
SetupScript;
ChopTrees;
until (HowManyDrops = BTimes);
Logout;
Writeln('Thanks for using the WillowChopper by X S C Il M X !');
end;
//Disguise Scar and reset everything\\
begin
STimes := 0
BTimes := 0
FTimes := 0
ETimes := 0
ProgressReport;
Writeln('You are using the WillowChopper by X S C Il M X!');
SetupSRL;
DisguiseScar('DO$H');
MainLoop;
end.