Results 1 to 2 of 2

Thread: Multi-Clicking as antiban?

  1. #1
    Join Date
    Sep 2008
    Location
    Fernly, Navada
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Multi-Clicking as antiban?

    i was wondering, if a script was programmed to do things like randomly double or triple clicking an object instead of a single click, would it be a good idea for a type of antiban within the script (not having a seperate function, just being part of a script as it happens)

    note that it wont double or triple on a right click selection.

    also, haveing it purposely miss an object on a right click, and then quickly reclick on the initial object to find what it wants. I'm plannign something for a tree cutting script, and since generaly trees dont move out of place, the right clicker would work without a problem of losing its target.

    any suggestions on how to make it do this?
    Don't Steal my Crap, I Won't Steal your's.

  2. #2
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The double/triple click would be simple. Could you explain it more please? I'll edit the current mouse function for ya if I understand what you want . If I understand it correctly, you just want the current mouse function modified so that it will randomly double click, right?

    You could always use a case and have it click twenty to thirty pixels above it, then immediately go back to where you wanted it to, based on a random number/something. Wouldn't be hard.

    Here you go. Quite long actually :P:

    SCAR Code:
    Program New;
    {.include srl/srl.scar}

    Function AboveBelow(x, y : integer) : Integer;
    Var
      XX, YY : Integer;
    begin
      Xx := x;
      Yy := y;
      GetMousePos(x, y);
      if (x < Xx) and (y < yy) then
      Begin
        Result := 1;
        Exit;
      End;
      if (x < Xx) and (y > yy) then
      Begin
        Result := 2;
        Exit;
      End;
      if (x > Xx) and (y > yy) then
      Begin
        Result := 3;
        Exit;
      End Else
        Result := 4;
    End;

    {*******************************************************************************
    Procedure Misclick(Chance, P, A : Integer; Left : Boolean);
    By: Sand Storm
    Description: Should sometimes misclick by moving the mouse farther than it
    should by 20-30 pixels, then reverse back up to the real coords.
    *******************************************************************************}

    Procedure Misclick(Chance, p, a : Integer; left : boolean);
    Begin
    Case AboveBelow(p, a) Of
      1 :  Case Random(Chance) Of
                0 : Begin
                      Mouse(p + 20 + random(10), a + 20 + random(10), 3, 3, left);
                      Mmouse(p + 20 + random(10), a - (30 + random(10)) - random(10), 3, 3);
                      Mouse(p, a, 3, 3, left);
                    End;
                1..Chance : Mouse (p, a, 3, 3, left);
              end;
      2 :  Case Random(Chance) Of
                0 : Begin
                      Mouse(p + 20 + random(10), a - 20 - random(10), 3, 3, left);
                      Mmouse(p + 20 + random(10), a - (30 + random(10)) - random(10), 3, 3);
                      Mouse(p, a, 3, 3, left);
                    End;
                1..Chance : Mouse (p, a, 3, 3, left);
              end;
      3 :  Case Random(Chance) Of
                0 : Begin
                     Mouse(p - 20 - random(10), a - 20 - random(10), 3, 3, left);
                     Mmouse(p + 20 + random(10), a - (30 + random(10)) - random(10), 3, 3);
                     Mouse(p, a, 3, 3, left);
                    End;
                1..Chance : Mouse (p, a, 3, 3, left);
              end;
        4 :  Case Random(Chance) Of
                0 : Begin
                     Mouse(p - 20 - random(10), a + 20 + random(10), 3, 3, left);
                     Mmouse(p + 20 + random(10), a - (30 + random(10)) - random(10), 3, 3);
                     Mouse(p, a, 3, 3, left);
                    End;
                1..Chance : Mouse (p, a, 3, 3, left);
              end;
    End;
    end;

    Begin
    SetupSrl;
    Misclick(2, 620, 337, false);
    End.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. AntiBan Tut
    By Esteban in forum OSR Intermediate Scripting Tutorials
    Replies: 36
    Last Post: 04-05-2009, 12:57 AM
  2. Antiban help...
    By doom0791 in forum OSR Help
    Replies: 2
    Last Post: 08-05-2008, 01:14 AM
  3. Multi-User, Multi-Log, Multi-Bow Pro Fletcher
    By Foss in forum First Scripts
    Replies: 13
    Last Post: 07-16-2008, 08:54 AM
  4. srl antiban
    By Dark_Sniper in forum News and General
    Replies: 15
    Last Post: 06-07-2007, 10:27 PM
  5. Pin, less antiban or not?
    By PwNZoRNooB in forum Bot Information and Spottings
    Replies: 6
    Last Post: 04-28-2007, 05:17 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
  •