SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
I took a high school java class. I would rate myself an intermediate java programmer. I also self taught myself C.


Are you a member of any other communities?
Yes, MmoExchange. Ex scripter on powerbot.


Tell us about yourself…

From: Bolshoi Booze
My name is Alex, I'm 16 years old. I enjoy skiing and archery. I live in America. I hope to become a SRL member to expand my programming knowledge and get to know people in this community.

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

This is my logcutting script. This is its latest version.


// script by Bolshoi Booze
program Logcutter;

{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL/SRL.scar}

const
//                      ------SETUP-------
// Recommended start in Varrock west bank
// Put your knife in your first inventory slot
// put logs in first bank slot in your first tab
loadcount= 20  ;  //how many cycles you need
sorc=1         ;  //0 for stringing, 1 for cutting
col= 1                   ;  //log row
row=  1                  ;  //log column
bankty= 1                ; //0 for any npc bank, 1 for a specific bank
specific='vwb'           ; //vwb=varrock west bank, veb= varrock east bank

var
  x, y: integer;
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name := 'USERNAME HERE';  //username
    Pass := 'PASSWORD HERE';       //password
    Nick := 'NICKNAME HERE';          //nickname
    Active := True;
//                ----END SETUP---
  end;
end;


Procedure initrun;
begin
  Smart_Members := True;
  Smart_Server := 91;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  wait(3000);
  SetAngle(true);
  mousespeed:=(6+random(4));
end;

Procedure stringing;
begin
  mousespeed:=(7+random(3));
  wait(200);
  if bankty=0 then
    openbanknpc;
  if bankty=1 then
    openbankfast(specific);
  wait(500+random(600))
  depositall;
  wait(800+random(300));

  wait(500+random(500));

  wait(500+random(1000));
  closebank;
  wait(1800+random(500));
  invmouse((random(13)+1),1);
  wait(700+random(300));
  Invmouse((15+random(14)),1)
  wait(1000+random(1000));
  mmouse(359,408,200,200);
  mmouse(259,408,30,30);
  wait(100+random(200));
  getmousepos(x,y);
     begin
      if ( WaitUpTextMulti(['Mak', 'tions'], 200) ) then
      Mouse(x,y,1,1,true)else
      exit;
      end;
  repeat
    wait(1000);
  until invcount=14
  wait(random(5000));
  if random(2)=1 then
    begin
      writeln('taking break');
      wait(random(20000));
    end;
  writeln('cut');
end;

Procedure Cutting;
var
  IT:TInvenItem;
begin
  mousespeed:=(7+random(3));
  wait(200);
  if bankty=0 then
    openbanknpc;
  if bankty=1 then
    openbankfast(specific);
  wait(500+random(1000))
  invmouse((random(8)+2),2);
  wait(400);
  FindText(x, y, 'All', UpChars, msx1, msy1, mix2, miy2);
  wait(200);
  mouse((18+x),(y+2),16,2,true);
  wait(800+random(300));
  withdraw(col,row,0);
  wait(500+random(1000));
  closebank;
  wait(500+random(1000));
  if invfull then
    begin
      Invmouse((2+random(1)),1)
      wait(200+random(300));
      invmouse(1,1);
      wait(2000+random(1000));
      mmouse(359,408,200,200);
      mmouse(259,408,30,30);
      wait(100+random(200));
      getmousepos(x,y);
         begin
            if ( WaitUpTextMulti(['Mak', 'tions'], 200) ) then
              Mouse(x,y,1,1,true)else
              exit;
          end;
      writeln('Started Cutting');
      wait(5000);
      IT:=GetInven(28);
      repeat
        wait(1000)
      until IT<>GetInven(28)
      writeln('Done Cutting');
      wait(random(5000));
      if random(2)=1 then
        begin
          wait(random(10000));
          writeln('taking min break');
        end;
      if invfull then
        writeln('27 more unstrung bows')else
      begin
        writeln('I think you lost your knife');
        writeln('Logging out...');
        logout;
        exit;
      end;
    end else
      begin
        writeln('Inv not full, banking issue, or out of logs, logging out');
        logout;
        exit;
      end;
end;

Procedure mainloop;
var
  counter:integer;
begin
  initrun;
  counter:=0;
  repeat
    counter:=1+counter;
    if sorc=0 then
      stringing;
    if sorc=1 then
      cutting;
    writeln(loadcount-counter);
    writeln('loads to go');
  until counter=loadcount
  writeln('Another set, problem free');
