SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
Sythe.org had a section on it and I looked through it and started autoing.

Programming Knowledge
xml, lua, and toc from WoW addons lol

Other Communitys
Sythe and shit

How Long have You Played Runescape
like 4 years

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

Autoing is fun since its so hand free and lots of people at my school buy money in runescape ($10 per mill). I used ot be a very legit player that made 80m completelt legit and even got a purple party hat, but a couple weeks ago a fucker scammed it from me and now i have no real reason to play honestly anymore since that was all i had really. Now i just want to fuck jagex over for not doign anything about the people that scammed my purple party hat (they arent even banned!) Also a cool fact about me: i am the reason they put a / through the number zero in the game lol.

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

//------------------------------------------------------------------------\\
//    ________                                       _____  __            \\
//    ___  __ \____________ _____  ______________    __  / / /_______     \\
//    __  /_/ /_  ___/  __ `/_  / / /  _ \_  ___/    _  / / /___  __ \    \\
//    _  ____/_  /   / /_/ /_  /_/ //  __/  /        / /_/ / __  /_/ /    \\
//    /_/     /_/    \__,_/ _\__, / \___//_/         \____/  _  .___/     \\
//                          /____/                           /_/          \\
//                    __________                                          \\
//                    ___  ____/_____ ____________  __                    \\
//                    __  __/  _  __ `/_  ___/_  / / /                    \\
//                    _  /___  / /_/ /_(__  )_  /_/ /                     \\
//                    /_____/  \__,_/ /____/ _\__, /                      \\
//                                           /____/                       \\
//------------------------------------------------------------------------\\
// Setup Lines : 34-37                                                    \\
//               43-69                                                    \\
//------------------------------------------------------------------------\\
//                                                                        \\
//------------------------------------------------------------------------\\
//                             Instructions                               \\
//------------------------------------------------------------------------\\
// 1. Set Runescape on low detail and on Very Bright.                     \\
// 2. Join a crowded world where people dont pick up thier bones.         \\
// 3. Start logged in or out where bones are laying around.               \\
// 4. Click on play and it will get your "Prayer Up Easy".                \\
//------------------------------------------------------------------------\\
program BoneBurier;
{.include SRL\SRL.scar}

Var
  Buried, Picked: Integer;

const
  Bonecolor = 15066600; //bone color on ground
  RunDirection = 'N'; //direction you run away from random events(N,E,S,W)
  Skillforlamp = 'Prayer'; //what to use a genie lamp on
  VersionNumber = 'v1.0'; //do not touch this!

//-------------------------------Players----------------------------------\\

Procedure DeclarePlayers;
  begin
    HowManyPlayers := 5;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:=0;

    Players[0].Name :='Username'; //Username goes here.
    Players[0].Pass :='Password'; //Password goes here.
    Players[0].Nick :='sern'; //Type 3-4 letters of your runescape username.
    Players[0].Integer1 := 56; //Bones to bury until it switches players.
    Players[0].Active :=true; //Is this player active?

    Players[1].Name :='Username';
    Players[1].Pass :='Password';
    Players[1].Nick :='sern';
    Players[1].Integer1 := 56;
    Players[1].Active :=false;

    Players[2].Name :='Username';
    Players[2].Pass :='Password';
    Players[2].Nick :='sern';
    Players[2].Integer1 := 56;
    Players[2].Active :=false;

    Players[3].Name :='Username';
    Players[3].Pass :='Password';
    Players[3].Nick :='sern';
    Players[3].Integer1 := 56;
    Players[3].Active :=false;

    Players[4].Name :='Username';
    Players[4].Pass :='Password';
    Players[4].Nick :='sern';
    Players[4].Integer1 := 56;
    Players[4].Active :=false;
    
end;

//-------------------------------Anti Ban---------------------------------\\

Procedure Stopban;
  begin
    LeaveScreenEvery(4 + random(7));
    RandomRClickEvery(3+Random(9));
    Makecompass('E')
    RotateEvery(15 + Random(10));
    PickUpMouseEvery(6 + random(5));
    Makecompass('S')
    HoverEvery(7+random(5),'prayer');
    LeaveScreenEvery(10 + Random(10));
    Makecompass('W')
    RandomRClickEvery(8+Random(8));
    Makecompass('N')
