SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
No

Other Communitys
www.golivewire.com www.myspace.com ( lol ) www.moparisthebest.com www.runehq.com

How Long have You Played Runescape
Around 2 years

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

Ok guy here is the script that I originally planned to get me in here but after reading guide on how to become a member and checked over the other script (My chicken killer) and it did originally apply to everything stated in there so I figured it would get me in.

"NEW DO write a script that demonstrates you know standards, player switching, and anti-randoms. If you have an awesome script but it's p2p and no switching, write a simple power chopper and submit both. Same goes for a script that doesn't get randoms Just make sure you show you know all these basics."

But I see why you guys said no to that script. You don't want a bunch of half assed scripters to be accepted and this is for the better good. I understand that.

:dramatic music:

So here is my originally planned script I was going to submit.

Here is my paragraph about myself ect. (used from last app.)

I've been a member here for a year or so. I stopped playing runescape quite some time ago though as it became boring. I finally got around to finding some free time and read some tuts on how to program with scar. I didn&#8217;t really get it but a couple weeks ago I tried again and it just sorta clicked. I opened up runescape again and started testing out procedures and different ways of walking. Eventually I decide that a chicken killer would be a good start.

There I was, trying to make my first script and after many trial and errors I have it working. It&#8217;s not the most 1337 script by any means but it gets the job done. S0 far I&#8217;ve collected 50k feathers without a ban. I have added anti randoms and anti ban to my script and tried to demonstrate basic knowledge of scar. For some reason I find myself addicted to scripting. Its amazing how you can write something so simple and make it do work for you. I hope to further my knowledge and learn to use scar for more useful things than runescape with the help of this great community.

Thanks you for taking the time to read this and for letting me be part of this great network of scripter&#8217;s. I hope to become well trained in scar and help to better this already wonderful community.


I'm hoping that a auto fight and a power chopper will show that I have learned most every thing to learn except for the super advanced stuff.


It said wait awhile before posting another one maybe 4 days isn't long enough idk. :( If this is to soon just delete this one and ill submit one in a month or so. (it would probably be oober 1337 then )


P.s. I even made sure that I did this at home so nothing could get messed up and they not compile again. :D

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

program CrackzTreeCracker;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}

const
TreeType = 3; //0 = Dead Tree, 1 = Normal Tree, 2 = Oak, 3 = Willow


TreeColor = 3307384; //Might have to change to color of tree you wish to cut
TreeTol = 4;
RunDirection = 'E'; //Direction to run if attacked
RunDefault = False;


var
TreeName: string;
LogsChopped, Loads, i, InvUsed: integer;
TreePTS: TPointArray;

procedure DeclarePlayers;
begin



    HowManyPlayers:=1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name     :='zezima';      //Your username
    Players[0].Pass     :='macro';     //Your password
    Players[0].Nick     :='zim';          //3 - 4 letters of username.  could be "esca"
    Players[0].Active   := True;          //Work this player?
    SetScreenName(Players[0].Nick);
    writeln(inttostr(HowManyPlayers)+' Players');

end;

procedure SetSettings;
begin
 case TreeType of
    0: TreeName:= 'down Dead tree';
    1: TreeName:= 'down Tree';
    2: TreeName:= 'down Oak';
    3: TreeName:= 'down Willow';
    4: TreeName:= 'down Yew';
 end;
 If Not(LoggedIn) then LoginPlayer;
 SetRun(RunDefault);
 GameTab(4);
 ArrangeInv;
 InvUsed:= InvCount + 1;
 writeLn('First free inventory slot: ' + IntToStr(InvUsed));
 writeLn('Tree: ' + TreeName);
 HighestAngle;
 if TreeType >= 0 then
    SendArrowWait(2, 400 + Random(100));


end;

procedure Report;
begin
writeLn(' /////////////PowerChopper by Mr Crackkilzu\\\\\\\\\\\\\\\\ ');
writeLn('//                                                   \\');
writeLn('  Logs Chopped: ' + IntToStr(LogsChopped) + '.   Loads: ' + IntToStr(Loads) + ' with ' + IntToStr(28 - (InvUsed - 1)) + ' logs each.');
writeLn('   Ran for ' + TimeRunning + '                       ');
writeLn('                                                       ');
writeLn('\\                                                   //');
writeLn(' \\\\\\\\\\\\\------------------------//////////////// ');
end;


procedure EndAuto(Reason: string; DebugImage: boolean);
var x, y: integer;
begin
 If DebugImage then
 begin
    SaveScreenshot('PowerChopperDebug.bmp');
    GetClientDimensions(x, y);
    DisplayDebugImgWindow(x, y);
    LoadDebugBitmap('PowerChopperDebug.bmp');
 end;
 if LoggedIn then LogOut;
 Report;
 writeLn(Reason);
 TerminateScript;
end;

function FindFastRandoms: Boolean; //By WT-Fakawi, credits to him.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure AvoidFight;
begin
 if FindFight then
 begin
    MakeCompass('N');
    RunTo(RunDirection,True);
 end;
end;

Procedure CheckForRandoms(FullCheck: boolean);
begin
 If Not(LoggedIn) then LoginPlayer;
 If FindFastRandoms then EndAuto('Unsolvable random found, terminating script.', True);

 AvoidFight;
 FindTalk;
 if FullCheck then FindNormalRandoms;
end;

procedure RotateCompass;
begin
  CheckForRandoms(False);
  case Random(3) of
     0: MakeCompass('N');
     1: MakeCompass('S');
     2: MakeCompass('E');
     3: MakeCompass('W');
  end;
end;

Procedure AntiBan;
begin
 case random(79) of
    0: HoverSkill('Random',false);
    1: begin
          RandomRClick;
          ClickOption('Cancel', 1);
          MMouse(Random(500), Random(500), 3 - Random(2), 1)
       end;
    2: PickupMouse
    3: begin
           GameTab(1 + Random(11));
           Wait(3000 + Random(1000));
           GameTab(4);
        end;
    4: TypeSend('Any one else bored?');
    5: TypeSend('wc lvls?');
    6: AlmostLogout;
    7: RotateCompass;
 end;
end;

Procedure DropLogs;
var ii: integer;
begin
 FindInventoryRandoms;
 If InvFull then
 LogsChopped:= LogsChopped + 28 - (InvUsed - 1);
 begin
    for ii:= InvUsed to 28 do
    begin
       DropItem(ii);
       CheckForRandoms(False);
       case Random(4) of
          0: AntiBan;
       end;
    end;
    Loads:= Loads + 1;
 end;
end;

Procedure WaitForTree;
begin
 repeat
    wait(50 + random(50));
    case Random(14) of
       0: Mouse(TreePTS[i].x, TreePTS[i].y, 0, 0, true);
    end;
    FindEnt(TreePTS[i].x, TreePTS[i].y, true);
    CheckForRandoms(False);
    GameTab(4);
 until(Not(IsUpText(TreeName)) or (InvFull))
 wait(100 + random(1400));
end;


Function FindTree(Tree: string; Color, Tol: integer): boolean;
begin
 FindColorsSpiralTolerance(255, 166, TreePTS, Color, 5, 5, 515, 337, Tol);
 if Length(TreePTS) <= 0 then RotateCompass
 else for i:= 0 to Length(TreePTS) - 1 do
 begin
    CheckForRandoms(False);
    MMouse(TreePTS[i].x, TreePTS[i].y, 3 - Random(2), 1)
    If (IsUpText(Tree)) and (Length(TreePTS) > 0) then
    begin
       result:= true;
       exit;
    end else
    begin
       If i = Length(TreePTS) - 1 then RotateCompass;
       result:= false;
    end;
 end;
end;

Procedure ChopTree;
begin
 repeat
    AntiBan;
    CheckForRandoms(False);
    if FindTree(TreeName, TreeColor, TreeTol) then
    begin
       if Not(FindEnt(TreePTS[i].x, TreePTS[i].y, false)) then
       begin
          Mouse(TreePTS[i].x, TreePTS[i].y, 3 - Random(2), 1, true);
          CheckForRandoms(False);
          FindInventoryRandoms;
          WaitForTree;
          case Random(14) of
             0: RotateCompass;
          end;
       end
    end;
 GameTab(4);
 until(InvFull);
end;

begin
 ClearReport;
 ActivateClient;
 SetupSRL;
 DeclarePlayers;
 SetSettings;
 repeat
    CheckForRandoms(True);
    ChopTree;
    DropLogs;
    Report;
 until(false)
end. 

and my chicken killer

 ////////////////////////////////////////////////////////////////////////////////
//                            Chicken killer by Crackkilzu                    //
////////////////////////////////////////////////////////////////////////////////
//  >pwn d4 chickens                                                          //
//  > pick up those wonderful feathers                                        //
//  > Bury bones                                                              //
//                                                                            //
//  Instructions:                                                             //
//    1. Drag crosshairs to client                                            //
//    2. Pick the color of the chicken                                        //
//    3. Put in player info                                                   //
////////////////////////////////////////////////////////////////////////////////
 
