SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
SCAR and learning others.

Other Communitys


How Long have You Played Runescape
3 years this year

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

Ive recently read up alot of tutorials and have decided that i think i will try to become a SRL-Member. I have posted a few scripts in First Scripts and SRL-Junior Member script sections, i am currently working on a yew chopper and banker which i WILL post immiedatley,

i am currently reading more tutorials and WILL contribute more and more to SRL as i learn more :)

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

{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~~Willow Vanquisher V1!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~Requires: Scar 3.15 SRL 4~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~Start in Draynor Bank with Axe Wielded!~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~Select Window HIT RUN! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~~POST PROGGYS OR BUGS PLEASE!!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~~MADE BY JOELSTER134!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~)
(~~~~~~~~~~~~~~~~~~FAST AND EFFECTIVE CUTTING ENT FINDING AND BANKING!!~~~~~~~~}


///////////-------->>Setup Lines 18-21 and 34-47!<<---------\\\\\\\\\\\\\\\\\\\\



program Willow_Vanquish_V1;

{.include SRL/SRL.scar}

const

   //SRL Id//
   YourID= ''; //SRl Stats (example)
   YourPW= ''; //SRL Pass (for id) (example)

   WillowTreeColor = 5736820;
   EntColor    =  514778;
   BankSymbol = 10089719;
////////--------->>DONT TOUCH THIS!<<----------\\\\\\\\
var

    y, logs, time, elapse, loads, z, x, s:Integer;

///////--------->>SETUP PLAYERS BELOW!<<------\\\\\\\\\\

procedure DeclarePlayers;

begin
   HowManyPlayers:= 1; //Change to your liking :)
   NumberOfPlayers(HowManyPlayers);
   
   Players[0].Name:=''; //username
   Players[0].Pass:=''; //Password
   Players[0].Nick:=''; //Nickname here 3-4 letters no nums
   Players[0].Active:=  True  ; //Are you using this player?
   Players[0].Worked:= 10     ; //How many Loads you wanna do
   
  { Players[1].User:='Username'; //username
   Players[1].Pass:='Password'; //Password
   Players[1].Nick:='Nickname'; //Nickname here 3-4 letters no nums!
   Players[1].Active:='True'  ; //Are you using this player?
   Players[1].Worked:= 100    ; //How many Loads you wanna do }
   
end;
///////////////---------->>>>>DO NOT TOUCH BELOW!!!<<<<<<---------\\\\\\\\\\\\\
   
{~~~~~~~~~~)
(ANTI BAN! )
(~~~~~~~~~~}

procedure AntiBan;
begin

    if not LoggedIn then Exit;
     case (Random(30)) of
      1:  RandomRClick;
        5:  HoverSkill('Woodcutting', False);
          11:  RandomMovement;
           15: BoredHuman;
          21: DoEmote(400 +Random(90));
         24:  PickUpMouse;
         27: begin
          Gametab(1 + Random(12));
           Wait(3220 + Random(2415));
          Gametab(4);
         end;
     30: SleepAndMoveMouse(3600);
  end;
end;

{~~~~~~~~~~~~~~~~~~~~~~~~)
(Anti-Randoms are here!  )
(~~~~~~~~~~~~~~~~~~~~~~~~}
procedure AntiRandoms;
begin
     findnormalrandoms;
     if findfight=true then
     begin
      runaway('E',true,1,5000+random(1000));
  end;
end;

procedure BankingWillows;

begin
   if loggedin=False then
begin
  Exit;
end;
   AntiRandoms;
    AntiBan;
     if random(15)=5 then
begin
      hoverskill('Firemaking',False);
end;
     makecompass('n');
    if findcolortolerance(x,y,Banksymbol,MMX1,MMY1,MMX2,MMY2,40) then
begin
   mouse(x-3,y-3,2,2,true);
    time:=gettimerunning+13000+random(2000);
  repeat
     wait(100);
      AntiRandoms;
      until((gettimerunning>time) or (flagpresent=false))
     AntiRandoms;
  repeat
   openbank('db',false,false);
    wait(100);
     AntiRandoms;
      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,z,x,s);
     writeln('$$$$$$$$$Willow Vanquisher V1 Proggy!!$$$$');
    writeln('$$$$$$$$$ Time: $$$$$$$$$$$$$$$' + inttostr(z) + ':' + inttostr(x) + ':' + inttostr(s));
   writeln('$$$$$$$$$ Loads Completed!:  ' + inttostr(loads));
  writeln('$$$$$$$$$$$$$$$$$$$$$$$$$$$$$');
   writeln('$$$$$$$$$Thanks for using my willow killa created by Joelster134!$$$$$$$$$!');