end;

//------------------------------Progress Report-----------------------------\\

Procedure ProgressReport;
  begin
    Writeln('//----------------------------------------\\');
    Writeln('//--------Prayer up Easy '+VersionNumber+'-------------\\');
    Writeln('//----------------------------------------\\');
    Writeln('//-----Ran for '+TimeRunning+'--------\\');
    Writeln('//-----Picked up '+IntToStr(picked)+' bones-----------------\\');
    WriteLn('//-----Buried '+IntToStr(Buried)+' bones--------------------\\')
    WriteLn('//-----Gained '+IntToStr((Buried)*5)+' xp total----------------\\')
    Writeln('//----------------------------------------\\');
end;

//-----------------------------Anti Randoms-------------------------------\\

Procedure AntiRandoms;
  Begin
    FindNormalRandoms;
    FindTalk;
    FindLamp(Skillforlamp);
    UseBoxSolver := True
    UseCerterSolver := True
    UseSandwichSolver :=True
    FindMod;
    FindMime;
    FindDead;
    FindMaze;
    DwarfItem;
    FindDemon;
    Solvepinball;
    FindScapeRune;
    Stopban;
  if (findfight) then
      begin
      RunAwayDirection(RunDirection);
      SleepAndMoveMouse(9500+Random(2500));
      RunBack;
    end;
  if InBlack then
    begin
      Players[CurrentPlayer].Active := false;
      Writeln(Players[CurrentPlayer].Name + ' is stuck in a random event!');
      ProgressReport;
      NextPlayer(True);
      Wait(3000 + random(3000));
    end;
  if FindDead then
   begin
     Players[CurrentPlayer].Active := false;
     Writeln(Players[CurrentPlayer].Name + ' has died!');
     ProgressReport;
     NextPlayer(True);
     Wait(3000 + random(3000));
   end;
 end;
end;

//------------------------------Responding--------------------------------\\

Procedure AutoRespond;
  begin
    if(InChat('Prayer lvls?')   or
      InChat('Prayer lvls')    or
      InChat('Prayer lvl?')    or
      InChat('Prayer lvl')     or
      InChat('Pray lvls?')     or
      InChat('Pray lvls')      or
      InChat('Pray lvl?')      or
      InChat('Pray lvl'))      then
    begin
      TypeSend(IntToStr(GetSkillLevel('Prayer')))
  end;

    if (InChat('Cooking lvls?') or
      InChat('Cooking lvls')   or
      InChat('Cooking lvl?')   or
      Inchat('Cookin lvls?')   or
      InChat('Cookin lvls')    or
      Inchat('Cookin lvl?')    or
      InChat('Cookin lvl')     or
      InChat('Cook lvls?')     or
      Inchat('Cook lvls')      or
      InChat('Cook lvl?')      or
      InChat('Cook lvl'))      then
    begin
      TypeSend(IntToStr(GetSkillLevel('Cooking')))
  end;
 AntiRandoms;
 ProgressReport;
end;

//------------------------------Bury bones--------------------------------\\

Procedure Bury;
var
  Boneinv: Integer;
begin
  Boneinv := DTMFromString('78DA633CC6C4C0B09B91011530229140FA085' +
       '0CD66026A2E00D51C20A0662750CD4E026A0E03D51CC5AF06001F' +
       'BF07A1');
  repeat;
    if(FindDTM(Boneinv, x, y, 550, 200, 745, 465))then
      MMouse(x, y, 1, 1);
    if (IsUpText('Bury') or IsUpText('ury')) then
      GetMousePos(x, y);
      Wait(100+random(75))
      Mouse(x, y, 3, 3, True);
      Buried:=Buried+1;
      Wait(500+random(200))
      SRLRandomsReport;
      AntiRandoms;
    until(invcount >= 2)
  ProgressReport;
  FreeDTM(Boneinv);
end;

