Results 1 to 16 of 16

Thread: lardmasters boredmouse

  1. #1
    Join Date
    Sep 2006
    Location
    Scripter's Heaven
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default lardmasters boredmouse

    here is a script that will do random circles, it isnt that good, and im working on it. any feedback would be nice!

    SCAR Code:
    program coolcircles;

    var i,offsetsin,offsetcos:extended;
    tox,toy,lastx,lasty,xmove,ymove,centerx,centery,deformx,deformy:integer;
    reverse:boolean;
    begin
    reverse:=random(2)=1;
    sleep(1000);
    getmousepos(centerx,centery);
    centerx:=centerx-100;
    deformx:=100;
    deformy:=100;
    while (i<random(25)+40) and (i>-1*(random(25)+40))do begin
        if random(20)=1 then begin
           offsetsin:=random(round(Pi()*100/3))/100;
           offsetcos:=random(round(pi()*100/3))/100;
           end
        if random(12)=1 then deformx:=deformx-17+random(38);
        if random(12)=1 then deformy:=deformy-17+random(38);
        xmove:=random(3)-1;
        ymove:=random(3)-1;
           tox:=round(cos(i+offsetcos)*deformx)+xmove+centerx;
           toy:=round(sin(i+offsetcos)*deformy)+ymove+centery;
        movemouse(tox,toy);
        sleep(random(2)+1);
        if not reverse then i:=i+20/sqrt(sqr(deformx)+sqr(deformy))
        else i:=i-20/sqrt(sqr(deformx)+sqr(deformy));
        getmousepos(lastx,lasty);
        if random(20)=1 then begin
        getmousepos(lasty,lasty);
        centerx:=round(lastx-(cos(i)*deformx))+random(21)-10;
        centery:=round(lasty-(sin(i)*deformy))+random(21)-10;
        end
        end
        i:=0;
        getmousepos(centerx,centery);
        deformx:=200;
        deformy:=5;
        offsetsin:=Pi()/3;
        offsetcos:=0;
        if random(3)=1 then begin
        reverse:=random(2)=1;
        while (i<15+random(10)) and (i>-1*(15+random(10))) do begin
            if random(2)=1 then begin
               offsetcos:=random(round(pi*100/2))/100;
               offsetsin:=random(round(pi*100/2))/100;
               end
            if random(60)=1 then begin
               deformx:= 150+random(100);
               deformy:= 3+random(10);
               end
            xmove:=random(3)-1;
            ymove:=random(3)-1;
            movemouse(round(cos(i+offsetcos)*deformx+centerx+xmove),round(sin(i+offsetsin)*deformy)+centery+ymove);
            if not reverse then i:=i+0.2
            else i:=1-0.2;
            sleep(5);
            end
        end
            //pickupmouse procedures but i dont want to
            //include srl because compling is slow on my comp
    end.

    EDIT: updated, try it on a mouse event recorder (ibot) you will see its awesome humannes

    EDIT: i added a little something special at the end;<--- do you see that semicolon? im used to putting one at the end of a thought, i just did so accedentally

    UBERUPDATE!

  2. #2
    Join Date
    Oct 2006
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Roflmao!!!!!!!!!!!!!!!!!!!!!!

  3. #3
    Join Date
    Sep 2006
    Location
    Scripter's Heaven
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ?

    And check out my pascal interpreter!
    <R0b0t1> No, really, I went to a bar and picked up a transvestite.

  4. #4
    Join Date
    Oct 2006
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'll take a look

  5. #5
    Join Date
    Sep 2006
    Location
    Scripter's Heaven
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    kool

    And check out my pascal interpreter!
    <R0b0t1> No, really, I went to a bar and picked up a transvestite.

  6. #6
    Join Date
    Jun 2006
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by lardmaster View Post
    kool
    Thats a 1 word post
    keep it up bud, and youll hit the big 404
    Nah.. jking... good job... i think

  7. #7
    Join Date
    Sep 2006
    Location
    Scripter's Heaven
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok.

    jk, jk, i just wanted him to know i agnowledged his comment

    And check out my pascal interpreter!
    <R0b0t1> No, really, I went to a bar and picked up a transvestite.

  8. #8
    Join Date
    Oct 2006
    Location
    Sin City , USA
    Posts
    115
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Doesnt work for me :/

  9. #9
    Join Date
    Sep 2006
    Location
    Scripter's Heaven
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what happens?...compileing message, does nothing, or kills the mouse i.e. crazy.

    And check out my pascal interpreter!
    <R0b0t1> No, really, I went to a bar and picked up a transvestite.

  10. #10
    Join Date
    Nov 2006
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    is says it does not compile and by saying err funny end or something like that

  11. #11
    Join Date
    Sep 2006
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    I tried it and the mouse whizzed along the screen

  12. #12
    Join Date
    Oct 2006
    Posts
    888
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Compile error

    Edit: nice script, fixed:

    SCAR Code:
    program coolcircles;

    var i,offsetsin,offsetcos:extended;
    tox,toy,lastx,lasty,xmove,ymove,centerx,centery,deformx,deformy:integer;
    reverse:boolean;
    begin
    reverse:=random(2)=1;
    sleep(1000);
    getmousepos(centerx,centery);
    centerx:=centerx-100;
    deformx:=100;
    deformy:=100;
    while (i<random(25)+40) and (i>-1*(random(25)+40))do begin if random(20)=1 then begin
           offsetsin:=random(round(Pi()*100/3))/100;
           offsetcos:=random(round(pi()*100/3))/100;
           end if random(12)=1 then deformx:=deformx-17+random(38);
        if random(12)=1 then deformy:=deformy-17+random(38);
        xmove:=random(3)-1;
        ymove:=random(3)-1;
           tox:=round(cos(i+offsetcos)*deformx)+xmove+centerx;
           toy:=round(sin(i+offsetcos)*deformy)+ymove+centery;
        movemouse(tox,toy);
        sleep(random(2)+1);
        if not reverse then i:=i+20/sqrt(sqr(deformx)+sqr(deformy)) else i:=i-20/sqrt(sqr(deformx)+sqr(deformy));
        getmousepos(lastx,lasty);
        if random(20)=1 then begin
        getmousepos(lasty,lasty);
        centerx:=round(lastx-(cos(i)*deformx))+random(21)-10;
        centery:=round(lasty-(sin(i)*deformy))+random(21)-10;
        end end
        i:=0;
        getmousepos(centerx,centery);
        deformx:=200;
        deformy:=5;
        offsetsin:=Pi()/3;
        offsetcos:=0;
        if random(3)=1 then begin
        reverse:=random(2)=1;
        while (i<15+random(10)) and (i>-1*(15+random(10))) do begin if random(2)=1 then begin
               offsetcos:=random(round(pi*100/2))/100;
               offsetsin:=random(round(pi*100/2))/100;
               end if random(60)=1 then begin
               deformx:= 150+random(100);
               deformy:= 3+random(10);
               end
            xmove:=random(3)-1;
            ymove:=random(3)-1;
            movemouse(round(cos(i+offsetcos)*deformx+centerx+xmove),round(sin(i+offsetsin)*deformy)+centery+ymove);
            if not reverse then i:=i+0.2 else i:=1-0.2;
            sleep(5);
            end end //pickupmouse procedures but i dont want to //include srl because compling is slow on my comp
            end.

  13. #13
    Join Date
    Jul 2006
    Location
    NY
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I tried it, it circled way too fast and only for like 3 seconds.
    Nice script though keep updating and it would beee crazzzyyy.

  14. #14
    Join Date
    Oct 2006
    Posts
    888
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, this script is awesome. Lardmaster, can you please explain to us the theory behind it?

  15. #15
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Awsome try it with srl included .

  16. #16
    Join Date
    Sep 2006
    Location
    Scripter's Heaven
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    here is what is wrong, i use pentium -1, so i needed to put in a very small wait for it to move at a good speed for my comp, the theory is this:

    we are moving in a circle, so x can be determined by sin, and y can be determined by cos.

    sometimes when people move the mouse, the circle bulges, thus the amplitude changes.

    the bulges arent always up-down or left-right, so i made an offset for sin and cos, so it will be diagonal.

    the center of the circles also moves, and it does so by tracking where the center would be if there were no deformations, and randomly setting it to that. this way, it is not always circle shaped

    at the end, the mouse should move quickly back and forth.

    tell me any errors you get so i can fix them!

    And check out my pascal interpreter!
    <R0b0t1> No, really, I went to a bar and picked up a transvestite.

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
  •