end;
end;
  wait(100+random(100));
end;

{~~~~~~~~~~~~~~~~~~~~~~~~~)
(Find ENTS!! YAY!!!!!!!!! )
(~~~~~~~~~~~~~~~~~~~~~~~~~}

procedure FuckThemEnts;

begin
   makecompass('n');
    mouse(MMCX+10,MMCY+10,2,2,true);
     x:=MSCX;
    y:=MSCY;
   wait(random(100));
  if findcolortolerance(x,y,Banksymbol,MMX1,MMY1,MMX2,MMY2,40) then
begin
   mouse(x-40,y+40,10,10,true);
    time:=gettimerunning+8000+random(2000);
repeat
      wait(100);
     AntiRandoms;
    until((gettimerunning>time) or (flagpresent=false))
   AntiRandoms;
  AntiBan;
end;
end;



{~~~~~~~~~~~~~~~~~~~~~~~~)
(Time to WC THEM WILLOWS!)
(~~~~~~~~~~~~~~~~~~~~~~~~}


procedure LetsVanquishWillows;
  begin
   makecompass('n');
    if findcolortolerance(x,y,Banksymbol,MMX1,MMY1,MMX2,MMY2,40) then
begin
    mouse(x-40,y+40,10,10,true);
   time:=gettimerunning+8000+random(2000);
repeat
   wait(100);
    AntiRandoms;
  until((gettimerunning>time) or (flagpresent=false))
   AntiRandoms;
  end;
    x:=MSCX;
     y:=MSCY;
  repeat
      AntiRandoms;
     wait(100);
    if findobjtpa(x,y,WillowTreeColor,20,-1,50,50,40,['Chop down Willow']) then
begin
   mmouse(x,y,0,0);
  wait(100+random(100));
  if findcolortolerance(logs,logs,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);
     AntiRandoms;
      AntiBan;
  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);
        AntiRandoms;
        until((startswith('Chop',getuptext)=false) or (invfull=true) or (findcolortolerance(logs,logs,entcolor,80,10,130,20,40)=true) or (gettimerunning>time))
      if findcolortolerance(logs,logs,entcolor,80,10,130,20,40)=true then
begin
  FuckThemEnts;
end;
end;
end;
  end else
begin
  FuckThemEnts;
end;
  end else
begin
   makecompass('n');
    if findcolortolerance(x,y,Banksymbol,MMX1,MMY1,MMX2,MMY2,40) then
begin
     mouse(x-40,y+40,10,10,true);
      time:=gettimerunning+8000+random(2000);
  repeat
     wait(100);
    AntiRandoms;
   until((gettimerunning>time) or (flagpresent=false))
  AntiRandoms;
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
  BankingWillows;
end;
  repeat
   LetsVanquishWillows;
    BankingWillows;
  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
   loginplayer;
    players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
end;
  until(false)
end.

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

sorry it's a no from me, it's too simple and the standards are everywhere, you need tpa's and autocolor not just getting them to pick colors, also there's no need for bad language in scripts. if you learn,
tpa's
(D)dtms
radialwalk
standards
and some other intermediate stuff then you should get in

Ok thanks :) will fix up and post anthe application in a few months :)

sorry no from me same reasons as sandos posted ^^

thanks again and yeah, i still got alot to learn :)

i like it i can't vote now but if you fix it up a bit and add a few more functions then i will vote yes next time:)

Sorry, it is a no. It really is too simple. :/

Yeah, im currently looking up more tut's will fix it up and retry again :) thanks for feedback :)

yeah if you do that and come back with a even slightly better script ill vote yes :) youve got a good attitude

Thanks Sandos…"off topic" Can i add you to buddies list incase i get stuck/have a question?" "end of off topic"

Hes got a real good attitude hes been trying hard which i find good but the script you've submitted is a bit too simple hope the next one wins us over ;)

Ill make sure it will :) im currently reading DTM tuts Radial walk tuts etc..thanks for feedback!

Yeah. You have the attitude, which is half the vote. But you need to read a few more tuts and when you finish I hope to see you a member.

From: Mylesmadness
Yeah. You have the attitude, which is half the vote. But you need to read a few more tuts and when you finish I hope to see you a member.

Thanks alot guys :), im reading up more tutorials and will try again next month :D

From: joelster134
Thanks alot guys :), im reading up more tutorials and will try again next month :D

That's the spirit :)
You may try again in two weeks.
Closed.