//-----------------------------Pick up bones------------------------------\\

Procedure Pickup;
var
  Takebonewhite, Takeboneyellow: Integer;
Begin
  Takebonewhite := BitmapFromString(59, 1, 'z78DA737343000324' +
       'E086216EEA626A6262EE86034064914937BC00D92E4CBDA8E6581' +
       'A9818404854970CBC382689E92F00146F4FAE');
  Takeboneyellow := BitmapFromString(59, 1, 'z78DA73737373333' +
       '0700393C8C00D43DCD4C5D4C4C41C591C9984C82293B85462DA85' +
       'A917D51C4B0313030889EA928117C72431FD050090804D72');
  repeat;
    if(Findcolor(x,y,Bonecolor,5,5,515,340))then
      MMouse(x,y,1,1);
    if (IsUpText('Bone') or IsUpText('ones') or IsUpText('eathe') or IsUpText('aw chic') or IsUpText('hicke')) then
      GetMousePos(x,y);
      Mouse(x, y, 1, 1, False);
    if(FindBitmap(Takebonewhite, x, y)) or (FindBitmap(Takeboneyellow, x, y))then
      MMouse(x,y,1,1);
      GetMousePos(x,y);
      Mouse(x, y, 1, 1, True);
      Flag;
      Wait(300+random(200))
      Picked:=Picked+1;
      SRLRandomsReport;
      AntiRandoms;
    until(invcount >= 5)
    if(invcount >= 5)then
      Bury;
     Freebitmap(Takebonewhite);
     Freebitmap(Takeboneyellow);
end;

//------------------------------------------------------------------------\\

Begin
  SetupSRL;
  ProgressReport;
  DisguiseScar('iTunes');
  Activateclient;
  DeclarePlayers;
    repeat
  If (Not(LoggedIn)) then
    begin
      Loginplayer;
      SetChat('on', 1);
      SetChat('friends', 2);
      SetChat('off', 3);
      HighestAngle;
      Setrun(true);
      Makecompass('N')
    end;
      repeat
        Pickup;
        Bury;
        AntiRandoms;
      until(LoggedIn) and (Buried >= Players[CurrentPlayer].Integer1)
      If(LoggedIn) and (Buried >= Players[CurrentPlayer].Integer1)then
        Writeln('Bones to bury has been reached, switching players.')
        Logout;
        ProgressReport;
        Wait(20000+random(10000))
        NextPlayer(True);
    until (false);
end.

I also know how to make forms with the form editor (not that hard to use, but eh, i can still make really cool forms lol) so im going to add a form to this script and other stuff in a week or so)

And here is a proggy that i got when i left it on while i was out golfing and dinner. I came back and checked all the players and not 1 of them were dead! (5 players)

//----------------------------------------\\
//--------Prayer up Easy v1.0-------------\\
//----------------------------------------\\
//-----Ran for 7 Hours, 0 Minutes and 9 Seconds--------\\
//-----Picked up 989 bones-----------------\\
//-----Buried 1274 bones--------------------\\
//-----Gained 6370 xp total----------------\\
//----------------------------------------\\

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|    [url]www.villu-reborn.com[/url]      |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fight Random[s]        :  1  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

EDIT: In less than 20 minutes, i turned this script into a powermining script. I havent tested it yet, but i dont see why it wouldnt work. I made this after submitting this application (see second to bottom post on this page)

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

Didn't you apply already without waiting a month?

It must have a been a couple weeks, hasent it? I have no idea, ill check

Been less then a month still, I don't know how strict they are about that, so Lets just wait for a different reply from a more advanced person of the forums :p

Yeah, its been 2 weeks, but i think it was boreas that said it was ok as long as i had a good 1 hour or longer so they shouldn't be strict about it, and it still has been a while.

Pretty good. Fix standards and edit plz.

From: Boreas
Pretty good. Fix standards and edit plz.

What do you mean? Im sorry if this is a stupid question lol.

Look in the tutorial section

Ok, i went through the script and changed some standards. The whole main loop at the end didn't have any standards, so i fixed that. Sorry about not having any in the main loop.