program ChickenFighter;
 
// SRL Includes
{.include SRL/SRL.scar}
 
const
  ChickenColor = 6326692;         // Chicken Color
  FeatherColor = 9737378;         // Color of Feather
  BoneColor = 12435142;           // Bone color make sure not to where anything white
  KillsPerPlayer = 75;            // How many chickens to pwn
  WaitTime = 3500;                // How long before attacking next chicken
 
var
  BoneDTM : Integer;
 
 
// Set up the players
procedure DeclarePlayers;
begin
  NumberOfPlayers(2);
  CurrentPlayer := 0;
 
  Players[0].Name := 'zezima'; // name of account being used
  Players[0].Pass := 'macro123'; // password, don't worry no hacking here ;)
  Players[0].Nick := 'zim'; // 3-4 letters from the account name
  Players[0].Active := True; // use this player?
 
  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;
end;
 
/////////////////////////////////////////////////////////////////
// DON'T EDIT AFTER THIS POINT UNLESS YOU KNOW WHAT YOU'RE DOING/
/////////////////////////////////////////////////////////////////
//Find Feathers
 
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;
 
///////////////////////////////////////////////////////////////////////////
 
procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
end;
 
procedure FindFeathers;
var
  x, y : Integer;
begin
  Flag;
  repeat
    if not FindObj(x, y, 'eather', FeatherColor, 0) then Exit;
    Mouse(x, y, 0, 0, True);
    Flag;
  until (False);
end;
 
// Find bones and bury
procedure FindBones;
var
  x, y : Integer;
  FoundAllBones : Boolean;
begin
  Flag;
  FoundAllBones := False;
  repeat
    if not FindObj(x, y, 'ones', BoneColor, 0) then FoundAllBones := True;
    if not FoundAllBones then Mouse(x, y, 0, 0, True);
    Flag;
  until (FoundAllBones);
  repeat
    if not FindDTM(BoneDTM, x, y, 540, 180, 750, 480) then Exit;
    Mouse(x, y, 3, 3, True);
    Wait(2000);
  until (False);
end;
 
// Da chicken killa!!!!
procedure KillChicken;
var
  x, y : Integer;
begin
  repeat
    Wait(100);
  until FindObj(x, y, 'hicken', ChickenColor, 0);
  Mouse(x, y, 1, 1, True);
  Wait(WaitTime);
end;
 
// Main program
begin
  SetupSRL;
  DeclarePlayers;
  if LoggedIn then Logout;
  LoginPlayer;
  BoneDTM := DTMFromString('78DA63CC616260E0606440067B366F626005D' +
       '23051C62CA01A465435CB66CD4455930E54C389AA664E5F1FAA9A' +
       '12A01A2E54352BE7CD4555538EE91E137D7D5435A94035CCA86A4' +
       '0B2286AF2806AD850D594E764A3AAC904AA11C46DCE7F20000065' +
       '0B1167');
  // Main Loop
  repeat
    KillChicken;
    FindFeathers;
    FindBones;
    Inc(Players[CurrentPlayer].Banked);
    if Players[CurrentPlayer].Banked mod KillsPerPlayer = 0 then
    begin
      NextPlayer(True);
    end;
    if not LoggedIn then NextPlayer(False);
  until False;
end.
 

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

Sorry, no from me - the scripts are too simple =/

From: n3ss3s
Sorry, no from me - the scripts are too simple =/

I've shown the basics here. I read every post in that thread by Boreas. It said "Yea powerminer with multiplayer, antirandoms, standards, and original functions (like a rock finding procedure that isn't just findobj) will do it."

Did I miss something some where? Should I make a script that can walk from lumb. to the wild and pk then repeat?:rolleyes:

You already have a thread going?!
12-04-2007

You cannot reapply until
1-04-2008
Please respect and read the apllication rules.

It also seems that this may be your thrid application… not a smart move.

Tell ya what, go re-read the rules, re-look over your script, and make it ALOT better. Make a script that you KNOW will get in. Spend an entire month on this and then reapply like you should.


————————————————————————————-

edit: To answer your question. there are a couple of diferent realms you need to pass to becomae a memmebr. The first one is the requiremmennts. We need to know thaat you know the basics, and ALL of the basics, so we FORCE you to write a script (or more than one) that shows that you know how to do them all, (player switiching is def one of them)

Then, you need to make sure that your script shows some individualitiyl, a little bit of thought, and some skill. It is very sinmple to read tutorials and just copy and paste the code to meet the requirments, show us that you really know what you are doing, make modifications to the stuff that must be copeid, and try to make a few things on your own.

