Results 1 to 12 of 12

Thread: Mouse Recorder By CheetahNub

  1. #1
    Join Date
    Aug 2007
    Location
    Finland
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Mouse Recorder By CheetahNub

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

  2. #2
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  3. #3
    Join Date
    Jun 2007
    Posts
    1,312
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.
    Active only during the Summer...

  4. #4
    Join Date
    Aug 2007
    Location
    Finland
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  5. #5
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just in intrest what is w0w

  6. #6
    Join Date
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    WoW the abbreviation for the game World of Warcraft.

    Thats my guess. Cause I play it too.
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

  7. #7
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    SCAR Code:
    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
    SCAR Code:
    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.
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  8. #8
    Join Date
    Aug 2007
    Location
    Finland
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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


  9. #9
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by CheetahNub View Post
    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...
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  10. #10
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    hey i made an edit to!

    check this out:

    (i guess i was bored to)

    SCAR Code:
    //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.

  11. #11
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Man very fun to play with GJ
    +REP#!

  12. #12
    Join Date
    Jul 2007
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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 ?
    (\_/)
    (O.o) This is Bunny. Copy Bunny into your signature
    (> <) to help him on his way to world domination.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •