Results 1 to 5 of 5

Thread: HoverSkillScroll

  1. #1
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default HoverSkillScroll

    Well, For a little more antiban, this is a modification of HoverSkill, but, as you may guess, scrolls down the skill guide and looks at stuff =o

    SCAR Code:
    procedure HoverSkillScroll(Skill: string; Click: Boolean; Scroll: Boolean);
    var
      row, col, n, ScrollDown, FinishedScroll, xow, yow, xow2, yow2, a: Integer;
    begin
      case LowerCase(Skill) of
        'attack':
          begin
            row := 1;
            col := 1;
          end;
        'strength':
          begin
            row := 2;
            col := 1;
          end;
        'defence':
          begin
            row := 3;
            col := 1;
          end;
        'range':
          begin
            row := 4;
            col := 1;
          end;
        'prayer':
          begin
            row := 5;
            col := 1;
          end;
        'magic':
          begin
            row := 6;
            col := 1;
          end;
        'runecraft':
          begin
            row := 7;
            col := 1;
          end;
        'hitpoints':
          begin
            row := 1;
            col := 2;
          end;
        'agility':
          begin
            row := 2;
            col := 2;
          end;
        'herblore':
          begin
            row := 3;
            col := 2;
          end;
        'thieving':
          begin
            row := 4;
            col := 2;
          end;
        'crafting':
          begin
            row := 5;
            col := 2;
          end;
        'fletching':
          begin
            row := 6;
            col := 2;
          end;
        'slayer':
          begin
            row := 7;
            col := 2;
          end;
        'smithing':
          begin
            row := 2;
            col := 3;
          end;
        'mining':
          begin
            row := 1;
            col := 3;
          end;
        'fishing':
          begin
            row := 3;
            col := 3;
          end;
        'cooking':
          begin
            row := 4;
            col := 3;
          end;
        'firemaking':
          begin
            row := 5;
            col := 3;
          end;
        'woodcutting':
          begin
            row := 6;
            col := 3;
          end;
        'farming':
          begin
            row := 7;
            col := 3;
          end;
        'construction':
          begin
            row := 8;
            col := 1;
          end;
        'hunter', 'hunting':
          begin
            row := 8;
            col := 2;
          end;
        'random':
          begin
            row := Random(8) + 1;
            col := Random(3) + 1;
          end;
      else
        begin
          WriteLn('SkillGuide doesn''t have a Skill Name that it can use.');
          Exit;
        end;
      end;
      GameTab(2);
      case Click of
        True:
          begin
            Mouse(532 + (64 * col), 191 + (31 * row), 10, 10, True)
              if (GetColor(401, 96) = 3359309) then
              Mouse(401, 160, 2, 30, True);
            repeat
              Wait(1000 + Random(500));
              n := n + 1;
            until (SimilarColors(GetColor(29, 38), 8760772, 30) and SimilarColors(GetColor(336, 36), 7377316, 30)) or (n > 7);
          end;
        False:
          begin
            MMouse(532 + (64 * col), 191 + (31 * row), 10, 10)
              Wait(5000 + Random(5000));
          end;
      end;
      case Scroll of
        True:
          begin
            begin
              FinishedScroll := BitmapFromString(16, 24, 'beNrNkktLw0AURn' +
                '+GCN25qYgLKYigm1ofWAvSaqBigkkWxaILQQtFIlhfiyolUCx2UxC' +
                '60oX5iR79ZAhNSF0Kh2Hm3jN37mRSyAXNTXtn8fFso7G38Bm6Uei+' +
                'P9kwfqiPOtYwqL20y6QQ0C794n/2IekrnvTNliTKJv1s4v4fwT8/W' +
                'u1dlK8a21HoRKEHH88OvN0fjjoHw6A6aO9CyyvdnW6dWCvQD+rMs3' +
                '0ENGTqk+q29rN9ZCLIHDTu+iyn+mjIdM5kcHOc7SOgIf/c1Jvqv95' +
                '6Ub8pn43fy5jvlPMw4au++p+on/TVD3LqfZH9Sj71vuZ7mrJMkOU3' +
                'q/PAgyLoe7qVJb0vWWt9TmijTgHqI6Ahk+Xt9FeA2WIgK4FRkWt/m' +
                'VKMorY2a0ATEpBLhRwdMlGrgiCoGSHBxBnt4kwqOshoGX68sV/tC0' +
                '0gv+E=');
              ScrollDown := BitmapFromString(16, 10, 'beNp9zksLAVEYxvGPIW' +
                'Vnw1JTNmyYoobNuBQxMbNQslFS0ii3lSSlxEYpOxsf0b8enZDU09u' +
                '5/N5zXis27RVvm+C09B9777Gn+vet5zkJclnUzqF7nJQIAAYe+zaL' +
                '47zz3wNgYPlD2PjyQfnDA+SHrcx13dyMq+ZZFmD5vpsku5EDgIG75' +
                'RRbBuO2no8ratQvhPcBMDC3q0GBRrbEtJhwK0DVySxI8xRVqWSjJj' +
                'BFAGxbMSZkoVEVDomGUQTMObWdi/yMPjLsj38f7MWegYejag==');
              if SimilarColors(GetColor(29, 38), 8760772, 30) and SimilarColors(GetColor(336, 36), 7377316, 30) then
              begin
                if FindBitmapToleranceIn(ScrollDown, xow, yow, 309, 282, 366, 338, 4) then
                begin
                  MMouse(xow + 3, yow + 3, 0, 0);
                  GetMousePos(xow, yow);
                  HoldMouse(xow, yow, true);
                  repeat
                    Wait(20 + Random(30));
                    if random(30) = 28 then
                    begin
                      wait(70 + random(50));
                      ReleaseMouse(xow, yow, true);
                      wait(1000 + random(500));
                      HoldMouse(xow, yow, true);
                      wait(70 + random(50));
                    end;
                    a := a + 1;
                  until FindBitmapToleranceIn(FinishedScroll, xow2, yow2, 312, 258, 351, 328, 4) or (a > 500);
                  wait(70 + random(50));
                  ReleaseMouse(xow, yow, true);
                end;
                wait(70 + random(50));
                MMouse(40, 85, 210, 215);
                wait(1000 + random(5000));
                CloseWindow;
              end;
              FreeBitmap(ScrollDown);
              FreeBitmap(FinishedScroll);
            end;
          end;
        False:
          begin
            wait(70 + random(50));
            MMouse(40, 85, 210, 215);
            wait(1000 + random(5000));
            CloseWindow;
          end;
      end;
    end;

    Feel Free to test.

  2. #2
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ooo looks nice. Is the finished scrolling Bitmap just a bitmap gametab 2? Also idk if many ppl will use this as antiban just because when you click on a stat you stop doing w/e you were. Even walking gets stopped by it I think, or maybe they changed that. Otherwise good job.

  3. #3
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by osmm View Post
    ooo looks nice. Is the finished scrolling Bitmap just a bitmap gametab 2?
    No it is not.

    And It can just be used as a normal HoverSkill aswell. If you turn Scroll and Click to False.

  4. #4
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;

    {.include SRL\SRL.scar}

    procedure HoverSkillScroll(Skill: string; Click: Boolean; Scroll: Boolean);
    var
      row, col, n, ScrollDown, FinishedScroll, xow, yow, xow2, yow2, a: Integer;
    begin
      case LowerCase(Skill) of
        'attack':
          begin
            row := 1;
            col := 1;
          end;
        'strength':
          begin
            row := 2;
            col := 1;
          end;
        'defence':
          begin
            row := 3;
            col := 1;
          end;
        'range':
          begin
            row := 4;
            col := 1;
          end;
        'prayer':
          begin
            row := 5;
            col := 1;
          end;
        'magic':
          begin
            row := 6;
            col := 1;
          end;
        'runecraft':
          begin
            row := 7;
            col := 1;
          end;
        'hitpoints':
          begin
            row := 1;
            col := 2;
          end;
        'agility':
          begin
            row := 2;
            col := 2;
          end;
        'herblore':
          begin
            row := 3;
            col := 2;
          end;
        'thieving':
          begin
            row := 4;
            col := 2;
          end;
        'crafting':
          begin
            row := 5;
            col := 2;
          end;
        'fletching':
          begin
            row := 6;
            col := 2;
          end;
        'slayer':
          begin
            row := 7;
            col := 2;
          end;
        'smithing':
          begin
            row := 2;
            col := 3;
          end;
        'mining':
          begin
            row := 1;
            col := 3;
          end;
        'fishing':
          begin
            row := 3;
            col := 3;
          end;
        'cooking':
          begin
            row := 4;
            col := 3;
          end;
        'firemaking':
          begin
            row := 5;
            col := 3;
          end;
        'woodcutting':
          begin
            row := 6;
            col := 3;
          end;
        'farming':
          begin
            row := 7;
            col := 3;
          end;
        'construction':
          begin
            row := 8;
            col := 1;
          end;
        'hunter', 'hunting':
          begin
            row := 8;
            col := 2;
          end;
        'random':
          begin
            row := Random(8) + 1;
            col := Random(3) + 1;
          end;
      else
        begin
          WriteLn('SkillGuide doesn''t have a Skill Name that it can use.');
          Exit;
        end;
      end;
      GameTab(2);
      case Click of
        True:
          begin
            Mouse(532 + (64 * col), 191 + (31 * row), 10, 10, True)
              if (GetColor(401, 96) = 3359309) then
              Mouse(401, 160, 2, 30, True);
            repeat
              Wait(1000 + Random(500));
              n := n + 1;
            until (SimilarColors(GetColor(29, 38), 8760772, 4) and SimilarColors(GetColor(336, 36), 7377316, 4)) or (n > 7);
          end;
        False:
          begin
            MMouse(532 + (64 * col), 191 + (31 * row), 10, 10)
              Wait(5000 + Random(5000));
          end;
      end;
      case Scroll of
        True:
          begin
            begin
              FinishedScroll := BitmapFromString(16, 24, 'beNrNkktLw0AURn' +
                '+GCN25qYgLKYigm1ofWAvSaqBigkkWxaILQQtFIlhfiyolUCx2UxC' +
                '60oX5iR79ZAhNSF0Kh2Hm3jN37mRSyAXNTXtn8fFso7G38Bm6Uei+' +
                'P9kwfqiPOtYwqL20y6QQ0C794n/2IekrnvTNliTKJv1s4v4fwT8/W' +
                'u1dlK8a21HoRKEHH88OvN0fjjoHw6A6aO9CyyvdnW6dWCvQD+rMs3' +
                '0ENGTqk+q29rN9ZCLIHDTu+iyn+mjIdM5kcHOc7SOgIf/c1Jvqv95' +
                '6Ub8pn43fy5jvlPMw4au++p+on/TVD3LqfZH9Sj71vuZ7mrJMkOU3' +
                'q/PAgyLoe7qVJb0vWWt9TmijTgHqI6Ahk+Xt9FeA2WIgK4FRkWt/m' +
                'VKMorY2a0ATEpBLhRwdMlGrgiCoGSHBxBnt4kwqOshoGX68sV/tC0' +
                '0gv+E=');
              ScrollDown := BitmapFromString(16, 10, 'beNp9zksLAVEYxvGPIW' +
                'Vnw1JTNmyYoobNuBQxMbNQslFS0ii3lSSlxEYpOxsf0b8enZDU09u' +
                '5/N5zXis27RVvm+C09B9777Gn+vet5zkJclnUzqF7nJQIAAYe+zaL' +
                '47zz3wNgYPlD2PjyQfnDA+SHrcx13dyMq+ZZFmD5vpsku5EDgIG75' +
                'RRbBuO2no8ratQvhPcBMDC3q0GBRrbEtJhwK0DVySxI8xRVqWSjJj' +
                'BFAGxbMSZkoVEVDomGUQTMObWdi/yMPjLsj38f7MWegYejag==');
              if SimilarColors(GetColor(29, 38), 8760772, 4) and SimilarColors(GetColor(336, 36), 7377316, 4) then
              begin
                Writeln('1'); //   <--- It  doesn't reach here...
                if FindBitmapToleranceIn(ScrollDown, xow, yow, 309, 282, 366, 338, 4) then
                begin
                  MMouse(xow + 3, yow + 3, 0, 0);
                  GetMousePos(xow, yow);
                  HoldMouse(xow, yow, true);
                  repeat
                    Wait(20 + Random(30));
                    if random(30) = 28 then
                    begin
                      wait(70 + random(50));
                      ReleaseMouse(xow, yow, true);
                      wait(1000 + random(500));
                      HoldMouse(xow, yow, true);
                      wait(70 + random(50));
                    end;
                    a := a + 1;
                  until FindBitmapToleranceIn(FinishedScroll, xow2, yow2, 312, 258, 351, 328, 4) or (a > 500);
                  wait(70 + random(50));
                  ReleaseMouse(xow, yow, true);
                end;
                wait(70 + random(50));
                MMouse(40, 85, 210, 215);
                wait(1000 + random(5000));
                CloseWindow;
              end;
              FreeBitmap(ScrollDown);
              FreeBitmap(FinishedScroll);
            end;
          end;
        False:
          begin
            wait(70 + random(50));
            MMouse(40, 85, 210, 215);
            wait(1000 + random(5000));
            CloseWindow;
          end;
      end;
    end;


    begin
    mousespeed:= 10;
    wait(1000);
    activateclient
    gametab(2);
    wait(1000);
    HoverSkillScroll('Mining', True,True);
    end.

    Successfully compiled
    Successfully executed
    It clicks on skill... and then "Successfully executed"

    In theory it should work, just there are some invalid data...?!?

    EDIT: See my comment after loading Images...
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  5. #5
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    That's strangeee, try changing the tolerance on similar colors to 30. Should work then. I obviously set it too low.

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
  •