C
claytonno
Guest
This is a really nice script not done by me, all credit goes to ffn00b for posting this really good script the only thing is that it is unable to bank properly, I have set it to low detail and brightness to high and it still does not work, the cutting and going to the bank even opening the bank account works properly but right when i get in the mouse drifts around from item to item and never stores the logs, please help here's the link http://www.sythe.org/showthread.php?t=427410&highlight=willow
if you dont want to download heres the script itself and you can try to help me find the problem if it is within the script because I have found that multiple people have had the same problem.
if you dont want to download heres the script itself and you can try to help me find the problem if it is within the script because I have found that multiple people have had the same problem.
Code:
program willows;
{.include srl/srl.scar}
const
treecolor=5341817;
entcolor=514778;
symbolcolor=10089719;
var
x, y, dud, time, elapse, loads, h ,m ,s:integer;
procedure declareplayers;
begin
howmanyplayers:=3; // don't mess this up...
numberofplayers(howmanyplayers);
players[0].name:='name';
players[0].pass:='pass';
players[0].nick:='nick';
players[0].active:=true;
players[0].worked:=0;
players[1].name:='and';
players[1].pass:='so';
players[1].nick:='on';
players[1].active:=true;
players[1].worked:=0;
players[2].name:='dont forget';
players[2].pass:='to change';
players[2].nick:='howmanyplayers';
players[2].active:=true;
players[2].worked:=0;
end;
procedure randoms;
begin
findnormalrandoms;
if findfight=true then
begin
runaway('E',true,1,5000+random(1000));
end;
end;
procedure bank;
begin
if loggedin=false then
begin
exit;
end;
randoms;
if random(10)=0 then
begin
hoverskill('woodcutting',false);
end;
makecompass('n');
if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2,MMY2,40) then
begin
mouse(x-3,y-3,2,2,true);
time:=gettimerunning+13000+random(2000);
repeat
wait(100);
randoms;
until((gettimerunning>time) or (flagpresent=false))
randoms;
repeat
openbank('db',false,false);
wait(100);
randoms;
until((bankscreen=true) or (loggedin=false))
if bankscreen=true then
begin
deposit(2,28,true);
wait(100+random(100));
closebank;
loads:=loads+1;
converttime(gettimerunning,h,m,s);
writeln('#### progress ####');
writeln('#### time: ' + inttostr(h) + ':' + inttostr(m) + ':' + inttostr(s));
writeln('#### loads: ' + inttostr(loads));
writeln('##################');
end;
end;
wait(100+random(100));
end;
procedure omfg_ent;
begin
makecompass('n');
mouse(MMCX+10,MMCY+10,2,2,true);
x:=MSCX;
y:=MSCY;
wait(random(100));
if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2,MMY2,40) then
begin
mouse(x-40,y+40,10,10,true);
time:=gettimerunning+8000+random(2000);
repeat
wait(100);
randoms;
until((gettimerunning>time) or (flagpresent=false))
randoms;
end;
end;
procedure chop;
begin
makecompass('n');
if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2,MMY2,40) then
begin
mouse(x-40,y+40,10,10,true);
time:=gettimerunning+8000+random(2000);
repeat
wait(100);
randoms;
until((gettimerunning>time) or (flagpresent=false))
randoms;
end;
x:=MSCX;
y:=MSCY;
repeat
randoms;
wait(100);
if findobjtpa(x,y,treecolor,20,-1,50,50,40,['Chop down Willow']) then
begin
mmouse(x,y,0,0);
wait(100+random(100));
if findcolortolerance(dud,dud,entcolor,80,10,130,20,40)=false then
begin
mouse(x,y,2,2,false);
wait(100+random(100));
if chooseoption('hop') then
begin
if flagpresent=true then
begin
time:=gettimerunning+4000+random(1000);
repeat
wait(100);
randoms;
until((flagpresent=false) or (gettimerunning>time))
wait(500);
end else
begin
mmouse(x,y,2,2);
wait(100);
time:=gettimerunning+20000+random(5000);
repeat
wait(100);
randoms;
until((startswith('Chop',getuptext)=false) or (invfull=true) or (findcolortolerance(dud,dud,entcolor,80,10,130,20,40)=true) or (gettimerunning>time))
if findcolortolerance(dud,dud,entcolor,80,10,130,20,40)=true then
begin
omfg_ent;
end;
end;
end;
end else
begin
omfg_ent;
end;
end else
begin
makecompass('n');
if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2,MMY2,40) then
begin
mouse(x-40,y+40,10,10,true);
time:=gettimerunning+8000+random(2000);
repeat
wait(100);
randoms;
until((gettimerunning>time) or (flagpresent=false))
randoms;
end;
end;
until((loggedin=false) or (invfull=true))
wait(100+random(100));
end;
begin
cleardebug;
setupsrl;
activateclient;
lampskill:='woodcutting';
declareplayers;
currentplayer:=0;
loads:=0;
logout;
closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
loginplayer;
repeat
setangle(true);
elapse:=gettimerunning+2700000+random(1800000);
if invfull=true then
begin
bank;
end;
repeat
chop;
bank;
until((gettimerunning>elapse) or (loggedin=false))
logout;
currentplayer:=currentplayer+1;
if currentplayer>=howmanyplayers then
begin
currentplayer:=0;
end;
if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
begin
closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
loginplayer;
players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
end;
until(false)
end.

