SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
Someone told me about SRL along time ago, And I've used it ever since

Programming Knowledge
SCAR, And VB

Other Communitys
eohax.co.nr; Moparisthebest.com; Srl-Forums.com; Fagex.net.

How Long have You Played Runescape
2 Years+

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

I love SCAR, Every time I'm On My Computer, I'm Either Making A Scar Script, Or I'm on Forums. I'm Really Good At SCAR. I've Been using SCAR for like a year now. =) SCAR. <3 SCAR. </3 Scars……

SCAR…

I'm making a Script Right now. Auto Cow Hider. I'm like 90% Done With it, But the SRL Login This isn't Working (Runtime error, line 117 On Login.scar… Wtf… How do I fix that? It's pissing me off.

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

Here Is Some of the one I am Doing now… Wait Fuck nvm. Uhhhh….. I don't have very many good ones. I usually Make SCAR Scripts For another game. I've helped make an include. Here it is.

I'm going to Use Code Tags So whoever you are you can copy it. (This is for Endless Online.) Lol It's Based off SRL…

{------------------------------------------------)
         ___    _____    ____     __
        |  _|  /  _  \  | __ \    | |
        | |_   | | | |  ||__||    | |
        |  _|  | | | |  | ___/    | |
        | |_   | |_| |  | |\ \    | |__
        |___|  \_____/  |_| \_\   |____|
(------------------------------------------------}
(*Endless Online Resource Library*)
(*No part of this script may be copied or sold*)
(*copyright addyrulez 2007*)
(*and Westside Rep =P*)
{
(-------------------------------Index-------------------------------)
procedure MouseHuman(x,y:integer; left:boolean)   Made By: addyrulez
procedure Snooze(time:integer);    Made By: addyrulez
function findmonster(var x,y:integer; color:integer):boolean;  Made By: addyrulez
function findmonstertol(var x,y:integer; color:integer):boolean; Made By: addyrulez
procedure clickhuman(x,y:integer,left:boolean);  Made By: addyrulez
procedure TypeByte(k: Byte);       Made By: addyrulez
procedure SendType(Text: String);  Made By: addyrulez
procedure GameTab(Tab: integer);   Made By: Westside Rep
All The Guitar Playing Procedures  Made By: addyrulez
procedure ActivateMagic(FKey: String);   Made By: Westside Rep
}
var x,y:integer;

procedure MouseHuman(x,y:integer; left:boolean);
var mousex,mousey:integer;
begin
  mousex:= x+ random(10)-random(15);
  mousey:= y+ random(10)-random(15);
  movemousesmooth(mousex,mousey);
  wait(10+random(15));
  clickmouse(mousex,mousey,left);
end;

procedure snooze(time:integer);
begin
  time:= time+ random(time / 5);
  wait(time);
end;

function findmonster(Var x,y:integer; color:integer):boolean;
begin
  if(findcolorspiraltolerance(x,y,color,5,33,630,330,1))then;
  result:=true
end;

Function FindColorMainScreen(Var x,y :Integer; Color:Integer):Boolean;
Begin
  If(FindColor(x,y,Color,5,33,630,330))Then;
  Result:=True
  If(not(FindColor(x,y,Color,5,33,630,330)))Then;
  Result:=False
End;

function findmonstertol(Var x,y:integer; color:integer):boolean;
begin
  if(findcolorspiraltolerance(x,y,color,5,33,630,330,5))then;
  result:=true
end;

procedure clickhuman(x,y:Integer; left:boolean);
begin
  holdmouse(x,y,left);
  wait(10+random(5));
  releasemouse(x,y,left)
end;

procedure TypeByte(k: Byte);
begin
  KeyDown(k);
  wait(25 + Random(40));
  KeyUp(k);
end;

procedure SendType(Text: String);
var
i: Integer;
begin
  for i := 1 to Length(Text) do
  begin
    TypeByte(GetKeyCode(Text[i]));
    Wait(50 + Random(60));
  end;
  wait(200 + Random(500));
  TypeByte(13);
end;

