Results 1 to 5 of 5

Thread: possible way to make mouse do figure 8?

  1. #1
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default possible way to make mouse do figure 8?

    umm i have an idea.. here. excuse me if i seem noobish but here it is.. u know how in the tut section on radial walk fawaki posts a script for ms paint to draw those examples? well what if u used that same concept but had the mouse go from one radius to another and back so it moved in a figure 8 shape? that could go ways for curved movements like real mouse movements.. u know? much less detectable idk if its even possible just got the idea sounded like a good 1 lol u know?
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


  2. #2
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    You mean like 2 circles next to each other?

  3. #3
    Join Date
    Aug 2006
    Location
    London
    Posts
    2,021
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    i made something very similar to this, except it only draws one circle, not a figure of eight, it uses the Radial Walk formula and changes the radius and other stuff

    but non of the other devs thought it was any use, apparantly IdleTime and SleepAndMoveMouse are enough antibans

    heres the script
    SCAR Code:
    program New;

    //lines with {} before them, mean that they will be removed, they are only for seeing how it works on the debug image
    //to see it with the mouse, comment out all {} lines and uncomment //MoveMouse(

    var
     mousespeed:integer;

    procedure RadialMouse(Time,MaxRadius:integer);
    var
     Start,i,Radius,x1,y1,MinRadius:integer;GettingBigger:boolean;
     {}debug:TCanvas;
    begin
    Start:=GetSystemTime;
    Radius:= 1;
    MinRadius:=MaxRadius-Round(MaxRadius/2);
    GettingBigger:=true;
    GetMousePos(x1,y1);

    {}displaydebugimgwindow(700,701);
    {}displaydebugimgwindow(700,700);
    {}x1:= 350;
    {}y1:= 350;
    {}debug:=GetDebugCanvas;

    repeat
    //MoveMouse( Round( Radius*Sin(i*pi/180))+x1+5, Round(-Radius*Cos(i*pi/180))+y1+5);
    {}debug.pixels[Round( Radius*Sin(i*pi/180))+x1+5, Round(-Radius*Cos(i*pi/180))+y1+5]:= 255;

    if(GettingBigger)then
     Radius:=Radius+Random(2)+1
    else
     Radius:=Radius-random(2)-1;

    if(Radius>MaxRadius)then
     begin
     GettingBigger:=false;
     if(random(2)=0)then
      MaxRadius:=MinRadius+Random(MaxRadius/2)+50
     else
      MaxRadius:=MinRadius+Random(MaxRadius/2)+10;
     end
     
    if(Radius<MinRadius)then
     begin
     GettingBigger:=true;
     if(random(2)=0)then
      MinRadius:=MaxRadius-Random(MaxRadius/2)-30
     else
      MinRadius:=MaxRadius-Random(MaxRadius/2)-2;
     end

    i:=i+1;
    Wait(((MouseSpeed*20)/(MouseSpeed+random(5)))-random(MouseSpeed/2));
    until(GetSystemTime-Start >= time);
    end;

    begin
    mousespeed:= 5;
    RadialMouse(20000,300);
    end.
    Join the Official SRL IRC channel. Learn how to Here.

  4. #4
    Join Date
    Mar 2006
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Yakman View Post
    i made something very similar to this, except it only draws one circle, not a figure of eight, it uses the Radial Walk formula and changes the radius and other stuff

    but non of the other devs thought it was any use, apparantly IdleTime and SleepAndMoveMouse are enough antibans

    heres the script
    SCAR Code:
    program New;

    //lines with {} before them, mean that they will be removed, they are only for seeing how it works on the debug image
    //to see it with the mouse, comment out all {} lines and uncomment //MoveMouse(

    var
     mousespeed:integer;

    procedure RadialMouse(Time,MaxRadius:integer);
    var
     Start,i,Radius,x1,y1,MinRadius:integer;GettingBigger:boolean;
     {}debug:TCanvas;
    begin
    Start:=GetSystemTime;
    Radius:= 1;
    MinRadius:=MaxRadius-Round(MaxRadius/2);
    GettingBigger:=true;
    GetMousePos(x1,y1);

    {}displaydebugimgwindow(700,701);
    {}displaydebugimgwindow(700,700);
    {}x1:= 350;
    {}y1:= 350;
    {}debug:=GetDebugCanvas;

    repeat
    //MoveMouse( Round( Radius*Sin(i*pi/180))+x1+5, Round(-Radius*Cos(i*pi/180))+y1+5);
    {}debug.pixels[Round( Radius*Sin(i*pi/180))+x1+5, Round(-Radius*Cos(i*pi/180))+y1+5]:= 255;

    if(GettingBigger)then
     Radius:=Radius+Random(2)+1
    else
     Radius:=Radius-random(2)-1;

    if(Radius>MaxRadius)then
     begin
     GettingBigger:=false;
     if(random(2)=0)then
      MaxRadius:=MinRadius+Random(MaxRadius/2)+50
     else
      MaxRadius:=MinRadius+Random(MaxRadius/2)+10;
     end
     
    if(Radius<MinRadius)then
     begin
     GettingBigger:=true;
     if(random(2)=0)then
      MinRadius:=MaxRadius-Random(MaxRadius/2)-30
     else
      MinRadius:=MaxRadius-Random(MaxRadius/2)-2;
     end

    i:=i+1;
    Wait(((MouseSpeed*20)/(MouseSpeed+random(5)))-random(MouseSpeed/2));
    until(GetSystemTime-Start >= time);
    end;

    begin
    mousespeed:= 5;
    RadialMouse(20000,300);
    end.
    nice work Yakman ill try an incorporate this somewhere, VGJ

  5. #5
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ya looks nice. is is possible to make half circle like the shape "n" then add the shape "u" next to it so it makes like a funky "s" shape u know?
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. How to make the mouse move.
    By BazzBarrett in forum Delphi/FPC Help and Tutorials
    Replies: 1
    Last Post: 12-03-2008, 10:01 AM
  2. How do i make it bend mouse
    By Camaro' in forum OSR Help
    Replies: 6
    Last Post: 08-17-2007, 11:38 PM

Posting Permissions

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