and then you need to have a little bit of rep so we know you r not just a leecher trying to steal some scripts from people who worked hard. So make sure you have a couple of good helpfull posts under your belt.

From: LordGregGreg
You already have a thread going?!
12-04-2007

You cannot reapply until
1-04-2008
Please respect and read the apllication rules.

It also seems that this may be your thrid application… not a smart move.

Tell ya what, go re-read the rules, re-look over your script, and make it ALOT better. Make a script that you KNOW will get in. Spend an entire month on this and then reapply like you should.

Where the hell do you find this?

I read a whole thread on what to do and what not do and here you come telling me to read and respect rule. Wtf ever bro. Maybe I'm just blind or these rules (that should really be in that sticky) aren't where people can see them.

And this is my second app.

Get some rep? I have 83 post for gods sake. That thread was talking about having 10.

There should really be some updates to that sticky so people actually know the exact rules instead of just having to guess what goes in here.

Easy bro. I'm not attacking you here, I am just trying to help you out.

Now look, I am a bit of an older member here, and there has always been the one month rule. If that has changed, perhaps I missed the memo, but I don't think it has. (Still no reason to be swearing to both god and hell in one post imho, but whatever)

Now, I am NOT saying that you don't have enough reputation, in fact, i havnt even looked into it, what I was doing was writing out the criteraia that most people here look for in an application.

Over all, it just comes down to the vote, whethter we think you hvae what it takes to be a member or not, so i am just giving you some ideas on stuff to work on. They may not all be written rules, but they basically are, I will never vote yes on an app that I don't think really knows what he's doing. Nor will I vote yes on one without the requirements.

Anyhows, if im wrong abouot the month, im sorry, but i hold my statements on everything els,e best of luck to you.

Where do you find this stuff? That's all I'm asking here. I even went back and reread the sticky again.

I don't even see where you get the one month thing at.

Eh just delete this then. No pointing in wasting peoples time.

From: crackkilzu
Where do you find this stuff? That's all I'm asking here. I even went back and reread the sticky again.

nah, decent question. I can't seem to find it… I don't know if it got changed or what is going on…

So who knows, Even if it does exist, i supose it is legit for you to not have to heed it because it was never in you face like somegthing like this should be.

So good luck, and go for it.

Are you seriously arguing with somebody that cares to make that long posts for your own good?

Greg is absolutely right, and you propably are having the wrong picture about SRL Membership,

a) You would now propably get a lot of nos because of

—- a) You read propably the oldest thread about the subject, instead of also reading the stickies in the FAQ.

—–b) Some people maybe don't like your attitude, and about "where did you find this stuff" - use the search button

b) Its not about that when you just and just meet the requirements you come here, its not like you pay for the stuff with your 'skills', people should consider SRL Membership more of a good chance to meet more people and make friends and have a better environment to learn.

Sorry, but the result of your poll can be even seen from your conversation with greg.

You could've instead go read couple stickies and post

"haha, oh I missed a sticky, sorry, you can close this :p "…

Eh just delete this then. No pointing in wasting peoples time.

Indeed.



AHA!!

My post in your last app:

You should've test if it compiles, since when making the application it says above the script box that it should compile.

Also, you have about no failsafes.

You should go read the sticky in the FAQ about SRL Membership, and then more tuts and things about it.

Don't worry, thats a good start and next time you will propably get in if you study hard.

Remember to wait atleast one month, and make sure your script is ready, we don't like that somebody says "This isn't kinda ready" because you should apply when you are ready.

Thank you and good luck next time.

You are supposed to read the comments.

easy guys =S he made a mistake =p lol but there are rules for applying again
=0 sorry

From: n3ss3s
Are you seriously arguing with somebody that cares to make that long posts for your own good?

Greg is absolutely right, and you propably are having the wrong picture about SRL Membership,

a) You would now propably get a lot of nos because of

—- a) You read propably the oldest thread about the subject, instead of also reading the stickies in the FAQ.

—–b) Some people maybe don't like your attitude, and about "where did you find this stuff" - use the search button

b) Its not about that when you just and just meet the requirements you come here, its not like you pay for the stuff with your 'skills', people should consider SRL Membership more of a good chance to meet more people and make friends and have a better environment to learn.

Sorry, but the result of your poll can be even seen from your conversation with greg.

You could've instead go read couple stickies and post

"haha, oh I missed a sticky, sorry, you can close this :p "…

Indeed.



AHA!!

My post in your last app:



You are supposed to read the comments.

