SRL Archive - Archive

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

What is the meaning to life?


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



Programming Knowledge
Pascal

Other Communitys
None

How Long have You Played Runescape
4 years

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

I joined this about 5 weeks ago and I dont think I am a leecher. I post a lot and sometimes post proggys. I dont usually put out the scripts I make so you wont see many from me but I will. I like scripting because it turnes my boring old life into a nice one!

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

Stand at any bank where the bankers are south of you, ie the banks in Falador. Have a knife in your inventory and the logs in the first slot in your bank.

program Fletcher;
procedure fletch;
begin
   MoveMouse(581,228)
wait(200)
   ClickMouse(581,228,True)
wait(200)
   MoveMouse(625,223)
wait(200)
   ClickMouse(625,223,True)
wait(200)
   MoveMouse(250,417)
wait(1500)
   ClickMouse(250,417,False)
wait(100)
   MoveMouse(246,463)
wait(500)
   ClickMouse(246,463,True)
wait(19000)
   MoveMouse(581,228)
wait(200)
   ClickMouse(581,228,True)
wait(200)
   MoveMouse(703,443)
wait(200)
   ClickMouse(703,443,True)
wait(200)
   MoveMouse(250,417)
wait(1500)
   ClickMouse(250,417,False)
wait(100)
   MoveMouse(246,463)
wait(500)
   ClickMouse(246,463,True)
wait(19000)
   MoveMouse(581,228)
wait(200)
   ClickMouse(581,228,True)
wait(200)
   MoveMouse(703,443)
wait(200)
   ClickMouse(703,443,True)
wait(200)
   MoveMouse(250,417)
wait(1500)
   ClickMouse(250,417,False)
wait(100)
   MoveMouse(246,463)
wait(500)
   ClickMouse(246,463,True)
wait(17000)
   MoveMouse(265,213)
wait(500)
   ClickMouse(265,213,False)
wait(500)
   MoveMouse(241,251)
wait(500)
   ClickMouse(241,251,True)
wait(1000)
   MoveMouse(626,225)
Wait(500)
   ClickMouse(626,225,False)
Wait(500)
   MoveMouse(596,296)
Wait(100)
   ClickMouse(596,296,True)
Wait(500)
   MoveMouse(93,82)
Wait(500)
   ClickMouse(93,82,False)
Wait(500)
   MoveMouse(79,152)
Wait(500)
   ClickMouse(79,152,True)
Wait(500)
   MoveMouse(483,41)
Wait(500)
   ClickMouse(483,41,True)
Wait(500)
end;
begin
  repeat
  fletch;
  Until(false)
end.

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

No not even close… That script screams ban material.

You don't even declare SRL or use its procedure/functions.

Read some tutorials, learn how to use SRL and try making a good script.
Remember you can't re-apply for a month now.

no, corrds = bann , to simple.

no sir!

HUGE BAN! dude read tuts =)

No from me too. Didn't even use SRL, and cords will get you banned. Read a lot of tuts.

hey bud :D it is great to see you working on scripts and getting one to compile :D this is a very big step;
[H]
Now, here is some constructive criticism[/H]

[*]First off, this is a SRL forum, srl is an include that you can and should use to make your scripts work more relable, and allows you to make very powerfull scripts with a minimal amount of testing and coding. You can say stuff like "getRoadColor" to automaticaly run a large algorithm of color comparisons that will in turn return the exact color of the raod at that exact time.
[*]We want our scripts to run… allot, and never get us in any sort of ban situation. Jagex has many ways to detect script like scar, and therefore, randomness is a must. Cordinant clicking, evne with randomness added to it, is still looked down on, as it can be detected. It is more acceptable to search for a bitmap, or DDTm, and then click on where you found it, (with randomness). This will make you script much "smarter" and much more relable as well. SRL has methods already made for you to do this very easily.
[*]Please, next time, read the stickies about members apllications, yo would see that there are many strict requirments that yor script must meet, such as being able to suport multiple players, log in, solve randoms, etc. All which can be easily implimented with SRL libraries.
[*]Read some tutorials to get started using srl, it's just like pascal, except that you get to use other peoples awesome methods, and save you time
[*]Place semi colons at the end of all of your statements.