end;

begin
mainloop;
end.

Good start, I like the failsafes and your standards aren't the worst I've seen either.
Unforutnately it's still pretty damn simple, mainly just ivmouses and SRL's Openbank procedure, nothing too exciting in it yet :/.

You definately have what it takes though, just keep learning more techniques like DTMs, AutoColoring, Make your own custom bank function, instead of just arbitrarily clicking inventory poitns maybe look for the item DTM.

Try making a power chopper or power miner, something that interacts and does more then just minly click around your inventory.

Good effort though.
Also you only have 1 post! It takes more than just a script to become SRL member, we want a bit more longevity/activity to see what kind of a person you are too!

good Luck!

I agree. Relatively simple script.( Not to say simple is bad)
Good start. Try learning how to find bitmaps, they are rather easy and accurate, also good for what your trying to do.

No, you need to be a part of this comunity to become a srl member, from that, you need some activity here.

Like Yoho said, good start! But unfortunately, I feel that your script does not show a keen understanding of SRL functions, as previously said. There were a few things that I saw that also were a slight eye-sore:

 depositall;
  wait(800+random(300));

  wait(500+random(500));

  wait(500+random(1000));
  closebank;

Are 3 Wait's in a row really necessary? You could very easily combine these into 1 wait statement.

if random(2)=1 then
    begin
      writeln('taking break');
      wait(random(20000));
    end;

That is an awful large percentage chance for it to break, perhaps a small chance to break, with a longer break(that's more human-life imho)? Although not deadly or a real factor in my decision, I still wanted to point that out.

Overall a good effort, but a more in-depth script would be much better to show off your abilities. Also, try to be more active in the community! Postcount is not often a factor in my judgements, but someone with 1 post applying for Members is awfully low. Keep up the good work though!

EDIT: Also, forgot to add, instead of your current procedures for finding the items to click, try to use DTM's instead, it will lessen the lines of code and look more advanced and be more accurate.

I think we should give the guy a break even tho it is a simple script, but there is plenty of potential there, im going to say yes my self, but if you get denied take all the info the guys have gave you and come back with a better script, like I know you could :)

maybe add some DTMs etc

go take a look at tutorial section.

No, because of the script, but because of your one post. Please become part of the community first.

From: Camo Developer
No, because of the script, but because of your one post. Please become part of the community first.

Ohh shit i didnt realise he had 1 post!!!

Yea dude please take part in the community release somer script etc then apply if i could change my vote to no i would at this point!!

it seems you already know how to start scripting, learn a bit more and am sure you could come back within a week with much better script if you work hard:P

Come on YoHoJo! Step up your game!

http://villavu.com/forum/showthread.php?t=68070 - copied from this thread and lightly modded. This isn't his own script.

From: Harry
Come on YoHoJo! Step up your game!

http://villavu.com/forum/showthread.php?t=68070 - copied from this thread and lightly modded. This isn't his own script.

I actually hope you are incorrect, although I do see lots of similarities. It's a shame then, if this is so, as I had thought a new member was genuinely interested in scripting.

From: PatDuffy
I actually hope you are incorrect, although I do see lots of similarities. It's a shame then, if this is so, as I had thought a new member was genuinely interested in scripting.

Ignoring the fact he has a "stringing" procedure in a woodcutting script, and also "make potions" uptext… :p

When I first looked at this, I thought the 'tions' was just something I couldn't think of, but your right, it does seem like 'potions'.

 begin
      if ( WaitUpTextMulti(['Mak', 'tions'], 200) ) then
      Mouse(x,y,1,1,true)else
      exit;
      end;

Around 50 lines later….

         begin
            if ( WaitUpTextMulti(['Mak', 'tions'], 200) ) then
              Mouse(x,y,1,1,true)else
              exit;
          end;

It appears again, and does absolutely nothing at all. It is evidence of code thrown in, or code that was not taken out, I can't tell which.

I didn't even look at his script, lol. His one post was an automatic no for me.

From: Camo Developer
I didn't even look at his script, lol. His one post was an automatic no for me.

The fact that it's a copy of etherfreak's fletcher is a no from me! :fiery:

No copying scripts!

EDIT: here is Etherfreak's as proof:

// script by EtherFreak
program cutnstring1;

//{.Include SRL\SRL\Misc\SMART.SCAR}
//remove the(//) if you want smart
{.include SRL/SRL.scar}

