PDA

View Full Version : Tvwc



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.

Shuttleu
05-20-2011, 08:24 PM
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;
const
SmartWorld = 41;//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 hogglonn;
var
x,y,r,x3,y3,th,tm,ts:integer;treetype,bryter:boole an;timer:longint;wcxp:Extended;
begin
x:=250;
y:=100;
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;
end;
if(findcolorspiraltolerance(x,y,7515565,10,10,510, 330,5)) then
begin
mmouse(x,y,3,3);
end;
if(IsUpText('Willow'))then
begin
getmousepos(x,y);
mouse(x,y,3,3,true);
wait(2500);
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(5000);
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(5000);

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;
wcxp:=wcxp+67.5;
stats_IncVariable('Woodcutting EXP (Gained)', 68);
R_FindRandoms;
timer:=GetTimeRunning;converttime(timer,th,tm,ts);
cleardebug;
writeln('Script has runned for:['+inttostr(th)+' Hours '+inttostr(tm)+' Minutes '+inttostr(ts)+' Seconds '+'] And 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);
end;

procedure startstats;
begin
SetupSRLStats(122, SRLStats_Username, SRLStats_Password);
end;

procedure ventforlogginn;
var
clogin: boolean;
begin
wait(100);
repeat
wait(1000);
if(getcolor(374, 184)=3093559) and (getcolor(319, 183)=3093559) and (getcolor(410, 183)=3093559) and (getcolor(450, 183)=3093559) then clogin:=true;
until(clogin = true)
wait(50);
clogin:=false;
writeln('typing credentials.');
end;



begin
startsmart;
startstats;
DeclarePlayers;
ventforlogginn;
if not LoggedIn then LoginPlayer;
repeat
gaatiltrerne;
hogglonn;
gaatilbake;
settibanken;
until(false)
end.

~shut

i luffs yeww
05-20-2011, 10:50 PM
luffs@luffs:~$ diff tom99 shuttleu
7c7
< logs:integer;wcxp:extended;
---
> logs:integer;
9,12c9,12
< SmartWorld = 169;//World to load.
< Members = False;//Members?
< SignedClient = True;//Used signed client?
< HighDetail = False;//Use high detail?
---
> SmartWorld = 41;//World to load.
> Members = False;//Members?
> SignedClient = True;//Used signed client?
> HighDetail = False;//Use high detail?
37,39c37,39
< Smart_Server := SmartWorld;
< Smart_Members := Members;
< Smart_Signed := SignedClient;
---
> Smart_Server := SmartWorld;
> Smart_Members := Members;
> Smart_Signed := SignedClient;
44c44
< procedure piletre;
---
> procedure hogglonn;
46c46
< x,y,r,x3,y3,th,tm,ts:integer;treetype,bryter:boole an;timer:longint;
---
> x,y,r,x3,y3,th,tm,ts:integer;treetype,bryter:boole an;timer:longint;wcxp:Extended;
86c86
< wait(3800);
---
> wait(5000);
112c112
< wait(3800);
---
> wait(5000);
153c153
< 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)+'].');
---
> writeln('Script has runned for:['+inttostr(th)+' Hours '+inttostr(tm)+' Minutes '+inttostr(ts)+' Seconds '+'] And you have cutted ['+inttostr(logs)+'] willow logs.'+' Xp earned: [' +floattostr(wcxp)+'].');
231c231
< piletre;
---
> hogglonn;

tom99
05-20-2011, 10:52 PM
Another one not satified with how the script is not put togheter, why its not hard to read now right ?

i luffs yeww
05-20-2011, 11:07 PM
I don't really understand what Shuttleu posted. He didn't make many changes. You can see in my .diff.