Results 1 to 7 of 7

Thread: Climbing?

  1. #1
    Join Date
    Mar 2013
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    127 Post(s)

    Default Climbing?

    Well, I'm making a script which envolves climbing but can't really figure it out. (Other than exact coordinate clicking)

    Here's what I have so far;

    Simba Code:
    repeat
    // random junk
            repeat
            FindColor(x, y, 606560, xs, ys, xe, ye);
            //FindColorSpiralTolerance(x, y, 603212, MSX1, MSY1, MSX2, MSY2, 5)
            MMouse(x, y, 1, 1);
            until (P07_IsUpTextMultiCustom(['Cli', 'imb-', 'up', 'Stairc', 'ase']))
                wait(RandomRange(600, 900));
                 ClickMouse2(mouse_right);
                wait(randomrange(300, 500));
                P07_ChooseOptionMulti(['limb-up'])
                until (IsOnTop);


    The problem is whenever I try to pickup a color, the mouse will try one then just go inactive.

  2. #2
    Join Date
    Jul 2012
    Posts
    437
    Mentioned
    10 Post(s)
    Quoted
    165 Post(s)

    Default

    try FindColorsSpiralTolerance(x, y,TPA, 603212, MSX1, MSY1, MSX2, MSY2, 5)
    it will make an TPA of points that match the colortolorance

    also autocoloraid is very helpful

  3. #3
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Simba Code:
    function ClickBank: Boolean;
    var
      tmpCTS, i, L, Counter: Integer;
      ObjTPA: TPointArray;
      ObjATPA: T2DPointArray;
      X, Y, DMCount, Moves: Integer;
    begin
      Moves := 0;
      DMCount := 0;
      tmpCTS := GetToleranceSpeed;
      SetColorToleranceSpeed(2);
      SetToleranceSpeed2Modifiers(0.14, 0.11); // .06 .90  3029853 6
      FindColorsTolerance(ObjTPA, 4613246, MSX1, MSY1, MSX2, MSY2, 3);
      SplitTPAWrap(ObjTPA, 10, ObjATPA);
      SortATPASize(ObjATPA, True);
      SetColorToleranceSpeed(tmpCTS);
      SetToleranceSpeed2Modifiers(0.02, 0.02);
      DMCount := RandomRange(3, 5);
      L := High(ObjATPA) MarkTime(Counter);
      for i := 0 to L do
      begin
        MiddleTPAEx(ObjATPA[i], X, Y);
        repeat
          begin
            MakeCompass(180 - Random(25));
            Moves := Moves + 1;


            Wait(RandomRange(100, 200));
            MMouse(RandomRange(X - 5, X + 5), RandomRange(y - 5, y + 5), 0, 0);
            if (IsUpTextMultiCustom(['Bank', 'Use Bank', 'booth'])) then
            begin
              clickmouse2(mouse_Left);
              Exit;
            end;
          end;
        until (Moves > DMCount) if (TimeFromMark(Counter) > 3000) then
        begin
          Break;
        end;
      end;
      Result := False;
    end;

    Ripped from My power chopper, that was ripped from my copper miner which was ripped from DannyRS's sommuner

  4. #4
    Join Date
    Feb 2012
    Location
    DON'T PM ME ASKING FOR STUFF
    Posts
    2,170
    Mentioned
    38 Post(s)
    Quoted
    423 Post(s)

    Default

    Good to see RJJ explaining stuff.



    Simba Code:
    repeat
    // random junk
            repeat
            FindColor(x, y, 606560, xs, ys, xe, ye);
            //FindColorSpiralTolerance(x, y, 603212, MSX1, MSY1, MSX2, MSY2, 5)
            MMouse(x, y, 1, 1);
            until (P07_IsUpTextMultiCustom(['Cli', 'imb-', 'up', 'Stairc', 'ase']))
                wait(RandomRange(600, 900));
                 ClickMouse2(mouse_right);
                wait(randomrange(300, 500));
                P07_ChooseOptionMulti(['limb-up'])
                until (IsOnTop);

    Ok so! Lets start.
    First it finds the colour, which to be quite honest, I would used FindColorSpiralTolerance over that.
    You're probably going to want to use TPA's.
    Check the tutorial here:
    http://villavu.com/forum/showthread.php?t=90767

    Also try using if statements?
    Simba Code:
    if FindColorSpiralTolerance() then
         begin
              Mouse();
              Writeln('Clicked on color');
         end else
              Writeln('Could not find color');

    Essentially, you have a basic understand but are missing a few bits. I find that writing down what I need to do in a structured list helps.
    if you want to learn about programming in general:
    http://villavu.com/forum/showthread....990&highlight=

  5. #5
    Join Date
    Mar 2013
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    127 Post(s)

    Default

    Quote Originally Posted by xtrapsp View Post
    Good to see RJJ explaining stuff.



    Simba Code:
    repeat
    // random junk
            repeat
            FindColor(x, y, 606560, xs, ys, xe, ye);
            //FindColorSpiralTolerance(x, y, 603212, MSX1, MSY1, MSX2, MSY2, 5)
            MMouse(x, y, 1, 1);
            until (P07_IsUpTextMultiCustom(['Cli', 'imb-', 'up', 'Stairc', 'ase']))
                wait(RandomRange(600, 900));
                 ClickMouse2(mouse_right);
                wait(randomrange(300, 500));
                P07_ChooseOptionMulti(['limb-up'])
                until (IsOnTop);

    Ok so! Lets start.
    First it finds the colour, which to be quite honest, I would used FindColorSpiralTolerance over that.
    You're probably going to want to use TPA's.
    Check the tutorial here:
    http://villavu.com/forum/showthread.php?t=90767

    Also try using if statements?
    Simba Code:
    if FindColorSpiralTolerance() then
         begin
              Mouse();
              Writeln('Clicked on color');
         end else
              Writeln('Could not find color');

    Essentially, you have a basic understand but are missing a few bits. I find that writing down what I need to do in a structured list helps.
    if you want to learn about programming in general:
    http://villavu.com/forum/showthread....990&highlight=

    Thanks for the help, I'll definitely look into tpa's. As for the find color tolerance; I've tried it but it seems to make the mouse go inactive after finding one color alike.

  6. #6
    Join Date
    Feb 2012
    Location
    DON'T PM ME ASKING FOR STUFF
    Posts
    2,170
    Mentioned
    38 Post(s)
    Quoted
    423 Post(s)

    Default

    Quote Originally Posted by Brid Mayhem View Post
    Thanks for the help, I'll definitely look into tpa's. As for the find color tolerance; I've tried it but it seems to make the mouse go inactive after finding one color alike.
    Try adding some more writeln('');

    that way on each line you can tell if it is or has executed that line of code

  7. #7
    Join Date
    Mar 2013
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    127 Post(s)

    Default

    Quote Originally Posted by xtrapsp View Post
    Try adding some more writeln('');

    that way on each line you can tell if it is or has executed that line of code
    I know which bit has executed or not, with this it's blatienly obvious

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
  •