procedure GameTab(Tab: integer);
Begin
  If(Tab = 1)Then
  Begin
    Wait(100)
    MoveMouseSmooth(80,360)
    Wait(100)
    ClickHuman(80,360,True)
    Wait(100)
  End;

  If(Tab = 2)Then
  Begin
    Wait(100)
    MoveMouseSmooth(80,380)
    Wait(100)
    ClickHuman(80,380,true)
    Wait(100)
  end;

  If(Tab = 3)Then
  Begin
    Wait(100)
    MoveMouseSmooth(80,400)
    Wait(100)
    ClickHuman(80,400,true)
    Wait(100)
  End;

  If(Tab = 4)Then
  Begin
    Wait(100)
    MoveMouseSmooth(80,420)
    Wait(100)
    ClickHuman(80,420,true)
    Wait(100)
  End;

  If(Tab = 5)Then
  Begin
    Wait(100)
    MoveMouseSmooth(80,440)
    Wait(100)
    ClickHuman(80,440,true)
    Wait(100)
  End;

  If(Tab = 6)Then
  Begin
    Wait(100)
    MoveMouseSmooth(80,460)
    Wait(100)
    ClickHuman(80,460,true)
    Wait(100)
  End;

  If(Tab = 7)Then
  Begin
    Wait(100)
    MoveMouseSmooth(610,380)
    Wait(100)
    ClickHuman(610,380,true)
    Wait(100)
  End;

  If(Tab = 8)Then
  Begin
    Wait(100)
    MoveMouseSmooth(610,400)
    Wait(100)
    ClickHuman(610,400,true)
    Wait(100)
  End;

  If(Tab = 9)Then
  Begin
    Wait(100)
    MoveMouseSmooth(610,420)
    Wait(100)
    ClickHuman(610,420,true)
    Wait(100)
  End;

  If(Tab = 10)Then
  Begin
    Wait(100)
    MoveMouseSmooth(610,440)
    Wait(100)
    ClickHuman(610,440,true)
    Wait(100)
  End;

  If(Tab = 11)Then
  Begin
    Wait(100)
    MoveMouseSmooth(610,460)
    Wait(100)
    ClickHuman(610,460,true)
    Wait(100)
  End;
  Wait(100)
End;

procedure c1;
begin
  clickmouse(40,225,true);
  wait(250);
end;

procedure csharp;
begin
  clickmouse(60,225,true);
  wait(300);
end;

procedure d1;
begin
  clickmouse(80,225,true);
  wait(300);
end;

procedure dsharp;
begin
  clickmouse(100,225,true);
  wait(300);
end;

procedure e1;
begin
  clickmouse(120,225,true);
  wait(300);
end;

procedure f1;
begin
  clickmouse(140,225,true);
  wait(300);
end;

procedure fsharp;
begin
  clickmouse(160,225,true);
  wait(300);
end;

procedure g1;
begin
  clickmouse(180,225,true);
  wait(300);
end;

procedure gsharp;
begin
  clickmouse(200,225,true);
  wait(300);
end;

procedure a1;
begin
  clickmouse(220,225,true);
  wait(300);
end;

procedure asharp;
begin
  clickmouse(240,225,true);
  wait(300);
end;

procedure b1;
begin
  clickmouse(260,225,true);
  wait(300);
end;

procedure c2;
begin
  clickmouse(40,245,true);
  wait(300);
end;

procedure csharp2;
begin
  clickmouse(60,245,true);
  wait(300);
end;

procedure d2;
begin
  clickmouse(80,245,true);
  wait(300);
end;

procedure dsharp2;
begin
  clickmouse(100,245,true);
  wait(300);
end;

procedure e2;
begin
  clickmouse(120,245,true);
  wait(300);
end;

procedure f2;
begin
  clickmouse(140,245,true);
  wait(300);
end;

procedure fsharp2;
begin
  clickmouse(160,245,true);
  wait(300);
end;

procedure g2;
begin
  clickmouse(180,245,true);
  wait(300);
end;

procedure gsharp2;
begin
  clickmouse(200,245,true);
  wait(300);
end;

procedure a2;
begin
  clickmouse(220,245,true);
  wait(300);
end;

procedure asharp2;
begin
  clickmouse(240,245,true);
  wait(300);
end;

procedure b2;
begin
  clickmouse(260,245,true);
  wait(300);
end;

procedure c3;
begin
  clickmouse(40,265,true);
  wait(300);
end;

procedure csharp3;
begin
  clickmouse(60,265,true);
  wait(300);
end;

procedure d3;
begin
  clickmouse(80,265,true);
  wait(300);
end;

procedure dsharp3;
begin
  clickmouse(100,265,true);
  wait(300);
end;

procedure e3;
begin
  clickmouse(120,265,true);
  wait(300);
end;

procedure f3;
begin
  clickmouse(140,265,true);
  wait(300);
end;

procedure fsharp3;
begin
  clickmouse(160,265,true);
  wait(300);
end;

procedure g3;
begin
  clickmouse(180,265,true);
  wait(300);
end;

procedure gsharp3;
begin
  clickmouse(200,265,true);
  wait(300);
end;

procedure a3;
begin
  clickmouse(220,265,true);
  wait(300);
end;

procedure asharp3;
begin
  clickmouse(240,265,true);
  wait(300);
end;

procedure b3;
begin
  clickmouse(260,265,true);
  wait(300);
end;

procedure ActivateMagic(FKey: String);
Begin

  If(FKey = 'F1')Or
    (FKey = 'f1')Then
  Begin
    Wait(100);
    GameTab(3);
    MoveMouseSmooth(225,380);
    Wait(100);
    ClickMouse(225,380,true);
    Wait(100)
    ClickMouse(225,380,true);
    Wait(50)
  End;
  
  If(FKey = 'F2')Or
    (FKey = 'f2')Then
  Begin
    Wait(100);
    GameTab(3);
    MoveMouseSmooth(270,380);
    Wait(100);
    ClickMouse(270,380,true);
    Wait(100)
    ClickMouse(270,380,true);
    Wait(50)
  End;
  
  If(FKey = 'F3')Or
    (FKey = 'f3')Then
  Begin
    Wait(100);
    GameTab(3);
    MoveMouseSmooth(315,380);
    Wait(100);
    ClickMouse(315,380,true);
    Wait(100)
    ClickMouse(315,380,true);
    Wait(50)
  End;
  
  If(FKey = 'F4')Or
    (FKey = 'f4')Then
  Begin
    Wait(100);
    GameTab(3);
    MoveMouseSmooth(355,380);
    Wait(100);
    ClickMouse(355,380,true);
    Wait(100)
    ClickMouse(355,380,true);
    Wait(50)
  End;
  
  If(FKey = 'F5')Or
    (FKey = 'f5')Then
  Begin
    Wait(100);
    GameTab(3);
    MoveMouseSmooth(400,380);
    Wait(100);
    ClickMouse(400,380,true);
    Wait(100)
    ClickMouse(400,380,true);
    Wait(50)
  End;
  
  If(FKey = 'F6')Or
    (FKey = 'f6')Then
  Begin
    Wait(100);
    GameTab(3);
    MoveMouseSmooth(445,380);
    Wait(100);
    ClickMouse(445,380,true);
    Wait(100)
    ClickMouse(445,380,true);
    Wait(50)
  End;
  
  If(FKey = 'F7')Or
    (FKey = 'f7')Then
  Begin
    Wait(100);
    GameTab(3);
    MoveMouseSmooth(500,380);
    Wait(100);
    ClickMouse(500,380,true);
    Wait(100)
    ClickMouse(500,380,true);
    Wait(50)
  End;
  
  If(FKey = 'F8')Or
    (FKey = 'f8')Then
  Begin
    Wait(100);
    GameTab(3);
    MoveMouseSmooth(540,380);
    Wait(100);
    ClickMouse(540,380,true);
    Wait(100)
    ClickMouse(540,380,true);
    Wait(50)
  End;
  Wait(100)
End;

This One Is A Really Old one.

 //Westside Rep's HARDCORE AUTO LOGIN!!!!!!!  YEAAAAAAAAHHHHHHHHHH!!!!!
 //inspired by epedemacy's AutoLogger
 //***********YOU MUST DRAG THE CROSSHAIRS OVER THE RS SCREEN**************

program AutoLoginStuff;
const
//------Setup------//
username ='enter your username here' ;
password ='enter your password here' ;
//-----------------//

begin
  activateclient;
  Status('Starting my genius script')
  wait(100)
  MoveMouseSmooth(468, 291)
  wait(100);
  ClickMouse(468, 291,true)
  wait(500);
  Status('Typing username')
  wait(200)
  SendkeysSilent(username)
  wait(500);
  SendkeysSilent(chr(13));
  wait(384)
  Status('Typing password')
  wait(200)
  SendKeysSilent(password)
  wait(500);
  MoveMouseSmooth(331, 320)
  wait(100);
  ClickMouse(331, 320,true)
  wait(600);
end.

Next Is An Old Auto Typer.

