Results 1 to 7 of 7

Thread: Kickass antiban functionz0r for FR33333!!!!

  1. #1
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default Kickass antiban functionz0r for FR33333!!!!

    First one is:

    SCAR Code:
    procedure CompassMMouse(Dx, Dy, RandX, RandY, Degrees, Direction, LowHigh: Integer);
    var I, Cx, V, Cy, DirAdj, VertAdj, CMark: Integer;
      Path: TPointArray;
    begin
      GetMousePos(Cx, Cy);
      Path := MakeMouseSplinePath(Cx, Cy, Dx, Dy, 7, 50, 40);
      repeat
        for I := 0 to Degrees / 10 do
        begin
          DirAdj := Direction;
          VertAdj := LowHigh;
          case DirAdj of
            1: begin
                case VertAdj of
                  1: begin
                      KeyDown(VK_LEFT);
                      Wait(1 + random(1));
                      KeyDown(VK_UP);
                      Wait(10 + random(5));
                      KeyUp(VK_UP);
                      KeyUP(VK_LEFT);
                    end;
                  2: begin
                      KeyDown(VK_LEFT);
                      Wait(1 + random(1));
                      KeyDown(VK_DOWN);
                      Wait(10 + random(5));
                      KeyUp(VK_DOWN);
                      KeyUP(VK_LEFT);
                    end;
                end;
              end;
            2: begin
                case VertAdj of
                  1: begin
                      KeyDown(VK_RIGHT);
                      Wait(1 + random(1));
                      KeyDown(VK_UP);
                      Wait(10 + random(5));
                      KeyUp(VK_UP);
                      KeyUP(VK_RIGHT);
                    end;
                  2: begin
                      KeyDown(VK_RIGHT);
                      Wait(1 + random(1));
                      KeyDown(VK_DOWN);
                      Wait(10 + random(5));
                      KeyUp(VK_DOWN);
                      KeyUP(VK_RIGHT);
                    end;
                end;
              end;
          end;
          MarkTime(CMark);
          while (TimeFromMark(CMark) < 10) do
          begin
            MMouse(Path[V].x, Path[V].y, RandX, RandY);
            V := V + 1;
          end;
        end;
      until (V = GetArrayLength(Path));
    end;
    As amazing as it sounds, it moves the mouse same time while rotating the compass!

    Usage : CompassMMouse(1 + Random(550), 1 + Random(550), 200, 200, 180, Random(2), Random(2));

    Next one iiiz :

    SCAR Code:
    procedure ImpatiencyEruption(Ms: Integer);
    var FL: array[1..12] of Integer;
      KMark, F: Integer;
    begin
      FL[1] := 112;
      FL[2] := 113;
      FL[3] := 114;
      FL[4] := 115;
      FL[5] := 116;
      FL[6] := 117;
      FL[7] := 118;
      FL[8] := 119;
      FL[9] := 120;
      FL[1] := 121
      FL[11] := 122;
      FL[12] := 123;
      MarkTime(KMark);
      while TimeFromMark(KMark) < MS do
      begin
        try
          F := Random(12);
          KeyDown(FL[F]);
          Wait(50 + Random(20));
          KeyUp(FL[F]);
          Wait(100 + Random(25));
        except
          F := Random(10);
        end;
      end;
    end;

    Usage : ImpatiencyEruption(1 + Random(5000));
    Its good to use with totally random amount of time.

    Third and the last one:

    SCAR Code:
    procedure HumanTab2(Tabs, LastTab: Integer);
    var RealMouseSpeed, I: Integer;
    begin
      RealMouseSpeed := MouseSpeed;
      MouseSpeed := (7 + Random(3));
      for i := 1 to Tabs do
      begin
        GameTab(1 + random(13));
      end;
      GameTab(LastTab);
      MouseSpeed := RealMouseSpeed;
    end;

    Usage: HumanTab2(1 + Random(13), 1 + Random(13));


    Enjoy and comment! Try the first one, it looks kinda scary when compass and mouse move same time.

  2. #2
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow this is nice...very nice. However, the name of the thread is a bit annoying
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  3. #3
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Thx, and it was ment to be annoying.

  4. #4
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    You're obsessed with 1337 talk today. Firstly this, then some other thread where you say: Gosh, I'm so st00pid..or something of the sort
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  5. #5
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Somedays it feels like u have to

  6. #6
    Join Date
    Jan 2007
    Location
    Kansas
    Posts
    3,760
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    I love the compass mouse that you made at my request . Thanks for doing that one. It really is helpful.


  7. #7
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    I love the compass mouse that you made at my request . Thanks for doing that one. It really is helpful.
    Glad to hear

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. Spiderman 3 is pretty kickass and God bless the Chinese and their early releases
    By radioactive_werewolf in forum Music, Movies and TV
    Replies: 17
    Last Post: 07-25-2007, 03:42 PM
  4. Pin, less antiban or not?
    By PwNZoRNooB in forum Bot Information and Spottings
    Replies: 6
    Last Post: 04-28-2007, 05:17 PM
  5. antiban Q.
    By del_signo in forum OSR Help
    Replies: 6
    Last Post: 03-06-2007, 01:46 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
  •