Willow cut'n'Burn(being updated frequently!)

I decided to make a script that cuts& burns willows after I used a working normal tree cut& burn script.
I changed it up a bit and now it runs for willows.

Its not extremely advanced and doesnt deal with randoms or auto respond.
However, it does deal with ent's so your axe wont be broken!

In later versions ill add an auto talker.
This is the script im working on to get used to scripting, so it will be updated very frequently.
Its already been updated since it first relase on 2/16/09.
The updates included faster cutting and burning.


How to use
Have axe Wielded
Start by a group of willows(works best in seers& north of the chicken farm in east Lumbridge)
Have tinderbox in first inventory slot
Set up the players.
set up the wood to burn option in line 11.
Also go to line 219 and change that to how much you want it to burn.
Drag your cross hair over the RS client.
Press play!



Post progress reports here please!

 

ill try now and see how it works =D

 

Thanks you
Post your report here if youd like.

 

Safe.

(50% filler)

 

how do i download it

 

Include file C:\Arquivos de programas\SCAR 3.20\includes\SRL\SRL.scar does not exist.
Include file C:\Arquivos de programas\SCAR 3.20\includes\SRL\SRL\skill\WoodCutting.scar does not exist.
what should i do ?

 

i'd say dl srl but then again i may be wrong

 

how does this work?

 

program Woodcutpro;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}

///////////////////CONSTANTS////////////////////
const
TreeColor1 = 2836044; //No need to change
TreeColor2 = 2506564; //No need to change
TreeColor3 = 6260339; //No need to change

WoodToBurn = 1000
rundir = N
runbackdir = S
rundir= N
//runbackdir='S' etc.

////////////////////VARIABLES/////////////////////
var
WoodBurned, log : integer;


//////////////////DECLARE PLAYERS////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 1
numberOfPlayers(howManyPlayers); 1
CurrentPlayer := darkrunemagi

Players[0].Name := darkrunemagi
Players[0].Pass := xxxxxxx
Players[0].Nick := bday
Players[0].Active := True


end;
////////////////LOAD BITMAPS//////////////////////
Procedure LoadBitmaps;
begin
log := BitmapFromString(18, 12, 'beNrzly/McICgCH/5EG85CPJ3l' +
'4EguAgaQtaFrBGOIOLICFlXXqodskZMxXAEdAOmLjwI4nhvZ2m4Lm' +
'R34lLsZi/paC1uYyaKRws8ZODqIQjIhluXnWQDDwGgaUAEVwNRBkH' +
'w4AUiiBa4aZjq0eICwk6JtYwLN4UbiIywRhxEEOJCoF5c0YoWgxCL' +
'cMUarhhHjjL8uhDBCwD5Naop');
end;


function SearchBirdsNest: Boolean;
var
CTS, I, X, Y: Integer;
NestATPA: T2DPointArray;
NestTPA: TPointArray;
Nest: TPoint;
Timer: LongInt;
begin
if (FindText(X, Y, 'nest falls', SmallChars, 0, 400, 495, 460)) then
begin
MarkTime(Timer);
repeat
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
X := MSCX;
Y := MSCY;
FindColorsSpiralTolerance(X, Y, NestTPA, 3952984, MSCX - 100, MSCY - 100, MSCX + 100, MSCY + 100, 15);
NestATPA := TPAtoATPAEx(NestTPA, 5, 5);
for I := 0 to Length(NestATPA) - 1 do
begin
if (TimeFromMark(Timer) >= (10000)) then
Exit;
Nest := MIddleTPA(NestATPA);
X := 0;
Y := 0;
MMouse(Nest.X, Nest.Y, 5, 5);
Wait(250);
if (isUpText('ird')) then
end;
until (TimeFromMark(Timer) >= (1000)) or (Result);
Exit;
end
else
Exit;
end;

////////////////////////////////////////////////
//////////////////////DO RANDOM STUFF///////////
procedure DoRandomStuff;

begin
wait(10+random(10));
GameTab(1 +random(7));
wait(10+random(10));
GameTab(4);

end;


////////////////////////////////////////////////
///////////////////////BURN WOOD///////////////
Procedure Burn;
var
x, y, TimeFromClickingLog : integer;

