SRL Archive - RS3 Outdated / Broken Scripts

//Mouse recorder by CheetahNub

//Copies the mouse coords and your randomness settings into MMouse procedures which it will print to the debug box...
//If you didn´t get it, just hit run and see what happens to the debug box.

//This can be used for lots of things, such as antiban.

//If this helps you with your script, crediting and rep+ is always appreciated

Made this because I was bored

Dunno if this is REALLY useful but… who cares :)

Wow nice, really fun to mess around with. Get it to recored clicks too?

LOL thats so cool. Could you add in
'if false then writeln('Mouse('+inttostr(x)+','+inttostr(y) + ',' + inttostr(randomnessx) + ',' +inttostr(randomness(y) + ',' + 'false');' and something similar for Mouse? I guess you would have to find something to figure out that it was indeed false or true though…Hmmm.

Well I could add an IsFKeyDown(12) or something to it so it would interpret it as a click…. :P

Not now tho, I just finished updating WOW :D

just in intrest what is w0w

WoW the abbreviation for the game World of Warcraft.

Thats my guess. Cause I play it too. :D

Edited it a bit, now you don't have to copy paste from debug box…

program MouseRecorder;
{.include SRL/SRL.scar}

Const
Randomnessx = 2;
Randomnessy = 2;
Smoothness = 200;         //LOWER = SMOOTHER MOVEMENT       HIGHER = LESS LAG
RecordLenght = 50;        //HOW MANY COORDS TO RECORD?

var x, y, Recorded, i :integer;
var Position : TpointArray;


procedure MakecoordsArray;
begin
  SetArraylength(Position, Recordlenght);
  for I:=0 to (RecordLenght)-1 do
  begin
    Status('Recording');
    Wait(Smoothness);
    GetMousePos(x,y)
    Position[i].x := X;
    Position[i].y := Y;
  end;
end;

procedure MoveTheDamnMouse;
begin
  Status('Moving mouse...');
  for I:=0 to (RecordLenght)-1 do
  Mmouse(Position[i].x,Position[i].y,Randomnessx, Randomnessy);
end;

begin
  ClearDebug;
  SetupSRL;
  Writeln('Press F4 to record');
  While not isFKeydown(4) do wait(100);
  MakecoordsArray;
  Writeln('Recording done!');
  Writeln('Press F5 to move your mouse...');
  While not isFkeyDown(5) do wait(100);
  MoveTheDamnMouse;
  Writeln('Done');
end.

Edit:
This one doesn't do wierd movements

program MouseRecorder;
{.include SRL/SRL.scar}

Const
Randomnessx = 2;
Randomnessy = 2;
Smoothness = 3;         //LOWER = SMOOTHER MOVEMENT HIGHER = LESS LAG//
                        //If you use SRLMouse then it should be over 100 else it should be 2-15
RecordLenght = 1000;        //HOW MANY COORDS TO RECORD?
UseSRLMouse  = False;

var x, y, Recorded, i :integer;
var Position : TpointArray;


procedure MakecoordsArray;
begin
  SetArraylength(Position, Recordlenght);
  for I:=0 to (RecordLenght)-1 do
  begin
    Status('Recording');
    Wait(Smoothness);
    GetMousePos(x,y)
    Position[i].x := X;
    Position[i].y := Y;
  end;
end;

procedure MoveTheDamnMouse;
begin
  Status('Moving mouse...');
  for I:=0 to (RecordLenght)-1 do
  if UseSRLMouse then Mmouse(Position[i].x,Position[i].y,Randomnessx, Randomnessy) else
  begin
    wait(Smoothness);
    MoveMouse(Position[i].x+random(Randomnessx),Position[i].y+random(Randomnessy));
  end;
end;

begin
  ClearDebug;
  SetupSRL;
  Writeln('Press F4 to record');
  While not isFKeydown(4) do wait(100);
  MakecoordsArray;
  Writeln('Recording done!');
  Writeln('Press F5 to move your mouse...');
  While not isFkeyDown(5) do wait(100);
  MoveTheDamnMouse;
  Writeln('Done');
end.

Negaal, you just turned my version into a pile of dung xD

I should've spent more time doing that in the first place…. but as you can read in the first post, I wrote that quickly just because I was bored and I needed something to do ;)

From: CheetahNub
Negaal, you just turned my version into a pile of dung xD

I should've spent more time doing that in the first place…. but as you can read in the first post, I wrote that quickly just because I was bored and I needed something to do ;)

No need to thank me:)

Duh, You think I had fun?
I had booooring too…

hey i made an edit to!

check this out:

(i guess i was bored to)

//Mouse recorder by CheetahNub, Modded by MasterKill

//Copies the mouse coords and your randomness settings into MMouse procedures which it will print to the debug box...
//If you didn´t get it, just hit run and see what happens to the debug box.

//This can be used for lots of things, such as antiban.

//If this helps you with your script, crediting and rep+ is always appreciated

program MouseRecorder;
{.include SRL/SRL.scar}

Const
Randomness = 10;
Randomness2 = 2;
Smoothness = 200;         //LOWER = SMOOTHER MOVEMENT       HIGHER = LESS LAG
RecordLenght = 100;        //HOW MANY COORDS TO RECORD?

var
x, y :Array of Integer;
Recorded, waitz :integer;


begin
  SetupSRL;
  For Recorded := 5 DownTo 0 Do
  begin
    ClearDeBug;
    WriteLn('record starts in:');
    WriteLn('    '+ IntToStr(Recorded) +' sec.');
    Wait(1000);
  end;
  SetArrayLength(x, recordlenght);
  SetArrayLength(y, recordlenght);
  ClearDeBug;
  WriteLn('Procedure HumanMouseZor;');
  WriteLn('Begin');
  Recorded := 0;
  repeat
    GetMousePos(x[recorded],y[recorded]);
    If (Recorded > 0) then
    begin
      If (x[recorded] = x[recorded - 1]) and (y[recorded] = y[recorded - 1]) then
      begin
        Waitz := Waitz + Smoothness;
      end else
      begin
        If (Waitz > 0) then
        begin
          WriteLn('  Wait('+ IntToStr(Waitz) +');');
          Waitz := 0;
        end;
        Writeln('  MMouse('+IntToStr(x[recorded])+'+random('+IntToStr(Randomness)+'), '+IntToStr(y[recorded])+'+random('+IntToStr(Randomness)+'), '+IntToStr(Randomness2)+', '+IntToStr(Randomness2)+');');
      end;
    end else Writeln('  MMouse('+IntToStr(x[recorded])+'+random('+IntToStr(Randomness)+'), '+IntToStr(y[recorded])+'+random('+IntToStr(Randomness)+'), '+IntToStr(Randomness2)+', '+IntToStr(Randomness2)+');');
    wait(Smoothness)
    Recorded := Recorded + 1;
  until(Recorded >= RecordLenght)
  WriteLn('End;');
  WriteLn('');
end.

Man very fun to play with GJ
+REP#!

what do i do to play what i recorded, i know i have to paste all i did that is on the debug box but where ?