// Written by Westside Rep.
// Randomized Talk, beautified, & progress report by Ron.
// Use with SRL v.3.0+
// Press F12 to quit

Program TypeSomeStuff;
{.include srl\srl.scar}
{.include srl\srl\extended\xtext.scar}

Const
  Text1 = '';       // Place what you want to say here.
  Text2 = '';       // Place what you want to say here.
  Text3 = '';       // Place what you want to say here.
  Text4 = '';       // Place what you want to say here.
  Text5 = '';       // Place what you want to say here.
  HowManyTimes = 100000000; // How many times do you want to say all 5 things?
  WaitTime = 5;  // How long you want to wait in milliseconds.

Var
  t : Integer;
  ROrder : Array[0..4] of String;

// The way to make a random order being sent is to first setup an array
// of the Const's Text and then further down below write in...
// SendMyText(ROrder[Random(4)]);
// That will use the SendMyText function and send out the the array
// ROrder then make a Random of 4 each time.
Procedure RandomOrder;
Begin
  ROrder[0] := Text1;
  wait(waitTime*1000);
  ROrder[1] := Text2;
  wait(waitTime*1000);
  ROrder[2] := Text3;
  wait(waitTime*1000);
  ROrder[3] := Text4;
  wait(waitTime*1000);
  ROrder[4] := Text5;
  wait(waitTime*1000);
End;

Begin
  SetupSRL;
  ActivateClient;
  RandomOrder;
  Repeat;
    SendMyText(ROrder[Random(4)]);
    ClearDebug;
    t := t + 1;
    WriteLn('AutoTyped '+IntToStr(t)+' time(s).');
  Until (t = HowManyTimes)or(IsFKeyDown(12))
  WriteLn('Thank you for using AutoTalker by Westside Rep.');
End.

Another Is one that Is used for another game, to attack a monster REALLY Fast (Compared to everyone else.) It is used for eo (Endless Online)

//I Will Update This... Don't Worry, It actually Works Really Great.
//To Pick The Color Drag The EyeDropper Above, With The Green Goop In It, to the Monster.
//Make Sure The Color You Pick Is A Color That Isn't On The Map Or Any Other Monster.


program New;
var x,y:integer;
Const
//--------Setup--------//Ants are 3080352.
MonsterColor  = 34736; //Butterflies are 34736.
MonsterColor2 = 12345; //Another Monster Color. If You Need Only One, Then Use The Other Monster Color.
IceGiant = false;      //Put IceGiant As true if you want to kill ice giants... You do not have to set the color.
Fkey = 3;              //Choose The F Key Of The Magic You Want To Use.
//---------End---------//Worms are 6316192.

Procedure Attack;
Begin
  If(FindColor(x,y,MonsterColor,22,44,628,327))Or
    (FindColor(x,y,MonsterColor2,22,44,628,327))Then
  Begin
    ClickMouse(x,y,true)
    Repeat
      Wait(100);
    Until(IsFKeyDown(9))
  End;
End;

Procedure AttackIceGiant;
Begin
  If(FindColor(x,y,11499584,22,44,628,327))Then
  Begin
    y:=y+50
    ClickMouse(x,y,true)
    Repeat
      Wait(50)
    Until(IsFKeyDown(FKey))
  End;
End;

Begin
  ActivateClient;
  Wait(1000);
  If(IceGiant=True)then
  Begin
    repeat
      AttackIceGiant;
    until(false)
  End;
  If(IceGiant=false)Then
  Begin
    Repeat
      Attack;
    Until(false)
  End;
End.

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

Hm. I am going to have to say…

No.

I like the include, that is pretty cool that you guys have decided to make your own for another game.

The login script is outdated

I don't know about the Endless Online ones, so I dunno.

Try making more scripts that are for RS. And use the SRL include. Thanks!

Meh, they are all pretty simple and not much (if any) use of SRL.
Id say try making a looping runescape script such as a power miner or woodcutter.

That will really show how much you know and cow dedicated you are =).
Try again later.

From: yohojo8
Meh, they are all pretty simple and not much (if any) use of SRL.
Id say try making a looping runescape script such as a power miner or woodcutter.

That will really show how much you know and cow dedicated you are =).
Try again later.

WTF?!?!?!

That will really show how much you know and cow dedicated you are =).

What's that mean? COW? Rofl! Anyways for reasons stated above im going to have to say no.

Write a script for RS with

SRL
Multiplayer
Antirandoms
Standards (you got those good job)