SRL Archive - Other Scripts

Just to prove that I'm Not a leecher I'll put all Scripts I've made here.


This is a little something I did yesterday cuz I was bored

//http://www.albinoblacksheep.com/flash/climb
//Made By: Westside Rep
//Fill Out The Setup (1 Line)

program ClimbDemo;
var Wins: integer;
const
//-----Setup-----//
HowManyTimes = 2;    //Set This To How Many Times You Want To Win
//------End------//
Procedure poop1;
begin
  MoveMouse(230,275)
  Wait(200)
  ClickMouse(230,275,true)
  Wait(1000)
end;

Procedure poop2;
begin
  MoveMouse(275,275)
  Wait(200)
  ClickMouse(275,275,true)
  Wait(1000)
end;

Procedure poop3;
begin
  MoveMouse(320,275)
  Wait(200)
  ClickMouse(320,275,true)
  Wait(1000)
end;

begin
  Wins:=0
  Status('Starting...')
  ActivateClient;
  repeat
    Wait(5000)
    MoveMouse(280,200)
    Wait(200)
    ClickMouse(280,200,true)
    Wait(500)
    poop3;
    poop2;
    poop3;
    poop1;
    poop2;
    poop2;
    poop3;
    poop1;
    Wins:=Wins+1
  until (Wins = HowManyTimes)
WriteLn('You Have Won '+ inttostr(Wins) +' Times')
WriteLn('Thank You For Using This Script')
WriteLn('See Ya Later')
end.

This is an AutoLogin I made

 //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.

This is an Autotyper some cred goes to Ron

// 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.

THats all I have right now, but I will be releasing a awesome EastVarrockYewCutter/Banker and it will be awesome.:(h):

c00l im a chicken

Ezy to make scripts…

I'm happy that you're capeable of scripting. The trick now is to get past the simple, click at this coord, wait this long, click again at this coord; and onto things like full scripts that are just click here and there. Look for bmp's dtm's find color (tolerances), and loads of other crap. Once you get the basics for scripting down, you're ability for learning more in a short period of time is amazing. Look at examples and read up on some more advanced commands SRL/SCAR has and before you know it you'd be atleast an SRL Member (atleast thats my guess, I'm currently not one yet)…