tom99
05-20-2011, 07:07 PM
Tom's Varrock Willow Cutter
*Stand at west varrock bank befor you start, with south gate or with right bank all the way south. you can also start with the trees.
*bank everything except for any kind of axe (including what you maby get from a random event).
*Sign up at stats.villavu.com to use srlstats.
program TVWC;
{.include SRL\SRL\misc\SMART.SCAR}
{.include SRL\SRL.scar}
{.include SRL\SRL\Misc\stats.simba}
{.include Reflection/Reflection.simba}
var
logs:integer;
wcxp:extended;
const
SmartWorld = 61;//World to load.
Members = False;//Members?
SignedClient = True;//Used signed client?
HighDetail = False;//Use high detail?
SRLStats_Username = '';
SRLStats_Password = '';
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := '';
Pass := '';
Nick := '';
Active := True;
Pin := '';
LampSkill := 'woodcutting'
End;
end;
procedure StartSmart;
begin
Smart_Server := SmartWorld;
Smart_Members := Members;
Smart_Signed := SignedClient;
Smart_SuperDetail := HighDetail;
SetupSRL;
end;
procedure Piletre;
var
x,y,r,x3,y3,th,tm,ts:integer;
treetype,bryter:boolean;
timer:longint;
begin
x:=250;
y:=100;
wcxp:=logs*67.5;
wait(1000);
repeat
if(findcolorspiraltolerance(x,y,7515565,10,10,510, 330,5)) then
begin
mmouse(x,y,3,3);
r:=5;
end;
inc(r);
wait(100);
until(r>5)
r:=0;
repeat
if(findcolorspiraltolerance(x,y,7515565,10,10,510, 330,5)) then
begin
mmouse(x,y,0,0);
bryter:=true;
wait(1000);
end;
if(findcolorspiraltolerance(x,y,7515565,10,10,510, 330,5)) then
begin
mmouse(x,y,3,3);
wait(100);
end;
if(IsUpText('Willow'))then
begin
getmousepos(x,y);
mouse(x,y,3,3,true);
wait(1400);
bryter:=false;
end;
wait(10);
if(treetype=false) and not(IsUpText('Willow'))then
begin
wait(100);
x:=288;
y:=238;
WalkToTile(Tile(3204, 3356),0,0);
treetype:=true;
wait(3800);
repeat
if(findcolorspiraltolerance(x,y,7515565,10,10,510, 330,25)) then
begin
mmouse(x,y,3,3);
r:=5;
end;
inc(r);
wait(100);
until(r>5)
r:=0;
end;
if(IsUpText('Willow'))then
begin
getmousepos(x,y);
mouse(x,y,3,3,true);
wait(2500);
bryter:=false;
end;
if(treetype=true) and not(IsUpText('Willow'))then
begin
wait(100);
x:=288;
y:=204;
WalkToTile(Tile(3211,3357),0,0);
treetype:=false;
wait(3800)
repeat
if(findcolorspiraltolerance(x,y,7515565,10,10,510, 330,5)) then
begin
mmouse(x,y,3,3);
r:=5;
end;
inc(r);
wait(100);
until(r>5)
r:=0;
end;
if(IsUpText('Willow'))then
begin
getmousepos(x,y);
mouse(x,y,3,3,true);
wait(2500);
bryter:=false;
end;
if(bryter = true) then
begin
getmousepos(x3,y3);
if (x3=x) and (y3=y) then
begin
wait(100);
R_FindRandoms;
wait(100);
x:=(10+random(500));
wait(100);
y:=(10+random(320));
wait(100);
bryter:=false;
wait(100);
end;
end;
if R_FindRandoms then
begin
MakeCompass('N')
setangle(true);
end;
if not LoggedIn then LoginPlayer;
timer:=GetTimeRunning;converttime(timer,th,tm,ts);
cleardebug;
writeln('Script has runned for:['+inttostr(th)+' Hours '+inttostr(tm)+' Minutes '+inttostr(ts)+' Seconds. you have cutted ['+inttostr(logs)+'] willow logs. Xp earned: [' +floattostr(wcxp)+'].');
Stats_Commit;
wait(100+random(400));
if(findcolorspiraltolerance(x,y,1391427,684, 429,728, 464,5)) then
begin
writeln('full inventory');
break;
end;
until(false)
end;
procedure GaaTilTrerne;
var
ThePath: TTileArray;
begin
ThePath:= [Tile(3196, 3422), Tile(3201, 3408), Tile(3210, 3399), Tile(3211, 3384),Tile(3212, 3370),Tile(3212, 3362),Tile(3212, 3358)];
WalkPath(ThePath);
end;
procedure GaaTilbake;
var
ThePathback: TTileArray;
begin
ThePathback:= [Tile(3207, 3362), Tile(3209, 3374), Tile(3210, 3387), Tile(3210, 3399),Tile(3201, 3408),Tile(3196, 3421),Tile(3185, 3429),Tile(3189, 3435)];
WalkPath(ThePathback);
end;
procedure SettIBanken;
var
TheVarArr: TVariantArray;
hellow : integer;
begin
WalkToTile(Tile(3189,3435),0,0);
wait(1000);
thevararr:= [1359,1351,1357,1355,1361,1353,1349,6739]
repeat
wait(100);
if not R_OpenBankBooth(RBank_VW) then
Inc(hellow);
until(R_BankScreen or (hellow > 10))
if R_BankScreen then R_DepositAllButEx(thevararr);
mouse(488,35,0,0,true);
R_FindRandoms;
mouse(723, 109,0,0,true);
IncEx(logs,27);
stats_IncVariable('Willow Logs Chopped', 27);
stats_IncVariable('Woodcutting EXP (Gained)', 1823);
end;
procedure StartStats;
begin
SetupSRLStats(122, SRLStats_Username, SRLStats_Password);
end;
procedure InstillKameraVinkel;
begin
wait(2000);
repeat
if(getcolor(507, 407)=4413023) then break;
wait(1000);
until(false)
setangle(true);
end;
begin
StartSmart;
StartStats;
DeclarePlayers;
repeat
wait(900+random(100));
if not LoggedIn then LoginPlayer;
until(false)
InstillKameraVinkel;
repeat
GaaTilTrerne;
Piletre;
GaaTilbake;
SettIBanken;
until(false)
end.
*Stand at west varrock bank befor you start, with south gate or with right bank all the way south. you can also start with the trees.
*bank everything except for any kind of axe (including what you maby get from a random event).
*Sign up at stats.villavu.com to use srlstats.
program TVWC;
{.include SRL\SRL\misc\SMART.SCAR}
{.include SRL\SRL.scar}
{.include SRL\SRL\Misc\stats.simba}
{.include Reflection/Reflection.simba}
var
logs:integer;
wcxp:extended;
const
SmartWorld = 61;//World to load.
Members = False;//Members?
SignedClient = True;//Used signed client?
HighDetail = False;//Use high detail?
SRLStats_Username = '';
SRLStats_Password = '';
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := '';
Pass := '';
Nick := '';
Active := True;
Pin := '';
LampSkill := 'woodcutting'
End;
end;
procedure StartSmart;
begin
Smart_Server := SmartWorld;
Smart_Members := Members;
Smart_Signed := SignedClient;
Smart_SuperDetail := HighDetail;
SetupSRL;
end;
procedure Piletre;
var
x,y,r,x3,y3,th,tm,ts:integer;
treetype,bryter:boolean;
timer:longint;
begin
x:=250;
y:=100;
wcxp:=logs*67.5;
wait(1000);
repeat
if(findcolorspiraltolerance(x,y,7515565,10,10,510, 330,5)) then
begin
mmouse(x,y,3,3);
r:=5;
end;
inc(r);
wait(100);
until(r>5)
r:=0;
repeat
if(findcolorspiraltolerance(x,y,7515565,10,10,510, 330,5)) then
begin
mmouse(x,y,0,0);
bryter:=true;
wait(1000);
end;
if(findcolorspiraltolerance(x,y,7515565,10,10,510, 330,5)) then
begin
mmouse(x,y,3,3);
wait(100);
end;
if(IsUpText('Willow'))then
begin
getmousepos(x,y);
mouse(x,y,3,3,true);
wait(1400);
bryter:=false;
end;
wait(10);
if(treetype=false) and not(IsUpText('Willow'))then
begin
wait(100);
x:=288;
y:=238;
WalkToTile(Tile(3204, 3356),0,0);
treetype:=true;
wait(3800);
repeat
if(findcolorspiraltolerance(x,y,7515565,10,10,510, 330,25)) then
begin
mmouse(x,y,3,3);
r:=5;
end;
inc(r);
wait(100);
until(r>5)
r:=0;
end;
if(IsUpText('Willow'))then
begin
getmousepos(x,y);
mouse(x,y,3,3,true);
wait(2500);
bryter:=false;
end;
if(treetype=true) and not(IsUpText('Willow'))then
begin
wait(100);
x:=288;
y:=204;
WalkToTile(Tile(3211,3357),0,0);
treetype:=false;
wait(3800)
repeat
if(findcolorspiraltolerance(x,y,7515565,10,10,510, 330,5)) then
begin
mmouse(x,y,3,3);
r:=5;
end;
inc(r);
wait(100);
until(r>5)
r:=0;
end;
if(IsUpText('Willow'))then
begin
getmousepos(x,y);
mouse(x,y,3,3,true);
wait(2500);
bryter:=false;
end;
if(bryter = true) then
begin
getmousepos(x3,y3);
if (x3=x) and (y3=y) then
begin
wait(100);
R_FindRandoms;
wait(100);
x:=(10+random(500));
wait(100);
y:=(10+random(320));
wait(100);
bryter:=false;
wait(100);
end;
end;
if R_FindRandoms then
begin
MakeCompass('N')
setangle(true);
end;
if not LoggedIn then LoginPlayer;
timer:=GetTimeRunning;converttime(timer,th,tm,ts);
cleardebug;
writeln('Script has runned for:['+inttostr(th)+' Hours '+inttostr(tm)+' Minutes '+inttostr(ts)+' Seconds. you have cutted ['+inttostr(logs)+'] willow logs. Xp earned: [' +floattostr(wcxp)+'].');
Stats_Commit;
wait(100+random(400));
if(findcolorspiraltolerance(x,y,1391427,684, 429,728, 464,5)) then
begin
writeln('full inventory');
break;
end;
until(false)
end;
procedure GaaTilTrerne;
var
ThePath: TTileArray;
begin
ThePath:= [Tile(3196, 3422), Tile(3201, 3408), Tile(3210, 3399), Tile(3211, 3384),Tile(3212, 3370),Tile(3212, 3362),Tile(3212, 3358)];
WalkPath(ThePath);
end;
procedure GaaTilbake;
var
ThePathback: TTileArray;
begin
ThePathback:= [Tile(3207, 3362), Tile(3209, 3374), Tile(3210, 3387), Tile(3210, 3399),Tile(3201, 3408),Tile(3196, 3421),Tile(3185, 3429),Tile(3189, 3435)];
WalkPath(ThePathback);
end;
procedure SettIBanken;
var
TheVarArr: TVariantArray;
hellow : integer;
begin
WalkToTile(Tile(3189,3435),0,0);
wait(1000);
thevararr:= [1359,1351,1357,1355,1361,1353,1349,6739]
repeat
wait(100);
if not R_OpenBankBooth(RBank_VW) then
Inc(hellow);
until(R_BankScreen or (hellow > 10))
if R_BankScreen then R_DepositAllButEx(thevararr);
mouse(488,35,0,0,true);
R_FindRandoms;
mouse(723, 109,0,0,true);
IncEx(logs,27);
stats_IncVariable('Willow Logs Chopped', 27);
stats_IncVariable('Woodcutting EXP (Gained)', 1823);
end;
procedure StartStats;
begin
SetupSRLStats(122, SRLStats_Username, SRLStats_Password);
end;
procedure InstillKameraVinkel;
begin
wait(2000);
repeat
if(getcolor(507, 407)=4413023) then break;
wait(1000);
until(false)
setangle(true);
end;
begin
StartSmart;
StartStats;
DeclarePlayers;
repeat
wait(900+random(100));
if not LoggedIn then LoginPlayer;
until(false)
InstillKameraVinkel;
repeat
GaaTilTrerne;
Piletre;
GaaTilbake;
SettIBanken;
until(false)
end.