Page 2 of 2 FirstFirst 12
Results 26 to 30 of 30

Thread: BooIvy

  1. #26
    Join Date
    Feb 2012
    Posts
    212
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Bobby Boo View Post
    600 works great... i'll give credits to both of you
    Thank you very very much for your help
    Anytime buddy, feel free to pm me any questions
    Previously known as sockz
    - Dwarven Stout buyer (F2P MONEYMAKER) http://villavu.com/forum/showthread....45#post1001045
    - G-Altar script, tons of failsafes. (Flawless for me) http://villavu.com/forum/showthread.php?t=79454

  2. #27
    Join Date
    Dec 2011
    Posts
    733
    Mentioned
    2 Post(s)
    Quoted
    7 Post(s)

    Default

    Or just post a thread. The community is more than happy to help you out. Make sure you search first ;]
    My scripts: LunarPlanker
    ---
    My Utilities: Cross Platform, Open Source, SPS Path Generator

    Join the Unoficial SRL Skype Group by clicking here, or visiting this thread.

  3. #28
    Join Date
    Mar 2012
    Location
    MW3
    Posts
    76
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Been reading up on how to make a proggy.. I might have that included by tomorrow
    Script(s) by me:

  4. #29
    Join Date
    Dec 2011
    Location
    Berlin
    Posts
    795
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    You could use my Autocolor function for Nest detection. Read that you haven´t added it yet. Working on an IvyCutter too at the moment

    Good Luck with yours. PM me if you got questions.


    Simba Code:
    function NestAutoColor: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.29, 1.80);

      FindColorsSpiralTolerance(MSCX, MSCY, arP, 3359302, MSX1, MSY1, MSX2, MSY2, 2);
      if (Length(arP) = 0) then
      begin
        Writeln('Failed to find the NestColor.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 4.20) and (X <= 5.67) and (Y >= 4.49) and (Y <= 6.10) and (Z >= 3.30) and (Z <= 4.64) then
        begin
          Result := arC[i];
          Writeln('NestColor = ' + IntToStr(arC[i]));
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
        Writeln('We failed in finding the NestColor.');
    end;

    I will try to answer all Runescape related questions!

  5. #30
    Join Date
    Mar 2012
    Location
    MW3
    Posts
    76
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Imanoobbot View Post
    You could use my Autocolor function for Nest detection. Read that you haven´t added it yet. Working on an IvyCutter too at the moment

    Good Luck with yours. PM me if you got questions.


    Simba Code:
    function NestAutoColor: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.29, 1.80);

      FindColorsSpiralTolerance(MSCX, MSCY, arP, 3359302, MSX1, MSY1, MSX2, MSY2, 2);
      if (Length(arP) = 0) then
      begin
        Writeln('Failed to find the NestColor.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        ColorToXYZ(arC[i], X, Y, Z);

        if (X >= 4.20) and (X <= 5.67) and (Y >= 4.49) and (Y <= 6.10) and (Z >= 3.30) and (Z <= 4.64) then
        begin
          Result := arC[i];
          Writeln('NestColor = ' + IntToStr(arC[i]));
          Break;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
        Writeln('We failed in finding the NestColor.');
    end;
    wow thanks a lot.. this was my problem with adding it. I didn't know how to detect the nest

    E: how silly of me to not GL you back.. though you probably won't need it


    I'm trying to think of how to pick the nest up after it is recognized...:

    Code:
     If (NestAutoColor) := True then
                FindObj(x, y, 'ird's Nest', 3359302, 0);
                   begin
                        Mouse(x, y, 2, 2, false);
                        ChooseOption('ake Bird');
                   end;
    I think the first line is wrong.. idk if you can do that or not
    Last edited by Bobby Boo; 04-15-2012 at 04:57 AM.
    Script(s) by me:

Page 2 of 2 FirstFirst 12

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
  •