I say yes, if the report is real.

This morning at 11:00am, i left with my parents to go golfing and i thought, "why not leave it running since i knew it would help like boreas said". So i left it running adn when i came back, I copied and pasted each proggy for 1 hour, 2 hour, ect. Here are the hourly progress reports i copied and pasted without editing at all:

//----------------------------------------\\
//--------Prayer up Easy v1.0-------------\\
//----------------------------------------\\
//-----Ran for 1 Hours, 0 Minutes and 12 Seconds--------\\
//-----Picked up 417 bones-----------------\\
//-----Buried 129 bones--------------------\\
//-----Gained 645 xp total----------------\\
//----------------------------------------\\

//----------------------------------------\\
//--------Prayer up Easy v1.0-------------\\
//----------------------------------------\\
//-----Ran for 2 Hours, 0 Minutes and 7 Seconds--------\\
//-----Picked up 512 bones-----------------\\
//-----Buried 320 bones--------------------\\
//-----Gained 1600 xp total----------------\\
//----------------------------------------\\

//----------------------------------------\\
//----------------------------------------\\
//--------Prayer up Easy v1.0-------------\\
//----------------------------------------\\
//-----Ran for 3 Hours, 0 Minutes and 37 Seconds--------\\
//-----Picked up 608 bones-----------------\\
//-----Buried 512 bones--------------------\\
//-----Gained 2560 xp total----------------\\
//----------------------------------------\\

//----------------------------------------\\
//--------Prayer up Easy v1.0-------------\\
//----------------------------------------\\
//-----Ran for 4 Hours, 0 Minutes and 2 Seconds--------\\
//-----Picked up 703 bones-----------------\\
//-----Buried 701 bones--------------------\\
//-----Gained 3505 xp total----------------\\
//----------------------------------------\\

//----------------------------------------\\
//--------Prayer up Easy v1.0-------------\\
//----------------------------------------\\
//-----Ran for 5 Hours, 0 Minutes and 25 Seconds--------\\
//-----Picked up 799 bones-----------------\\
//-----Buried 893 bones--------------------\\
//-----Gained 4465 xp total----------------\\
//----------------------------------------\\

//----------------------------------------\\
//--------Prayer up Easy v1.0-------------\\
//----------------------------------------\\
//-----Ran for 6 Hours, 0 Minutes and 6 Seconds--------\\
//-----Picked up 894 bones-----------------\\
//-----Buried 1083 bones--------------------\\
//-----Gained 5415 xp total----------------\\
//----------------------------------------\\

//----------------------------------------\\
//--------Prayer up Easy v1.0-------------\\
//----------------------------------------\\
//-----Ran for 7 Hours, 0 Minutes and 9 Seconds--------\\
//-----Picked up 989 bones-----------------\\
//-----Buried 1274 bones--------------------\\
//-----Gained 6370 xp total----------------\\
//----------------------------------------\\

I was curious at how fast it was going and i wanted to compare each hour to see if it sped up or slowed down in any of the times. I was very surprised to see this also. These progress reports were copied and pasted directly from the bottom box without editing them at all. (excpet for only taking out the ones for each hour).

Procedure Bury;
var
  Boneinv: Integer;
begin
  Boneinv := DTMFromString('78DA633CC6C4C0B09B91011530229140FA085' +
       '0CD66026A2E00D51C20A0662750CD4E026A0E03D51CC5AF06001F' +
       'BF07A1');
  repeat;
   if(FindDTM(Boneinv, x, y, 550, 200, 745, 465))then
    MMouse(x, y, 1, 1);
     if (IsUpText('Bury') or IsUpText('ury')) then //this if only applies to 
     GetMousePos(x, y);                                 //this
     wait(100+random(75))                               //but not this
     Mouse(x, y, 3, 3, True);                            //or this
     Buried:=Buried+1;                            //or this
     wait(500+random(200))                            //or this
     SRLRandomsReport;                            //or this
     AntiRandoms;                            //or this
    until(invcount >= 2)
   ProgressReport;
  FreeDTM(Boneinv);
end;