begin
GameTab(4);
wait(10+random(5));
repeat
FindNormalRandoms;
if FindFight then RunAway(rundir, true, 1, 200);

if FindBitmaptolerancein(log, x, y, MIX1, MIY1, MIX2, MIY2, 18) then
begin
MouseItem(1, true);
wait(0+random(10));
Mouse(x, y, 0, 0, true);
MarkTime(TimeFromClickingLog);
repeat
wait(10);
until(
FindNormalRandoms or
FindFight or
(TimeFromMark(TimeFromClickingLog)>80) or
FindText(x, y, 'Congratulation', NPCChars, MCX1, MCY1, MCX2, MCY2) or
FindText(x, y, 'You have been given a Mysterious box!', NPCChars, MCX1, MCY1, MCX2, MCY2));
Inc(WoodBurned);
if FindText(x, y, 'ou can', SmallChars, 0, 440, 500, 458)then
begin
Dec(WoodBurned);
RunAway(rundir, false, 2, 0);
FindBitmaptolerancein(log, x, y, MIX1, MIY1, MIX2, MIY2, 30);
MouseItem(1, true);

wait(0+random(0));
Mouse(x, y, 0, 0, true);

repeat
wait(5);
until(
FindNormalRandoms or
FindFight or
(TimeFromMark(TimeFromClickingLog)>800) or
FindText(x, y, 'Congratulation', NPCChars, MCX1, MCY1, MCX2, MCY2) or
FindText(x, y, 'You have been given a Mysterious box!', NPCChars, MCX1, MCY1, MCX2, MCY2));

RunAway(runbackdir, false, 2, 0);
end;
end;
until(not(FindBitmaptolerancein(log, x, y, MIX1, MIY1, MIX2, MIY2, 18)));

end;


////////////////////////////////////////////////
//////////////CutWood///////////////////////////
Procedure Chop;
var
x, y, TimeFromClickChop : integer;

begin
FindNormalRandoms;
if FindFight then RunAway(rundir, true, 1, 800);

if
FindObjCustom(x, y, ['hop down Willow'], [TreeColor1, TreeColor2, TreeColor3], 21)then
Mouse(x, y, 0, 0, false);
if ChooseOption('hop') then
begin
MarkTime(TimeFromClickChop);
repeat
wait(1);
until(
FindEnt(x, y, true) or
FindNormalRandoms or
FindFight or
(TimeFromMark(TimeFromClickChop)>800) or
FindBitmapIn(log, x, y, MIX1, MIY2, MIX2, MIY2) or
FindText(x, y, 'Congratulation', NPCChars, MCX1, MCY1, MCX2, MCY2) or
FindText(x, y, 'You have been given a Mysterious box!', NPCChars, MCX1, MCY1, MCX2, MCY2));
end;



FindNormalRandoms;
if FindFight then RunAway(rundir, true, 1, 800);
DoRandomStuff;
end;
////////////////////////////////////////////////
///////////////////////RAPORT///////////////////
procedure Raport;
begin
ClearDebug;
writeln('***********************');
writeln('*Logs Chopped&Burned: ' +IntTostr(WoodBurned)+' *');
writeln('*Worked for: ' + TimeRunning);
writeln('***********************');
writeln('*Script by: Lolo94 *with use of maraizzos normal tree chop&burn*');
writeln('***********************');

end;

////////////////////////////////////////////////
//////////////////////MAIN EXECUTION///////////
begin
SetupSRL;

SetupWoodcutting;
LoadBitmaps;
DeclarePlayers;

if not LoggedIn then loginplayer;
wait(100+random(50));
GameTab(1);
GameTab(4);
KeyDown(VK_UP);
wait(150+random(50));
KeyUp(VK_UP);
repeat
Chop;
if not LoggedIn then TerminateScript;
Burn;
Raport
if(WoodBurned mod 60 = 0)then
begin
if not LoggedIn then TerminateScript;
if LoggedIn then
begin
logout;
loginplayer;
end;
end;
until(WoodBurned -1 > WoodToBurn);


end.

 

is that correct?

after that wat do i do?