Results 1 to 6 of 6

Thread: New Antiban Procedure (Prototype)

  1. #1
    Join Date
    May 2012
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default New Antiban Procedure (Prototype)

    Hey Guys, I'm new to Pascal programming but not new to programming. I saw in the antiban include we have HoverSkill. I was thinking of having HoverProgress.

    HoverProgress does what HoverSkill does but it hovers over the progress on the top of the screen while you skill a skill.

    I made the following code for Flight's HeavyRodder Script but i guess it could be modified to be included in the SRL antiban include?

    Simba Code:
    Procedure HoverProgress;
      var
        I, K, J, R, temp, CX, CY: Integer;
        skillsDTM: Array[0..2] of Integer;
      begin
        skillsDTM[0] := DTMFromString('mVAEAAHicE2BgYLBgZGCwgWIHIHYCYmcgNgFiAyjWBWJ9ILYDYkcgtmaE6ANhJaAZMkCsDsQqQKwIxHJArAblKwCxNBCLAbE4EEsCsSgQCwGxKhBH1c5mUDB3Y2BkZAJjPj5+BmVlZYbgjBoGWXMvhp/PNzK4ZSUx2FZPBqpmZBDm52Iwja5iCA0PYyje/phBBChKCWakEKMDAAA0FJM=');
        skillsDTM[1] := DTMFromString('mVAEAAHicE2BgYGBiZGBgA2JOIOaC0hxAzALEjED8H6jmLxJmhMqD6D9AvhwQiwCxOBBLA7ECEKsAsQYQKwOxPFRcAqpOGCqnAdV7MN+BYUWcKhibxTcyVPtYMEw2s2DYXenPcLDIByx/vzOG4depeQwnGoLB/EItU4arkzIYDk2tY6AUMFKI0QEAjUUeJg==');
        skillsDTM[2] := DTMFromString('m6wAAAHic42ZgYDgPxBeA+DKUvgrEp4H4DFQMhG8A8QkglgViCSCWBGJhIBaDYgUoVgFidSBWBeJ7FRIMK+JUGWbFCzFcXx3J8GC5ExjfXqbMcKRClGHnNG8GGRkZhg+ligykAEYSMBIAAKrUGcI=');

        // Shuffle Array
        For J := 2 downto 0 do
        begin
          R := RandomRange(0, J);
          // Bubble Sort
          temp := skillsDTM[J];
          skillsDTM[J] := skillsDTM[R];
          skillsDTM[R] := temp;
        end;

        I := Random(3); // Should we check, 3 skills, 2 skills or 1 skill?

        For K := 0 to I do
        begin
            if InvFull then
              break;

            if FindDTM(skillsDTM[K], CX, CY, 110, 6, 385, 50) then
            begin
              HumanMMouse(round(CX), round(CY), 7, 7);   // Hover to check progress
              Wait(RandomRange(1500, 4000));
            end;
        end;

        HumanMMouse(4, 30, 500, 320);

        FreeDTM(skillsDTM[0]);
        FreeDTM(skillsDTM[1]);
        FreeDTM(skillsDTM[2]);
      end;

  2. #2
    Join Date
    Feb 2006
    Location
    Canada
    Posts
    2,254
    Mentioned
    21 Post(s)
    Quoted
    238 Post(s)

    Default

    Nice work

  3. #3
    Join Date
    Sep 2014
    Posts
    74
    Mentioned
    2 Post(s)
    Quoted
    34 Post(s)

    Default

    I don't think people will be using this because most of us have XP popups disabled. (I think that is what this script does, hover on that popup circle).

    Anyway, still a very good script and antiban feature .

  4. #4
    Join Date
    Jun 2007
    Location
    The land of the long white cloud.
    Posts
    3,702
    Mentioned
    261 Post(s)
    Quoted
    2006 Post(s)

    Default

    Quote Originally Posted by TomTop View Post
    I don't think people will be using this because most of us have XP popups disabled. (I think that is what this script does, hover on that popup circle).

    Anyway, still a very good script and antiban feature .
    You realise this is from 2012

  5. #5
    Join Date
    Mar 2013
    Location
    Argentina
    Posts
    758
    Mentioned
    27 Post(s)
    Quoted
    365 Post(s)

    Default

    Quote Originally Posted by The Mayor View Post
    You realise this is from 2012
    dat gravedig

  6. #6
    Join Date
    Sep 2014
    Posts
    74
    Mentioned
    2 Post(s)
    Quoted
    34 Post(s)

    Default

    Oh, oops. I didn't see the date hahaha - sorry.

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
  •