SRL Archive - Archive

How Long have You Played Runescape?
10 Year(s)


Are you affilated in anyway with Jagex LTD?
no

Were you Referred to SRL?



What is your general programming knowledge?
I am familer with matlab, basic, and I have a little knowledge on html


Are you a member of any other communities?
no


Tell us about yourself…

From: EtherFreak
I play rs for fun, but I like multitasking as well. It is hard for me to watch tv, or a movie, or work on homework, and try to mine, or smith or anything else of that sort. I wanted a few scripts that would just work, and I could monitor. I tried a few of the free scripts and found they did not work right, or work at all. I took it upon myself to write scripts for my needs, and over time I hope to have scripts that will work for me and others.

Please show us one (or multiple) of your scripts.

I have attacked my one load miner (I have been using it in the dwarven mines, just south of the mining shop), my al kahard gold bar smither, and my drainer willow cuter. The willow cutter is still sometimes giving me an error (misclick or tolerences out) and is still is a work in progress.

[url]http://villavu.com/forum/showthread.php?t=58670[/url]

[url]http://villavu.com/forum/showthread.php?t=57736[/url]

the drainor willow cutter has not been posted yet, but will be as soon as it has been tested longer. 

// script by EtherFreak
//Drainor Willow Cutter and Banker

program cutter;
{.include SRL/SRL.scar}
{.include SRL/Srl/Misc/Debug.scar}

Const
//  ----------------SETUP-----------------------------
     TreeColor=2176812                ; //color picker for tree
     loadcount= 10           ; //total loads to complete
     wtime= 9000             ; //total time to wait between mining rocks
     //setting this too low results in clicking a tree multiple times
//  ---------------END SETUP----------------------------------------
var
 x, y: integer;
 count,mwtime: integer;
kill: integer;
 TPA:TPointArray;
 ATPA:T2DPointArray;
 I: Integer;
 counter: Integer;

 begin
   counter:=0;
   kill:=0;
   count:=0;
   repeat
   count:=count+1;
mousespeed:=(7+random(3));
wait(200);
findsymbol(x,y,'fish');
mmouse(x,(y-20),20,20);
wait(300+random(300));
getmousepos(x,y);
mouse(x,y,1,1,true);
wait(10000+random(3000));
repeat

begin
mousespeed:=(7+random(3));
FindColorsTolerance(TPA, TreeColor, MSX1, MSY1, MSX2, MSY2,6);
  ATPA := TPAToATPAEx(TPA, 40, 40);
 begin
  if ( Length(ATPA)=0 ) then
  repeat
  kill:=kill+1
  wait(1000+random(2000));
  FindColorsTolerance(TPA, TreeColor, MSX1, MSY1, MSX2, MSY2,6);
  ATPA := TPAToATPAEx(TPA, 20, 20);
  if kill=4 then
  exit;
  until (Length(ATPA)>0)
 end;
  SortATPAFrom(ATPA, Point(MSCX, MSCY));
  MiddleTPAEx(ATPA[i], x, y);
  wait(50+random(500));
  MMouse(x, y, 20, 20);
  MMouse(x, y, 8, 8);
  wait(random(300)+200);
  getmousepos(x,y);
    begin
    if ( WaitUpTextMulti(['Wil', 'low'], 200) ) then
    Mouse(x,y,1,1,true)else
     mwtime:=wtime;
    end;
counter:=invcount;
wait(wtime-mwtime);
mwtime:=0;
if counter<invcount then
     repeat                //checking to see if a log was cut
counter:=invcount;
wait(wtime+random(1000));
until counter=invcount

 end;
 until (invfull)
wait(random(8000));
findsymbol(x,y,'bank');
mmouse(x,y,25,10);
wait(300+random(300));
getmousepos(x,y);
mouse(x,y,1,1,true);
wait(10000+random(3000));
openbankfast('db');
  wait(2000+random(1000));
depositall;
wait(220+random(300));
until (count=loadcount)
end.

Hey. It's nice to see that you a keen on scripting, however your current script it not quite up to SRL Members standards.

Take a look in Tutorial Island to increase your scripting ability by learning more advanced methods, and then re-apply in one month.

It's a no from me.

Like R1ch said, take a look at Tutorial Island and by the time you can reapply you'll be a master. ;) It's nice to see you've started scripting, and don't give up.

Good luck for when you reapply. :)