good luck!

I dont usually put out the scripts I make so you wont see many from me but I will.

Haha, I love when they try to make us believe that.

YES!



















nah…
Sorry mate, it's an autoclicker, look from others scripts…there are lot's of great tuts…

/close please…

I dont usually put out the scripts I make so you wont see many from me but I will.

Thats not a joke! WYP?

From: rwj4real
Thats not a joke! WYP?

Don't worry bro, he means no harm.

Also, just a little side note to everyone else…

We need to all work on being much more encoraging and constructive to our applicants.

Sure, it is obvious that this one didn't quite read all of the requirments we have listed, but it is no reason to make fun of, or insult him. Please, have some maturity here.

As long as he didn't steal, copy, be rude, or aragant, please show him the same respect he shows you.

Sure, it is obvious that this one didn't quite read all of the requirments we have listed, but it is no reason to make fun of, or insult him. Please, have some maturity here.

As long as he didn't steal, copy, be rude, or aragant, please show him the same respect he shows you.

Thank you.

Yes, thanks greg, I'll continue going into the script :)

First of all, you use the clickmouse procedure.

Gets the job done, and since you are pretty new, it may sound better to get the mouse right there and fast, but after a while you like to consider more the safety of your accounts.

Same thing with movemouse.

So, don't do anything about yet, because I will tell you what to do, since in most cases the next solution would be MoveMouseSmooth, so, go download and install SRL, there is a good tutorial by Dark_Sniper in the How To Auto section of tutorial island.

After you have done that, do the following in the top of your script, right after the "Program ProgramName;"

 {.include SRL/SRL.scar} 

and right after the begin in your main loop, have

 SetupSRL; 

Now, you have almost the full power of SRL in your hands.

If you want to use a skill include from SRL, for example mining, you need to do

{.include SRL/SRL/Skill/Woodcutting.scar}

after doing the

{.include SRL/SRL.scar}

:)

Though if using a skill include, you need to find out if it does need something like for example

SetupMining;

Or something similar, because procedures like those, if the include has, declares BitMaps and DTMs which are important for some of the functions to work.

Then, another thing to avoid a quick ban - Randomization.

In the waits of yours, have it instead like

 Wait(100 + Random(30)) 

That would wait one hundred milliseconds and random 0-29 added to it.



I have to agree with the others, that you did not read the requirements.

However, read the tutorials and learn all the things talked about in the stickies.

The reason I will not tell you the requirements here, is that your script shows that you didn't read them anywhere, as I mentioned, so, I will leave the effort of searching the requirements to you.

Hint: FAQ
Another: Search button


But for now, you are in the start of your scripter road, don't copy other peoples scripts or functions without permissions, help eachother and follow the rules! :)

Cya

o my god he's a better scripter then me!

yes!

=.='

If you say yes than actually vote plz

and i also suggest testing your scripts before submitting them for an app ;) your script will fletch your full load of
logs and then repeat, trying to cut the unstrung bows. and it'll keep on doing that forever since you put repeat until(false) in there. this is also something we always avoid, always have like repeat until (loadsDone)or(TookTooLong).
look some more into loops, because they'll save you much trouble.

procedure Fletch
var x:integer;
begin
  for x := 2 to 28 do
  begin
    wait(300+Random(500));
    MouseItem(1, True);
    wait(300+Random(500));
    MouseItem(x, True);
  end;
end;

This little peace of code will click the knife and then the log until the last log and then it'll stop. i'm not sure if it'll fletch or not because im not a memb so i dunno if u have to click something else.

~RM

I was thinking of would I make the loop for you rwj, but didn't, RM made one, thanks, I will teach you how to make it do the same thing as your current version does.

rwj, try learning from this:

