SRL Archive - Archive

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

What is the meaning to life?
The meaning of life is, learning from your mistakes.
and slowly becoming more wise.


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


Programming Knowledge
Delphi, a little bit of C

Other Communitys
Only SRL fourms.

How Long have You Played Runescape
4 Years.

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

My name is Aaron Patrick Kyle Perry.
I am VERY interested in learning more scripting.
I LOVE SCRIPTING, and I'm a fast learner and I'm very dedicated to it. I think this membership will help me a lot by letting me experience more advanced scripts, and help me script better. thanks for the time.

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

program willows;

{.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:=1;
  numberofplayers(howmanyplayers);
  players[0].name:='name';
  players[0].pass:='pass';
  players[0].nick:='ame';
  players[0].active:=true;
  players[0].worked:=0;
end;

procedure init;
begin
  smartworld:='world63';
  willowdtm := DTMFromString('78DA8DD2C10A40501404D0F7FC92246527144' +
       'A3E9F90C80A4FFEC0D8C9C2CC5DDCBB398B5B33D6F78C59CD67EC' +
       '6BE306300B3121CC484C04D31393082685E988C9615A624AC1543' +
       '0836026C1CCC434421635CC4E4C01731093C138218B939818E612' +
       '727742C7D8CF4F57B77F7303BE121766');
end;

procedure randoms;
begin
  if gettimerunning>lastcheck then
  begin
    findnormalrandoms;
    lastcheck:=gettimerunning+4000+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('#made#by#bukowski#')
      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);                                                                                                                                                                                                                                                                                                                                                 //this script was made by bukowskii, no leaching
          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 –>

use scar tags plese

[*scar][/*scar] without the*

If this isn't copied. I would like to see it in SCAR tags, with proper standards. If it is copied. Bye.

No, sorry. It's way too simple. Make it walk/bank, add DDTMs/TPAs, and use AutoColor, then you might have a better chance. Also be more active around the forums. With just 30 posts nobody really knows what you're like.

Closed :/ don't reply.
i'll make a new one when i get better.

It is not too bad. I like how you initialize the variables. Very good.
It is a bit simple. Good luck next time. You can apply again after two weeks.

Copied from http://www.villavu.com/forum/showthread.php?t=34440
Thanks to Sirlaughsalot for finding out.

hahahaha you got SRL copyrighted

gtfo

*sigh* i love pwning

Yeah.. I thought i saw this script anothre place :p