Results 1 to 11 of 11

Thread: nest looting. Im genuinly fedup

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

    Default nest looting. Im genuinly fedup

    hey guys,

    I've been trying to add nest picking up for a while now and I'm genuinly getting a mental block on what to do... I've tried ACA. I've tried DTM's ( Wont work due to multiple angles ).

    If anyone would mind looking into this script I'd really appreciate it

    Code:
    program xtraivy;
    
    {$DEFINE SMART}
    {$i SRL\SRL.simba}
    {$i SRL/SRL/skill/woodcutting.simba}
    {include SPS/SPS.simba}
     Var
      Gained: Integer;
      {♠===================================================================♠
    
          ♠XtraIVY♠    CrushPrice := GetGEPrice(6693);
    
          ♠Release Date♠: 17/02/2012
    
          ♠Author♠: xtrapsp
    
          ♠Support♠: http://villavu.com/forum/showthread.php?t=75528
    
        Changelog:
          23/02/2012 - Changed around with the Nest Settings
          20/02/2012 - Cleaned up script a bit + Setup script for addons
          17/02/2012 - Chopping done.
          18/02/2012 - Added Various antiban.
          19/02/2012 - Added elements which aren't in use yet.
    
    
      ♠===================================================================♠}
    
     Const
     SRLStats_Username = '';
     SRLStats_Password = '';
     NumbOfPlayers=      1;
     StartPlayer=        0;
    
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer  := 0;
    
      with Players[0] do
      begin
        Name := '';
        Pass := '';
        Nick := '';
        Pin  := '';
        BoxRewards := ['Xp', 'mote', 'ostume', 'ssence'];
        Member := True;
        Active := True;
      end;
    end;
    
    procedure CheckSRLStats;
    begin
        if ((SRLStats_Username= '') and (SRLStats_Password = '')) then
          begin
            case MessageBox('No Stats account entered, would you like to register?','SRL Stats',mbYesNoCancel) of
              mrYes:
                begin
                  OpenWebPage('http://stats.villavu.com/register');
                  TerminateScript;
                end;
              mrNo:
                begin
                  SetupSRLStats(837, 'Anonymous', 'anon1337');
                  Exit;
                end;
              mrCancel: TerminateScript;
            end;
          end else
        SetupSRLStats(837, SRLStats_Username, SRLStats_Password);
    end;
    
    procedure x_Stats_Commit;
    begin
      stats_IncVariable('Woodcutting EXP (Gained)', 4725);
      Stats_Commit;
      Writeln('Updated SRL Stats')
    end;
    
    Procedure ProgressReport;
      var
        startEXP, newExp, Gained : Integer;
    begin
        startExp := Players[CurrentPlayer].Integers[0];
        newExp := GetXPBarTotal;
        Gained := newExp - startExp;
        WriteLn('Exp gained: ' + ToStr(Gained));
        x_Stats_Commit;
    end;
    
    
    
    {♠===================================================================♠}
    
    ////////////////////////////////////////////////////////////////////////////////
    ////////////AutoColour Feature (I'm British I spell it like Colour)/////////////
    
    function IVYColour: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.03, 0.08);
    
      if not (FindColorsTolerance(arP, 4619873, MSX1, MSY1, MSX2, MSY2, 10)) then
      begin
        Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;
    
      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);
    
      for i := 0 to arL do
      begin
        Result := arC[i];
        Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;
    
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if (i = arL + 1) then
        Writeln('AutoColor failed in finding the color.');
    end;
    ////////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    
    
    function Nestcolour: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.39, 0.74);
    
      if not (FindColorsTolerance(arP, 2964028, MSX1, MSY1, MSX2, MSY2, 10)) then
      begin
        Writeln('Failed to find the nest, cannot pickup.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;
    
      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);
    
      for i := 0 to arL do
      begin
        Result := arC[i];
        Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;
    
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if (i = arL + 1) then
        Writeln('Failed to find the nest, cannot pickup.');
    end;
    
    procedure Chop;
    var
      X, Y: Integer;
    begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
    
      SetColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 0.07);
    
      if FindObj(X, Y, 'Iv', 4619873, 8) then
      begin
        mouse( x, y, 2, 2, true);
        wait(687 + random(15000))
        MMouse( x, y, 10, 10);
      end;
    
      If Not FindObj (X, Y, 'Iv', 4619873, 8) then
      begin
        Chop;
      end;
    
      (* We revert back to the defaults here. *)
      SetColorSpeed2Modifiers(0.2, 0.2);
      SetColorToleranceSpeed(1);
    end;
    
    Procedure StatsGuise(wat:String); // Thanks YoHoJo
    Begin
      Status(wat);
      Disguise(wat);
    End;
    
    Procedure Antiban_Upgrade;
    var
      I: Integer;
      CurrentCompassDegree: Extended;
    begin
      I := Random(1000);
      StatsGuise('AntiBan');
    
      case (I) of
        0..99 :
          begin
            GameTab(tab_Stats);
            HoverSkill('Woodcutting', False);
            GameTab(28);
          end;
        100..200 :
          begin
            SleepAndMoveMouse(7000 + Random(500));
            MakeCompass(CurrentCompassDegree-18+Random(32));
          end;
        200..210 :
          begin
            GameTab(Tab_Stats);
            MakeCompass(CurrentCompassDegree-2+Random(34));
            Wait(3000 + Random(500));
            GameTab(28);
          end;
        211..220 :
          begin
            BoredHuman;
            MakeCompass('N')
          end;
        221..300 :
          begin
          GameTab(Tab_Stats);
          Wait(100 + Random(1000));
          end;
      end;
    end;
    
    Procedure AFK;
    begin
      if not loggedIn then Exit;
        Case Random (100) Of
        1..15 : Wait(1000 + Random (3050));
        16..24 : Wait (1340 + Random (1093));
        25..45: Wait (1211 + Random (6000));
        46..47: Wait (20000 + Random (10000)); // This looks like you've gone to get a drink
        end;
    end;
    
    Procedure FindNest_old;
    var
      X, Y: Integer;
    Begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
    
      If FindObjCustom(x, y, ['Ne', 'st'], [3290938,3883332], 5) Then
      begin
        Mouse( x, y, 2, 2, True);
        Writeln('Found a nest... Attempting to pickup');
        MakeCompass(10 + random(50));
      end;
    End;
    
    Procedure X_FindNest; ///FINISH THIS WHEN YOU HAVE A NEST
    var
      X, Y, Colour: Integer;
    begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
      Colour := NestColour;
    
      if FindObj(X, Y, 'Nes', NestColour, 10) then
      begin
        mouse( x, y, 2, 2, true);
      end;
    
      If Not FindObj (X, Y, 'Nes', NestColour, 10) then
      begin
        Chop;
      end;
    end;
    
    Procedure FindEmptyNest; //Probably not needed. It's a procedure incase the script drops a nest randomly?
    var
      X, Y, EmptyNest: Integer;
    Begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
    
      EmptyNest := DTMFromString('mlwAAAHicY2dgYMhmZGDIAuI4IE4B4nwgLgfiIiCew8TAsByIFwDxDCCeDsTzoGKeHhYMjo4WDN7ejkC2PYObmxmDjY0Gg56eBgM+wIgHQwEA+fEMeg==')
    
      If FindDTM(EmptyNest, X, Y, MSX1, MSY1, MSX2, MSY2) Then
      Begin
        Writeln('Found a nest... Attempting to pickup');
        MMouse (x, y, 5, 5);
        MakeCompass(0 + random(50));
    
        If IsUpText('nes') Then
          Mouse(x, y, 0, 0, True);
      End;
    
      FreeDTM(EmptyNest);
    End;
    
    
    Procedure X_CrushNest;
    var
      X, Y, CrushNest: Integer;
    Begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
    
      CrushNest := DTMFromString('mggAAAHicY2NgYOADYiEgFgNiGSDmZYAATijNCGULQWkTAw0gyYSBuRiwA0YcGAIAboABOg==')
    
      If FindDTM(CrushNest, X, Y, MIX1, MIY1, MIX2, MIY2) Then
      Begin
        Writeln('Found a nest inside Inventory, Attempting to crush');
        MMouse (x, y, 5, 5);
    
        If IsUpText('cru') Then
          Mouse(x, y, 0, 0, True);
      End;
    
      FreeDTM(CrushNest);
    End;
    
    Procedure Joincommunity;
      begin
        case MessageBox('While the bot is running, would you like to browse our other scripts?','Community Site',mbYesNoCancel) of
              mrYes:
                begin
                  OpenWebPage('http://bot.lizardguru.com');
                end;
              mrNo:
                begin
                  Exit;
                end;
              mrCancel: TerminateScript;
            end;
    end;
    
    begin
      SetupSRL;
      Joincommunity;
      DeclarePlayers;
      CheckSRLStats;
      LoginPlayer;
      ToggleXPBar(True);
      Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
      Writeln('Your using XtraIvy V0.05');
      Writeln('Please report any bugs on the thread');
    
      Repeat
        Chop;
        X_FindNest;
        Antiban_Upgrade;
        X_FindNest;
        FindEmptyNest;
        AFK;
        ProgressReport;
      until(Not LoggedIn);
    End.
    Thanks guys. Literally pulling my hair out

  2. #2
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    What is the issue? Can't find the nest?

    Also, what's up with this?
    Simba Code:
    Procedure Joincommunity;
      begin
        case MessageBox('While the bot is running, would you like to browse our other scripts?','Community Site',mbYesNoCancel) of
              mrYes:
                begin
                  OpenWebPage('http://bot.lizardguru.com');
                end;
              mrNo:
                begin
                  Exit;
                end;
              mrCancel: TerminateScript;
            end;
    end;
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  3. #3
    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 Kyle Undefined View Post
    What is the issue? Can't find the nest?

    Also, what's up with this?
    Simba Code:
    Procedure Joincommunity;
      begin
        case MessageBox('While the bot is running, would you like to browse our other scripts?','Community Site',mbYesNoCancel) of
              mrYes:
                begin
                  OpenWebPage('http://bot.lizardguru.com');
                end;
              mrNo:
                begin
                  Exit;
                end;
              mrCancel: TerminateScript;
            end;
    end;
    It's something I was testing. As I'm planning on making a branch of bots in an xtra-style it will be a portal page (probably gonna make a thread with all the bots on but this was the basic idea to do it on one of my domains)

    spoke to hobbit about it =]


    & it wont click the nest or find them

  4. #4
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Ahh ok, that's cool, I was just curious

    It looks like your Chop procedure is an infinite loop.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  5. #5
    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 Kyle Undefined View Post
    Ahh ok, that's cool, I was just curious

    It looks like your Chop procedure is an infinite loop.
    I don't really know how to stop that ;P

  6. #6
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Well you're looking for the Ivy, and if you don't find it, then you start the procedure over again. Just take out the if(not FindObj('ivy')) part of the procedure out and it shouldn't loop.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  7. #7
    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 Kyle Undefined View Post
    Well you're looking for the Ivy, and if you don't find it, then you start the procedure over again. Just take out the if(not FindObj('ivy')) part of the procedure out and it shouldn't loop.
    ahh I see thanks, Testing now

  8. #8
    Join Date
    Nov 2006
    Location
    Location, Location
    Posts
    1,126
    Mentioned
    6 Post(s)
    Quoted
    41 Post(s)

    Default

    Quote Originally Posted by xtrapsp View Post
    ahh I see thanks, Testing now
    You may want to check out Shuttleu's vine vanquisher to see his nest finding procedure.

  9. #9
    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 Kave View Post
    You may want to check out Shuttleu's vine vanquisher to see his nest finding procedure.
    I did, didn't quite understand it. Will have another look as it still won't find nests

  10. #10
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

    if u use aca + ATPA, you can find it. my ivy cutter works with it.

  11. #11
    Join Date
    Dec 2011
    Posts
    193
    Mentioned
    5 Post(s)
    Quoted
    51 Post(s)

    Default

    Create a TPA using a color from the nest, from there make it into a ATPA. If it finds the ATPA of what it assumes to be a nest check the Length of it, if it's within the correct range (you will have to test this, have the length of the ATPA constantly writeln'ing while there's a nest on the ground, turn the camera to get all angles and pitches, make a note of highest and lowest.

    Finally an uptext check, if the uptext is wrong set a timer in which it wont check for nests again, say 2 minutes.

    You can get a reference of all that in my Ivy script, I believe the latest version I posted uses this, if not PM me if you want.

    Good luck.

    OSRS Color Scripts: Borland_Salamanders | Borland_Iron_Ores
    Utilities & Snippets: [Color] OSBuddy Item Looting

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
  •