Do you know what you're talking about even? Read what other stickies? There's one. I read the ONE sticky. But it's cool. Maybe in the world of nesses every forum is filled with "SRL member application rules". Unforuntaly in my world there is only one sticky and apparently it doesn't cover every thing. I tried and to be honest if I had to go by your post alone I would think that this community was filled with jerks.

Me and Greg had ours words but and we realized that both of our arguments had errors. Then again I'm sure you all knowing greatness allowed you to know this so props for coming in on something you were not part of. :claps:

I understand I was being a jerk but you went above and beyond to try and make me feel ridiculous and stupid.

WHAT THE FUCK?!

FAQ!!! FREQUENTLY ASKED QUESTIONS!!!!
http://www.srl-forums.com/forum/srl-faq-f103.html
http://www.srl-forums.com/forum/srl-faq-f103.html
http://www.srl-forums.com/forum/srl-faq-f103.html
http://www.srl-forums.com/forum/srl-faq-f103.html
http://www.srl-forums.com/forum/srl-faq-f103.html
http://www.srl-forums.com/forum/srl-faq-f103.html

You just made yourself feel rediculous and stupid.


Maybe I'll give you a link to the thread so you find:
http://www.villavu.com/forum/showthread.php?t=19941

read the title?

"SRL Membership - READ before applying to members!"


Have a feeling that I should go and smash baybees ffs…

From: p1nky
easy guys =S he made a mistake =p lol but there are rules for applying again
=0 sorry

Thank you p1nky. I wasn't aware of this one month rule. I thought nesses 1 month was a suggested time seeing as I didn't find it any where else and nothing stopped me from posting another thread in here.

I apologize for this and am glad to see not every one is so quick to jump on you.

From: n3ss3s
WHAT THE FUCK?!

FAQ!!! FREQUENTLY ASKED QUESTIONS!!!!
http://www.srl-forums.com/forum/srl-faq-f103.html
http://www.srl-forums.com/forum/srl-faq-f103.html
http://www.srl-forums.com/forum/srl-faq-f103.html
http://www.srl-forums.com/forum/srl-faq-f103.html
http://www.srl-forums.com/forum/srl-faq-f103.html
http://www.srl-forums.com/forum/srl-faq-f103.html

You just made yourself feel rediculous and stupid.

l

Not one thing talking about member ship in the title. With this logic I should read every thread on here just in case it say something about applying.

Yet in tut island I read the sticky specifically for applying and you come and flame me for not finding some hidden thread.


I don't know what cause you to just bluntly attack me but I tried to do what I thought was the right procedure.


Boreas made the one I read and would go by his word before I would some random member's.

enough with the flaming, we're here to judge you not flame, It's a no from me, way too simple srry.

now ontopic

Look Below!!



Also, after reading those and trying to cut your wrists with a spoon, go HERE

lol crack respect n3ss hes one of the old nice respected member =) and great scripter lol

Thanks p1nky…

Crackkilzu, I first was about to post that maybe there is a bug that prevents you from seeing the other threads, but I don't think so, there are lot threads by Junior Members.

Also, those two you mentioned -

Sub-Forums : SRL FAQ

They aren't stickies ffs…

Sticky topic's name looks like this " Sticky: SRL MemberShip - READ before applying to members! "

From: p1nky
lol crack respect n3ss hes one of the old nice respected member =) and great scripter lol

Respect some guy who jumps me on line for no apparent reason? Just cause he can cheat on some kids game doesn't mean I owe him anything after flaming me for no reason.

Actually I didn't start the flaming, I said "AHA!!!" in big letters and posted a quote.

I understand I was being a jerk but you went above and beyond to try and make me feel ridiculous and stupid.

Nice edit there btw, if you would've say that instead of the quote above, this situation wouldn't exist, because then I would've maybe considered earlier that there is some kind of bug, and ask you post a screen shot.

So,

Do you know what you're talking about even? Read what other stickies? There's one. I read the ONE sticky. But it's cool. Maybe in the world of nesses every forum is filled with "SRL member application rules". Unforuntaly in my world there is only one sticky and apparently it doesn't cover every thing. I tried and to be honest if I had to go by your post alone I would think that this community was filled with jerks.

Who jumped on who?

Maybe I had a reason to jump on you after that, still would have.

I seriously hope this gets closed soon…

Now, if you didn't throw shit at me after this post, I maybe could apologise you and we could both wait until someone closes this.

If we get into some peace agreement, I am willing to delete my posts here, and if I'd do so, I'd expect you to do so too.

Closed. 1 week ban for crackk

Closed.
Wizzy forgot to close :p