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
Code:
//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
Code:
//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
Code:
// 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):