2 Questions

[Rashnu]

first of all if im using SRL do i need to have it downloaded?

and 2 can someone please fix this auto willow for me? its SRL is incomplete!!!




{.Script Info:
# ScriptName = Willower
# Author = Ace
# Description = Willow Cutter + Draynor Banker
# Version = 0.8
# Date = 5/19/2006
# Comments = SRL v2.2+
/Script Info}
program Willower;
{.include SRL\SRL.scar}
//INSTRUCTIONS////////////////////////////////////////////////////////////////////
{
1. Use with Low Detail, Very Bright.
2. Set your Screen to 32 bit TRUE color.
3. Put your character next to some willow trees.
4. If you can weild the axe you are using, weild it.
Otherwise put it in the first inventory slot.
6. Fill out the setup constants.
7. Script will begin ten seconds after clicking start.
}
//END OF INSTRUCTIONS/////////////////////////////////////////////////////////////
//SETUP///////////////////////////////////////////////////////////////////////////
Const WillowColor=2112579; //Distinct colors of willow trees.
Const WillowColor2=2113093; //Trunks tend to work well.
Const WillowColor3=2113093;
Const MaxLoads=0; //Set maximum amount of loads (0 for no max)
//END OF SETUP////////////////////////////////////////////////////////////////////
//DO NOT EDIT ANYTHING PAST HERE! -- THANK YOU :)/////////////////////////////////
var lasttree : TPoint; tinderspot : Integer; banked : boolean;totallogs,totalloads :integer;

procedure Mine1Willow();
var x,y,tol : Integer; o : boolean;
begin
tol:=9;
repeat
o:=FindObject(x, y,'Chop down Willow',WillowColor,tol,True)
WriteLn(getoption);
if(o)then
begin
lasttree.x := x; lasttree.y := y;
x := x - Random(5)
y := y - Random(5)
case random(3) of
0: begin mouse(x,y,Random(2),Random(3),true); end;
1: begin mouse(x,y,Random(4),Random(2),false); wait(200+random(120)); PopUp('Chop'); end;
2: begin mouse(x,y,Random(2),Random(4),true); end;
3: begin mouse(x,y,Random(3),Random(2),false); wait(600+random(90)); MMouse(x - 40 - Random(20), y - 40 - Random(20),5,5); mouse(x,y,Random(2),Random(4),true); end;
end;
end else
begin
tol:=tol+3;
WriteLn('Raised tol to ' + IntToStr(tol) + '.');
end;
until((tol=60) or (o) or IsChatMessage('You swing'));
end;

procedure DealWithRandoms;
begin
WriteLn('Dealing With Random events...NOT');
end;

function GetObjInInventory(slot : Integer) : String;
var
text : String;
pMouse : boolean;
begin
pMouse:= benmouse;
benmouse:= false;
MMouseItem(slot);
Wait(40 + Random(10));
text:= GetOption;
text:= Between(' ',' /',text);
result:= text;
benmouse:= pMouse;
end;

procedure setupscript();
begin
ClearDebug();
Writeln('||||||||||||||||||||||||||||||||||||||||| ||||||');
Writeln('||||||WILLOWER - WILLOW CUTTER + BURNER||||||||');
Writeln('||||||VERSION 0.8 (BETA)|||||||||||||||||||||||');
Writeln('||||||SCRIPTED BY ACE||||||||||||||||||||||||||');
Writeln('||||||VISIT MY WEBSITE AT WWW.DARKCDE.NET||||||');
Writeln('||||||QUESTIONS OR COMMENTS?|||||||||||||||||||');
Writeln('||||||||CONTACT ME AT SRL OR DARKCDE (ACE)|||||');
Writeln('||||||||||||||||||||||||||||||||||||||||| ||||||');
Writeln('Script will begin in ten seconds...');
Wait(10000);
Retaliate(false);
SetRun(true);
gametab(4);
ChatsOff;
//DEFAULT VARS
tinderspot := 2
end;

procedure statusreport();
begin
Writeln('STATUS REPORT||||||||||||||||||||||||||||||||||');
Writeln('WILLOWER - WILLOW CUTTER + BURNER');
Writeln('VERSION 0.8 (BETA)');
Writeln('You made a total of ' + IntToStr(TotalLoads) +' loads');
Writeln('You cut ' + IntToStr(TotalLogs) +' willow logs');
Writeln('VISIT MY WEBSITE AT WWW.DARKCDE.NET');
Writeln('QUESTIONS OR COMMENTS?');
Writeln('CONTACT ME AT SRL OR DARKCDE (ACE)');
Writeln('||||||||||||||||||||||||||||||||||||||||| ||||||');
end;

function BankLogs() : boolean;
begin
while(not result) do
begin
if(FindBank('db'))then
begin
result:=true
SleepAndMoveMouse(400+random(2000));
OpenBankQuiet('db');
SleepAndMoveMouse(1000+random(200));
Deposit2(3,0);
CloseBank;
end else
begin
MouseFlag(648, 83 - 30, 0, 0)
end;
end;
end;

procedure LocateTBox();
var i : string; t : integer;
begin
t := 1;
i := GetObjInInventory(t);
if i='Tinderbox' then
tinderspot:=1
end;

function TestTree() : boolean;
begin
MMouse(lasttree.x,lasttree.y,Random(5),Random(5));
Wait(300 + Random(99));
if(getoption='Chop down Willow')then
result:=true;
end;

procedure CutLogs();
var dlogs : Integer;
var tree : boolean;
begin
while(dlogs <= 28) do
begin
begin
Mine1Willow;
if(IsChatMessage('You swing')) then
repeat
writeln('Waiting for willow log to be mined.');
SleepAndMoveMouse(100+random(20));
DealWithRandoms;
//if(Random(1) = 1)then
//begin
tree:=Not TestTree;
//end else
tree:=false;
until((tree) or IsChatMessage('get some willow') or (ClickToContinue))
totallogs:=totallogs+1;
dlogs:=dlogs+1;
end;
end;
end;

begin
SetupSRL;
SetupScript;
repeat
begin
CutLogs;
BankLogs;
totalloads:=totalloads+1;
if(MaxLoads>=totalloads)then break;
end;
until(false)
end.

[Energizer TK]

1. Yes, you need to save SRL to your includes folder.
2. No

[Rashnu]

yeah i got lost trying to do that

[The Prince of Randomness?]

Save srl to your includes folder, extract it with Winrar ( http://www.rarlabs.com/ )
to your includes folder.

[armanie14]

http://82.92.130.193/forums/showthread.php?t=483
Here is a tutorial that helps you to set up SCAR so you can auto properly.

http://82.92.130.193/forums/showthread.php?t=1883
This is a tutorial of how to downoad and setup SRL the correct way.

http://82.92.130.193/forums/showthread.php?t=1706
And if you ever get round to it, here is the Beginners/Intermediate guide to scripting.

As for the script it will run fine when you have downloaded SRL and installed it. if not then you can find some useful error solutions in the Tutorial thread below.

http://82.92.130.193/forums/showthread.php?t=1155

It is program that teaches you to script SCAr but also has some very useful ints and tips on errors at the end.

I hope this helped, good luck.