SRL Archive - Other Scripts

Records Mouse movements (The slightest), The pauses between your actions and all letter/number keys aswell as Enter, Backspace and Space. (It dosn't record Shift or anything else).

Press play, press ctrl and wait for it to start, then it records your mouse movements ect. When your done, press control and copy what's in the debug box into another scar. Select the same client and press play. :)

Don't use this on Runescape, It'll always been the same Mouse pattern/clicks. :p Unless you alter it.

cool, pretty 1337 (too bad you can't use for runescape, would be easier to auto )

[offtopic] funny avater :p [/offtopic]

Yeh i used it on Runescape and that's how i got my 7 day ban, rofl.

From: XxKanexX
Yeh i used it on Runescape and that's how i got my 7 day ban, rofl.

ahahaha. I didnt know that kane. I thought you were using a script that you made yourself not a recording one rofl

I altered it a little.. Here it is:

umm if u made it so you could make lots of them e.g. 10 or so mouse paths then log out when it run out of paths that would make it better and less likly to get ban.

From: Pyro
ahahaha. I didnt know that kane. I thought you were using a script that you made yourself not a recording one rofl

Yeh lol, I was just testing and i did it a few to many times.

Also Krazy, this isnt meant for Runescape so why edit it for random mouse movements / clicks, and why wait 3 seconds? It starts when they press control.

From: warship45
umm if u made it so you could make lots of them e.g. 10 or so mouse paths then log out when it run out of paths that would make it better and less likly to get ban.

Do you mean something like this?
[php]var x, y, a, b, e, ie: Integer;
var g, d, way: Integer;
var left, right, flag: Boolean;

const
Paths = 3; //The number of mouse paths to record.
PickRand = True; //Do you want the mouse path to be picked randomly?
BenMouse = True; //Use Benland100's mouse procedure.
MouseSpeed = 12; //The speed of the mouse.
SpeedRand = 3; //0 to have no random mouse speed.
Xrand = 3; //The accuracy of the Mouse's X position.
Yrand = 3; //The accuracy of the Mouse's Y position.
Randwait = 50; //0 to have no random wait added.

function MouseDown: integer;
begin
Result:= 0;
if (IsMouseButtonDown(true)) then Result:= 1;
if (IsMouseButtonDown(false)) then Result:= 2;
end;

procedure WaitForMouse;
begin
While (MouseDown <> 0) do
Wait(1);
end;

procedure WaitForKey(C: Char);
begin
While (IsKeyDown(C)) do
Wait(1);
end;

procedure KIsKeyDown;
var a: string;
var i: integer;
begin
a:= 'abcdefghijklmnopqrstuvwxyz1234567890 ';
for i:= 1 to Length(a) do
begin
if (IsKeyDown(Chr(13))) then
begin
Writeln('Wait(' + inttostr(GetSystemTime-g) + ')');
Writeln('SendKeys(Chr(13));');
WaitForKey(Chr(13));
g:= GetSystemTime;
Exit;
end;

if (IsKeyDown(Strget(a, i))) then
begin
if(RandWait <> 0)then
begin
Writeln('Wait(' + inttostr(GetSystemTime-g) + ' + Random(' + inttostr(RandWait) + '));');
end else
Writeln('Wait(' + inttostr(GetSystemTime-g) + ');');
Writeln('SendKeys(''' + a + ''');');
WaitForKey(StrGet(a, i));
g:= GetSystemTime;
Exit;
end;
end;
end;

function Keysclear : Boolean;
var a: string;
var i: integer;
begin
Result:= true;
a:= 'abcdefghijklmnopqrstuvwxyz1234567890 ';
for i:= 1 to Length(a) do
begin
if (IsKeyDown(Chr(13))) then
begin
Result:= false;
WaitForKey(Chr(13));
g:= GetSystemTime;
Exit;
end;

if (IsKeyDown(Strget(a, i))) then
begin
Result:= false;
WaitForKey(StrGet(a, i));
g:= GetSystemTime;
Exit;
end;
end;
end;

procedure Allkeysup;
begin
repeat
wait(100);
until(KeysClear);
end;

procedure ReportIn;
begin
GetMousePos(a, b);
if(flag)then
Writeln('MMouse(' + inttostr(a) + ', ' + inttostr(b) + ', '+ inttostr(Yrand) +', '+ inttostr(Yrand) +');');
if(RandWait <> 0)then
begin
Writeln('Wait(' + inttostr(GetSystemTime-g) + ' + Random(' + inttostr(RandWait) + '));');
end else
Writeln('Wait(' + inttostr(GetSystemTime-g) + ');');
flag:= False;
g:= GetSystemTime;
end;

procedure MouseStuff;
begin
if(not(IsMouseButtonDown(true)))then
begin
if(left)then
begin
ReportIn;
left:= False;
GetMousePos(x, y);
Writeln('ReleaseMouse(' + inttostr(x) + ', ' + inttostr(y) + ', true);');
end;
end else
begin
if(not(left))then
begin
ReportIn;
Writeln('HoldMouse(' + inttostr(a) + ', ' + inttostr(b) + ', true);');
left:= True;
end;
end;
if(not(IsMouseButtonDown(false)))then
begin
if(right)then
begin
ReportIn;
right:= False;
GetMousePos(x, y);
Writeln('ReleaseMouse(' + inttostr(x) + ', ' + inttostr(y) + ', false);');
end;
end else
begin
if(not(right))then
begin
ReportIn;
Writeln('HoldMouse(' + inttostr(a) + ', ' + inttostr(b) + ', false);');
right:= True;
end;
end;
end;

procedure waitfunctionkey;
begin
repeat
Wait(100);
until(not(isfunctionkeydown(1)))and(not(isfunctionkeydown(2)));
end;

begin
ClearDebug;
Writeln('{.Include SRL/SRL.scar}');
Writeln(' ');
Writeln('{Press Control to Start/Stop..}');
repeat
Wait(100);
until(isfunctionkeydown(1));
allkeysup;
Writeln(' ');
for ie:= 1 to Paths do
begin
waitfunctionkey;
WaitForMouse;
allkeysup;
Writeln('Procedure Route' + inttostr(ie) + ';');
Writeln('begin');
g:= GetSystemTime;
repeat
GetMousePos(x, y);
Wait(10);
GetMousePos(a, b);
mousestuff;
if(e > 100)then
KIsKeyDown;
e:= e + 1;
if((x <> a)or(y <> b))and(not(flag))then
flag:= true;
if(flag)and(x = a)and(y = b)and((GetSystemTime-g) > 1500)then
reportin;
if (Isfunctionkeydown(2)) then
Break;
until(isfunctionkeydown(1));
Writeln('end;');
Writeln(' ');
end;
if(PickRand = true)then
begin
Writeln('procedure PickPath;');
Writeln('var');
Writeln(' path : integer;');
Writeln('begin');
Writeln(' path:= 0;');
Writeln(' path:= random(' + inttostr(Paths) + ') + 1;');
Writeln(' case path of');
for ie:= 1 to Paths do
Writeln(' ' + inttostr(ie) + ': Route' + inttostr(ie) + ';');
Writeln(' end;');
Writeln('end;');
Writeln(' ');
end else
begin
Writeln('procedure PickPath;');
Writeln('var');
Writeln(' path : integer;');
Writeln('begin');
for ie:= 1 to Paths do
Writeln(' Route' + inttostr(Paths) + ';');
Writeln('end;');
Writeln(' ');
end;
Writeln('begin');
Writeln(' SetupSRL;');
if(BenMouse)then
begin
Writeln(' BenMouse:= True;');
end else
Writeln(' BenMouse:= False;');
Writeln(' MouseSpeed:= ' + inttostr(MouseSpeed) + ' + random(' + inttostr(SpeedRand) + ');');
Writeln(' PickPath;');
Writeln('end.');
end.[/php]

Kane, sorry I was only trying to help out. I'll stop now ;p
I thought it might be helpful if the user could customize it.

yes i mean like that

That is awesome kane!

Hey!~ Nice ghost mouse dude! U rock!

Could be useful with linerider for recreating stuff…