const
//  ----------------SETUP-----------------------------
// must be in any bank that has a NPC
//kife in first invintory slot for bow cutting
loadcount= 20  ;  //how many cycles you need (14 to a cycle)
sorc=1         ;  //0 for stringing, 1 for cutting
colb= 5                  ;  //unstrung bow row
rowb=  2                 ;  //unstrung bow col
cols=   3                ;  //bowstring col
rows=  2                 ;  //bowstring row
col= 2                   ;  //log row
row=  0                  ;  //log col

bankty= 1                ; //0 for any npc bank, 1 for specific bank
specific='fwb'           ; //some valed inputs are: 'veb', 'vwb' 'feb'

var
  x, y: integer;
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name := '';  //set username
    Pass := '';       //set password
    Nick := '';          //set nick 3-4 char
    Active := True;
//  ---------------END SETUP----------------------------------------
  end;
end;


Procedure initrun;
begin
  Smart_Members := True;
  Smart_Server := 77;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  wait(3000);
  SetAngle(true);
  mousespeed:=(7+random(3));
end;

Procedure stringing;
begin
  mousespeed:=(7+random(3));
  wait(200);
  if bankty=0 then
    openbanknpc;
  if bankty=1 then
    openbankfast(specific);
  wait(500+random(600))
  depositall;
  wait(800+random(300));
  WithdrawEx(colb,rowb,14,[]);
  wait(500+random(500));
  withdraw(cols,rows,0);
  wait(500+random(1000));
  closebank;
  wait(1800+random(500));
  invmouse((random(13)+1),1);
  wait(700+random(300));
  Invmouse((15+random(14)),1)
  wait(1000+random(1000));
  mmouse(359,408,200,200);
  mmouse(259,408,30,30);
  wait(100+random(200));
  getmousepos(x,y);
     begin
      if ( WaitUpTextMulti(['Mak', 'tions'], 200) ) then
      Mouse(x,y,1,1,true)else
      exit;
      end;
  repeat
    wait(1000);
  until invcount=14
  wait(random(5000));
  if random(2)=1 then
    begin
      writeln('taking mini break');
      wait(random(20000));
    end;
  writeln('14 more  bows strung');
end;

Procedure Cutting;
var
  IT:TInvenItem;
begin
  mousespeed:=(7+random(3));
  wait(200);
  if bankty=0 then
    openbanknpc;
  if bankty=1 then
    openbankfast(specific);
  wait(500+random(1000))
  invmouse((random(8)+2),2);
  wait(400);
  FindText(x, y, 'All', UpChars, msx1, msy1, mix2, miy2);
  wait(200);
  mouse((18+x),(y+2),16,2,true);
  wait(800+random(300));
  withdraw(col,row,0);
  wait(500+random(1000));
  closebank;
  wait(500+random(1000));
  if invfull then
    begin
      Invmouse((2+random(1)),1)
      wait(200+random(300));
      invmouse(1,1);
      wait(2000+random(1000));
      mmouse(359,408,200,200);
      mmouse(259,408,30,30);
      wait(100+random(200));
      getmousepos(x,y);
         begin
            if ( WaitUpTextMulti(['Mak', 'tions'], 200) ) then
              Mouse(x,y,1,1,true)else
              exit;
          end;
      writeln('Started Cutting');
      wait(5000);
      IT:=GetInven(28);
      repeat               //untested, replaces static time
        wait(1000)
      until IT<>GetInven(28)
      writeln('Done Cutting');
      wait(random(5000));
      if random(2)=1 then
        begin
          wait(random(10000));
          writeln('taking min break');
        end;
      if invfull then
        writeln('27 more unstrung bows')else
      begin
        writeln('I think you lost your knife');
        writeln('Logging out...');
        logout;
        exit;
      end;
    end else
      begin
        writeln('Inv not full, banking issue, or out of logs, logging out');
        logout;
        exit;
      end;
end;

Procedure mainloop;
var
  counter:integer;
begin
  initrun;
  counter:=0;
  repeat
    counter:=1+counter;
    if sorc=0 then //stringing
      stringing;
    if sorc=1 then //Cutting
      cutting;
    writeln(loadcount-counter);
    writeln('loads to go');
  until counter=loadcount
  writeln('Another set, problem free');
end;

begin
mainloop;
end.

Suspended for Plagiarism, application closed.