SRL Archive - SRL Archives

Here are some simple Idle*'s forr people to use.

procedure IdleMouse(Howlong : integer);
begin
SleepAndMoveMouse(HowLong);
end;

procedure IdleCamera(Arrow, Wait : Integer);
begin
SendArrowSilentWait(Arrow, Wait);
end;

I know there so simple but they really can make your script less detectable(good thing!).

How to use them:

program WhatEver;
{.include SRL\SRL.scar} // SRL for the cool functions :)
procedure IdleMouse(Howlong : integer); // It's a procedure or as I like to call them a tool
begin
  SleepAndMoveMouse(HowLong);
end;

procedure IdleCamera(Arrow, Wait : Integer); // ^^
begin
  SendArrowSilentWait(Arrow, Wait);
end;

procedure DoWhatEver;
begin
  if(Bla = true)then
  begin
    Spam;
    IdleMouse(Random(5000)); // How long to make the mouse move about, sleep for
    IdleCamera(Random(4)+1, Random(324)+213); // What arrow and how long to hold down for.
  end;
end;

begin
  DoWhatEver;
end.

This is really for new people making there first scripts for runescape or people that aren't good with SCAR but all helps. :)

good for the simple "folk".. but i think it would be easier if you would do something like this

procedure IdleCamera(Arrow : String; Wait : Integer);
begin
  case LowerCase(Arrow) of
    up      : SendArrowSilentWait(0, Wait);
    down : SendArrowSilentWait(1, Wait);
    left     : SendArrowSilentWait(2, Wait);
    right   : SendArrowSilentWait(3, Wait);
  end;
end;

somethin like that.. im not sure if the numbers for the arrows are right.. but for me it makes it easier just typing up instead of memorizing which number is which arrow..

procedure IdleCamera(Arrow : String; Wait : Integer);
begin
  case LowerCase(Arrow[1]) of
    'u'      : SendArrowSilentWait(0, Wait);
    'd' : SendArrowSilentWait(1, Wait);
    'l'     : SendArrowSilentWait(2, Wait);
    'r'  : SendArrowSilentWait(3, Wait);
  end;
end;

ghehe nothin…


Great job :)

From: Sdcit

procedure IdleCamera(Arrow : String; Wait : Integer);
begin
  case LowerCase(Arrow[1]) of
    'u'      : SendArrowSilentWait(0, Wait);
    'd' : SendArrowSilentWait(1, Wait);
    'l'     : SendArrowSilentWait(2, Wait);
    'r'  : SendArrowSilentWait(3, Wait);
  end;
end;

ghehe nothin…


Great job :)

ok whatever :p i like to type things out :rolleyes:

procedure IdleCamera(Wait : Integer);
var
  Arrow: integer;
begin
  Arrow:= 1 + random(3);
  case(Arrow)of
    1     : SendArrowSilentWait(0, Wait);
    2     : SendArrowSilentWait(1, Wait);
    3     : SendArrowSilentWait(2, Wait);
    4     : SendArrowSilentWait(3, Wait);
  end;
end;

Leet hax yo

lol nice pwnd..

From: Pwnd

procedure IdleCamera(Wait : Integer);
var
  Arrow: integer;
begin
  Arrow:= 1 + random(3);
  case(Arrow)of
    1     : SendArrowSilentWait(0, Wait);
    2     : SendArrowSilentWait(1, Wait);
    3     : SendArrowSilentWait(2, Wait);
    4     : SendArrowSilentWait(3, Wait);
  end;
end;

Leet hax yo

.. It's suppose to be random(4)+1 ;)

From: XxKanexX
.. It's suppose to be random(4)+1 ;)

nah he got it right..

1+0 = 1
1+1 = 2
1+2 = 3
1+3 = 4

learn simple math kane :p

From: phantombmx
nah he got it right..

1+0 = 1
1+1 = 2
1+2 = 3
1+3 = 4

learn simple math kane :p

Nah, he got it wrong:

Random(3) = 0 - 2
0 + 1 = 1
1 + 1 = 2
2 + 1 = 3

Max = 3..
Needed = 4..

Random(4) = 0 - 3
0 + 1 = 1
1 + 1 = 2
2 + 1 = 3
3 + 1 = 4

:)

Learn simpler math, Phantom.

ouch, just realized.. i was pwnd :eek: lol i forgot my little rule on the random..
[quote=phantom's rule fairy]to make a random number = n to blah, make sure it is random(blah) + n[/quote]

Wow, why is Random() so homosexual? Oh well, you got the point none the less.

Make a new one?

function RRandom(Max: integer): integer;
begin
  result:= Random(Max)+1;
end;

:p Saves like 4 seconds everytime you have to write random =O!

From: XxKanexX
Make a new one?

function RRandom(Max: integer): integer;
begin
  result:= Random(Max)+1;
end;

:p Saves like 4 seconds everytime you have to write random =O!

*Steals and goes to the New SRL Fuctions section*

From: Pwnd
*Steals and goes to the New SRL Fuctions section*

Please do ;) I'm in need of a good laugh.

From: XxKanexX
Please do ;) I'm in need of a good laugh.

Lmao, there's a bunch of little things that I want to put into SRL, but I'd be to embarassed, so I just put it into iSexSey.scar ;)

{//////////////////////////////////////////////////////////////////////
  Function RRandom(Max: integer): integer;
  A less gayer way to use Random().
  Param: Max - How high you wish the random to be.
  Author: XxKanexX
//////////////////////////////////////////////////////////////////////}
function RRandom(Max: integer): integer;
begin
  Result:= Random(Max) + 1;
end;