As for indenting, I will use the same as an example.

Procedure Bury;
var
  Boneinv: Integer;
begin
  Boneinv := DTMFromString('78DA633CC6C4C0B09B91011530229140FA085' +
       '0CD66026A2E00D51C20A0662750CD4E026A0E03D51CC5AF06001F' +
       'BF07A1');
  repeat;
    if(FindDTM(Boneinv, x, y, 550, 200, 745, 465))then
      MMouse(x, y, 1, 1);
    if (IsUpText('Bury') or IsUpText('ury')) then //this if only applies to 
      GetMousePos(x, y);                                 //this
    wait(100+random(75))                               //but not this
    Mouse(x, y, 3, 3, True);                            //or this
    Buried:=Buried+1;                            //or this
    wait(500+random(200))                            //or this
    SRLRandomsReport;                            //or this
    AntiRandoms;                            //or this
  until(invcount >= 2)
  ProgressReport;
  FreeDTM(Boneinv);
end;

You go to the right 2 spaces after begins, repeats, ifs without begins, and 2 spaces to the left for untils, ends, etc.

Fix that stuff and you got a yes from me.

Oh, ok, ill do that right now.

Edit: I changed a lot of the spacing and changed some capitals also. I think it looks good right now. Ty for the advice on changing the standards.

Who voted no for me????

If your going to vote no, post why its a no so i can improve but dont just vote no and leave.

Looks good after you fixed standards looks even better also the scripting is very solid and you seem to understand everything so it's a yes from me

Cool, ty

Sorry rune hacker, only reason I'm going to vote no is because its a bone burying script.. and we get a LOT of those. you should try making a power chopper/power miner, it would be more reliable to get you accepted.

From: JAD
Sorry rune hacker, only reason I'm going to vote no is because its a bone burying script.. and we get a LOT of those. you should try making a power chopper/power miner, it would be more reliable to get you accepted.

I'll probably vote the same, for the same reason. Bone burier is rather easy to make. Figure I would tell you I voted no, even though nobody told me ( I'm still quite upset that I got so many no's with 0 people explaining themselves.. )

Eh it must be a trend. To help with your next app, try to write a decent length script DISREGARDING player setup, comments, and auto responders. When scripts are reviewed, in my opinion, those don't show much about scripting knowledge. If you write a 150 - 200 line autocutter then add the other stuff, you'll probably do just fine ( assuming the script works ^^ )

Aww comon, i made the bitmaps, made the functions as reliable as possible, and other stuff. I thought this would be a good script to show my knowledge of scripting and using bitmaps, dtms, good antirandoms, antiban, and other stuff. There were only 2 prayer scripts in the free script area so i thought they could use another but i guess not…………I am a good scripter and know a lot but this community already has sooooooo many powerminers and powercutters already out in the free scripts section and many other people make them so wheres the fun. It makes me kinda sad that i worked really hard for this script and didnt get members (i read through the dtm tuts, bitmap tuts, read through the manual, and all that stuff so i do know a lot). But if you dont think a good prayer script is contributing, idk. I could make a powerminer, but the community doesnt really need it(it is just find color, click, wait, and drop load when invcount = 28….)my script has all that in it and wa ywa yway more so i dont like the reason i am getting No's since power miners/cutters both require the same knowledge of scripting if not less i think……Can you please tell me you always say powercutters and powerminers are better even though they are easier and use way less functions? I am going to time myself to see how long it will take me to make this script into a powerminer…I will edit this soon.

EDIT: Ok, in less than 15 minutes, i turned this script into a powerminer. I havent logged in, or even tried to use it yet(its been 15 minutes…), but it just shows that this prayer script is worthy of membership and that i know how to script.

