SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
brad734 - SRL Member Application Form
brad734

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
java

Other Communitys
sythe

How Long have You Played Runescape
4 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Errr. iv been scripting for a few months now. Id like to say im good but id be not telling the truth.Im not that bad but i can create a semi decent script. I want to get better however and thats why i have joined this community. I have sold over 120m on sythe and writen a few scripts here and there on there forums. Thats all i can think of for now…

thanks,

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program willows;


{ Offical willow cutter and banker of brad734. Made for my bro but uploaded
for all. Please keep the tags in if you choose to upload in future.}

{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}

const
treecolor=5341817;
entcolor=514778;
symbolcolor=10089719;

var
x, y, dud, time, elapse, loads, logs, lastcheck, axe, willowdtm, h ,m ,s : integer;
smartworld : string;

procedure declareplayers;
begin
  howmanyplayers:=3;  //how many players
  numberofplayers(howmanyplayers);

  
  players[0].name:='';  //your runescape name
  players[0].pass:='';  //your runescape pass
  players[0].nick:=' ';  //a few letters from your name (use correct capitals)
  players[0].active:=true;
  players[0].worked:=0;
  
  players[1].name:='';  //your runescape name
  players[1].pass:='';  //your runescape pass
  players[1].nick:='';  //a few letters from your name (use correct capitals)
  players[1].active:=true;
  players[1].worked:=1;
  
  players[2].name:='';  //your runescape name
  players[2].pass:='';  //your runescape pass
  players[2].nick:='';  //a few letters from your name (use correct capitals)
  players[2].active:=true;
  players[2].worked:=2;
end;

procedure init;
begin
  smartworld:='world21';  //the world you want to use
  willowdtm := DTMFromString('78DA8DD2C10A40501404D0F7FC92246527144' +
       'A3E9F90C80A4FFEC0D8C9C2CC5DDCBB398B5B33D6F78C59CD67EC' +
       '6BE306300B3121CC484C04D31393082685E988C9615A624AC1543' +
       '0836026C1CCC434421635CC4E4C01731093C138218B939818E612' +
       '727742C7D8CF4F57B77F7303BE121766');
end;

procedure randoms;
begin
  if gettimerunning>lastcheck then
  begin
    findnormalrandoms;
    lastcheck:=gettimerunning+10000+random(2000);
  end else findtalk;
  if findfight=true then runaway('E',true,1,5000+random(1000));
end;

procedure bank;
begin
  if loggedin=false then exit;
  randoms;
  findnormalrandoms;
  case random(10) of
    0: begin hoverskill('woodcutting',false); end;
    1: begin gametab(1+random(13)); wait(800+random(500)); gametab(4) end;
  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+11000+random(2000);
    repeat
      wait(100);
      randoms;
    until((gettimerunning>time) or (flagpresent=false))
    randoms;
    findnormalrandoms;
    repeat
      if openbankfast('db')=false then openbank('db',false,false);
      wait(100);
      randoms;
    until((bankscreen=true) or (loggedin=false))
    if bankscreen=true then
    begin
      logs:=logs+countitems(willowdtm,'dtm',[0,0]);
      deposit(2,28,true);
      wait(100+random(100));
      if (invempty=false) and (axe=0) then
      begin
        mmouse(570,215,20,25);
        wait(100+random(100));
        if pos('axe',getuptext)=0 then
        begin
          deposit(1,1,true);
          wait(100+random(100));
        end else axe:=1;
      end;
      closebank;
      loads:=loads+1;
      converttime(gettimerunning,h,m,s);
      writeln('#### progress ####');
      writeln('#### time: ' + inttostr(h) + ':' + inttostr(m) + ':' + inttostr(s));
      writeln('#### loads: ' + inttostr(loads));
      writeln('#### total logs: ' + inttostr(logs));
      writeln('##################');
    end;
  end;
  wait(100+random(100));
end;

procedure omfg_ent;
begin
  makecompass('n');
  mouse(MMCX-10,MMCY-10,20,20,true);
  x:=MSCX;
  y:=MSCY;
  wait(300+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+11000+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,true);
        wait(100+random(100));
        if flagpresent=true then
        begin
          time:=gettimerunning+4000+random(1000);
          repeat
            wait(100);
            randoms;
          until((flagpresent=false) or (gettimerunning>time))
          wait(300+random(200));
        end else
        begin
          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 omfg_ent;
        end;
      end else omfg_ent;
    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;
  init;
  smartsetup(smartworld,false,true,false);
  settargetdc(smartgetdc);
  setupsrl;
  lampskill:='woodcutting';
  declareplayers;
  currentplayer:=0;
  loads:=0;
  logs:=0;
  lastcheck:=0;
  axe:=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 bank;
    repeat
      chop;
      if invfull=true then bank;
    until((gettimerunning>elapse) or (loggedin=false))
    logout;
    axe:=0;
    currentplayer:=currentplayer+1;
    if currentplayer>=howmanyplayers then currentplayer:=0;
    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.

——————————————————
<!– END TEMPLATE: formanswers –>

Looks, ok but its short…

And you dont need Invfull = true, just do If (Invfull) …. and if you want something false If Not (Invfull)… Looks better.

Holding vote:

You have a dtm
You have basic mapwalking (could've used dtms for it)
You have basic object finding (TPAs, ColorToleranceSpeed)…
You have standards down.

I'm leaning to yes but still unsure seeing other input before I vote.

except For The bold Parts You should use CapsLock. Oh, and CamelCap (or however its called)

ItMakesStuffMoreReadableYouSee?

For the script, yes, it's clear to me you can script.

Yes. You defentily are trying i can see that.

Your on the line but i say yes.

lol "sold" 120 m

haha that cracked me up

anyway, answer is no.

sorry

no sorry just to simple

You are trying, keep it up but too simple, no.

You sure are trying and learning, I hope you will keep it going, yes.
~Eerik~

I vote yes:

Again, you know what your doing, and you can learn even more and have a good chance. Good luck.
Cut em2 it

tbh i think its a tad too simple and short and the ent finder could be done a lot better colors generally don't work all the time in ent finders tpa's are better as well as checking the minimap for yellow dots etc

sandos please refrain from voting until at least 2 weeks after becoming a member please

i am holding my vote but ur script looks nice but a little short and also being a little more active in this community wouldnt hurt

From: yourock12345
sandos please refrain from voting until at least 2 weeks after becoming a member please

i am holding my vote but ur script looks nice but a little short and also being a little more active in this community wouldnt hurt

He has every right to vote

and i didn't vote anyway lol its just my input i read the threads..

From: Cut em2 it
Holding vote:

You have a dtm
You have basic mapwalking (could've used dtms for it)
You have basic object finding (TPAs, ColorToleranceSpeed)…
You have standards down.

I'm leaning to yes but still unsure seeing other input before I vote.

yea too basic, though i voted no

sorry , imo you should be creative and add diffrent functions and not just walk/bank/chop/declareplayers/ent

wheres teh antiban?
i would vote yes if you had more functions/proc you made just to show you are creative with the script.
gl