program New;
Var
  TPA: TPointArray;
  I: Integer;
begin
  SetArrayLength(TPA, 4 {the length you want here. Now it'd be 0..19 });
  TPA[0] := IntToPoint(581, 228);
  TPA[1] := IntToPoint(625, 223);
  TPA[2] := IntToPoint(250, 417);
  TPA[3] := IntToPoint(246, 463);
  // Do all the points like this
  For I := 0 To High(TPA) Do // Will go through the TPA from 0 to its highest slot.
  Begin
    {Case I Of
       0, 1, 2: Wait(200 + Random(80));
       3, 4, 5: Wait(300 + Random(20));
       8, 7, 9: Wait(20000 + Random(1000));
     End;  Like this, you can decide when to wait which amount of time! =)
    }
    Mouse(TPA[i].x, TPA[i].y, 3, 3, False);
    ChooseOption('TheTextYouWantToClickHere');
  End;
end.

From: n3ss3s
I was thinking of would I make the loop for you rwj, but didn't, RM made one, thanks, I will teach you how to make it do the same thing as your current version does.

rwj, try learning from this:

program New;
Var
  TPA: TPointArray;
  I: Integer;
begin
  SetArrayLength(TPA, 4 {the length you want here. Now it'd be 0..19 });
  TPA[0] := IntToPoint(581, 228);
  TPA[1] := IntToPoint(625, 223);
  TPA[2] := IntToPoint(250, 417);
  TPA[3] := IntToPoint(246, 463);
  // Do all the points like this
  For I := 0 To High(TPA) Do // Will go through the TPA from 0 to its highest slot.
  Begin
    {Case I Of
       0, 1, 2: Wait(200 + Random(80));
       3, 4, 5: Wait(300 + Random(20));
       8, 7, 9: Wait(20000 + Random(1000));
     End;  Like this, you can decide when to wait which amount of time! =)
    }
    Mouse(TPA[i].x, TPA[i].y, 3, 3, False);
    ChooseOption('TheTextYouWantToClickHere');
  End;
end.

N3s..:rolleyes: HE's new over here, don't teach him already the art of tpointarrays, just the srl basics etc :)
^^ not ment to be rude..

However, I also have to vote no, actually I'm not going to vote:)
I can't add something else, because lordgregreg and n3ss3s already gave you a lot of constructive criticism:)

Regards,

-Tsn.

From: n3ss3s

program New;
Var
  TPA: TPointArray;
  I: Integer;
begin
  SetArrayLength(TPA, 4 {the length you want here. Now it'd be 0..19 });
  TPA[0] := IntToPoint(581, 228);
  TPA[1] := IntToPoint(625, 223);
  TPA[2] := IntToPoint(250, 417);
  TPA[3] := IntToPoint(246, 463);
  // Do all the points like this
  For I := 0 To High(TPA) Do // Will go through the TPA from 0 to its highest slot.
  Begin
    {Case I Of
       0, 1, 2: Wait(200 + Random(80));
       3, 4, 5: Wait(300 + Random(20));
       8, 7, 9: Wait(20000 + Random(1000));
     End;  Like this, you can decide when to wait which amount of time! =)
    }
    Mouse(TPA[i].x, TPA[i].y, 3, 3, False);
    ChooseOption('TheTextYouWantToClickHere');
  End;
end.

you had to go hardcore didn't you? :p

[offtopic] does High() only work for TpointArrays or will it also work for other arrays?[/offtopic]

~RM

High works for all arrays, it gets the array length and subtracts 1.

Just wondering, what does 'WYP' stand for?

Urban dictionary says "Wee Your Pants" and google's first suggestion is

West Yorkshire Playhouse
West Yorkshire Playhouse: Leeds Theatre at its best.

What's your problem, I assume, even though I've never heard it before.

No. srry budd

closed?

0 Yes
12 No
Poll Expired .
TONS of feedback given.
Good luck on making another/ fixing up this script.
Keep working at it, take all the feedback, and you'll get in next time.