EDIT: I forgot to add apickheadfinder so less than 5 minutes of my time were used to put it it. I hate that im not going to get memebers and have to wait a month even though i know all there is to know and i was just trying to contribute to the community. =(

EDIT: What would you do in my position? - You know all you can know, made what is needed, and probably going to have to wait a *Month* before you can be a member even though there isnt alot you can really improve on. Im stumped. Please reply what you think because im angry with why i am getting No's.

As Boreas had one told me

If you are really deserving of SRL Membership, you wouldnt have to beg or argue for it.

The script should do the talking for you.
Im happy your making a powerminer now though :P.


Id just wait the month (if you dont get accepted) and make that powerminer sooper good and then apply again.

Im not begging or arguing, im just saying that im angry because i worked hard and tried to help the community but all you people want to see is powerminers and powercutters for some reason and the *only* reason you are saying no is because i wanted to help the community and thsi script is harder than powerminers and cutters anyways! I just changed this script into a powerminer in less than 20 minutes, and now i *might* need to wait a month to try for members again, but i know all i can about scar, im just trying to show you that. Its just that i dont like the reason you are voting No, your voting No not because of my scripting, but because it is a prayer script. What is wrong with prayer scripts lol. Sorry if this sounds like arguing, i just dont like the reason your all voting No lol.

EDIT: Why is that all you members want to see are powerminers and powercutters? It seems stupid to me because i have never once heard you suggest anything else besides them. I wanted to make a change and make soemthing that there werent many of.

EDIT: Look at all these miners and woodcutters in *just* the free script section(many others on other sites)
13 power miners.
7 banking miners.
12 power cutters.
15 banking cutters.
Only 3 prayers (one is mine)

Its not ALL we want to see.
And we also dont care how many of what scripts there are.
We normally just ask for them because they are common but mainly because they can REALLY show scripting knowledge. They varry very much.
From easy 10 minute powerminers (:p) to wizzups and summllions powerminers.
Same goes for choppers.

Anyone can make a working simple script, but a complex working one really shows the scripters dedication.
(what a nice quote :p)

Same goes for powerchoppers.

We dont care what the script DOES, we care how well it RUNS.
And by looking at the thread of this script, it seems to work fine, but also iv seen complaints.

If you really like this script you have, try making it more reliable.
Add failsafes, make the procedures flawless, and show use of lots of things like
arrays, multiplayer, bitmap, dtm, case ofs, ect.

So continue this boner script if you want, just make it the best boner ever!
Or make a powerminer and make that good also.

But for now, the majority of us see nothing sooper special in these scripts.

Membership comes with time dude, just because we say no right now doesn't mean you will never get accepted.

Some people had to apply 3 times before getting accepted, but they are good scripters now.

So yeah…

Dude just write another script… I used to think my autocrafter that is currently submitted to SRL was hard to write, then I wrote a 900 line autofighter which is far more difficult to write. How long has it been, two weeks maybe? Just familiarize yourself with scripting, and making the script will become increasingly easier. What seems like hard work now will be a joke in a short while.

Your script seemed ok, that it would be fairly good, but I'm in between on acceptance, and I'm sure others were as well, and ended up giving you a no. Just keep that in mind, that it is a GOOD START, just finish it by submitting another script to prove you got what it takes to be an srl member… SUCH AS ( not specifically ) a powerminer or woodcutter. If you read the stickies about applying to SRL they outlined their reasons for it.

Goodluck, apply in a month with another script ( along with your burrier ) and I'm sure you'll get a yes.

I guess ill make a powerminer then…….I already turned this script int oa powerminer in less than 20 minutes (read secodn to last post on first page) so ide just need to add some small functions in it. Im not sure wha tyou people rate me on….Is it how good the script works, what it does, how many lines it is, how complex it is, or what. I want to know this question the most since i guess your not voting on how well a scritp works or how complex it is. Please tell me how you rate it a yes or a no because i dont get exactly what you look for in a script….my scritp has all the functions needed plus more, so please tell me what you look for in a script.

EDIT: I was just wondering, what does this prayer script not have that a powerminer/powercutter script has.
Also, I read the "becoming a member" tutorial and i have everything in it. Im not really sure what to do.

I just want to know what you are looking for in a script so I can improve and why you favor powerminers/powercutters over all other scripts.

Dont double post, and everyone has already told you hundreds of things to improve on.

Read this:
http://www.villavu.com/forum/showthread.php?t=3562?t=4302

Closed.