Page 12 of 26 FirstFirst ... 2101112131422 ... LastLast
Results 276 to 300 of 629

Thread: [R]yGuy's [A]pe [A]toll [A]gility [R]unner

  1. #276
    Join Date
    Feb 2012
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Thanks so much for this script. I don't think it needs babysitting. It messes up a little bit as people are saying but overall a really useful script! Thanks again.

  2. #277
    Join Date
    Feb 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help needed :/

    Fairly new to Simba. Correction: I am very new to simba, care to help me out, as in setting up, and everything, i've gone through tutorials, nothing is working :/ I'd appreciate any help, preferably video help through skype. my name is jordanmetzger358. Please add me on skype, and help me out. Thank you.

  3. #278
    Join Date
    Jun 2011
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for making this script RyGuy.

    Time: 2 Hours, 20 Minutes and 47 Seconds
    We have gained 80540 Agility Experience!
    We are gaining 34325 Agility Experience per Hour!

  4. #279
    Join Date
    Feb 2012
    Posts
    554
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm going to use this once I figure out how to get the gree grees
    We are VillaVu a community, We are Simba.
    Hear us Roarrrrrrrrrrrrrrr!!!!!!!!
    ~Life is what you decide to make it, nothing is pre-ordained other than the steps you choose to make~
    ~Karma is Fierce, do the wrong thing and she will get you~!d

  5. #280
    Join Date
    Feb 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @one1988
    if you have done monkey madness then you can get gree gree.
    you kill the monkey archer and take its bones.
    then go to little monkey,it will give you empty talisman.(you need normal monkey gree and monkeyspeak ammy)

    then go to dungeon -AS A MONKEY (take some food and antipoison for traps)
    creatures wont atack you
    at the end of the dung theres some gnome
    use bones and empty gree gree on him - he will change it to ninja monkey gree gree

  6. #281
    Join Date
    Feb 2012
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I don't know what happened, it ran good for 1 hour, now it keeps on failing and clicking tree1. But I still have to do the steps...
    Anyone knows a solution?

  7. #282
    Join Date
    Feb 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    make lowest details.restart simba. ty tu make your compas position manually.

  8. #283
    Join Date
    Feb 2012
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks mate, the lowest graphs seemed to be the problem

  9. #284
    Join Date
    Mar 2007
    Posts
    5,125
    Mentioned
    275 Post(s)
    Quoted
    901 Post(s)

    Default

    Thanks man, running smooth, will post progress report!

  10. #285
    Join Date
    Feb 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I also keep failing. for me its always either before or after the rope swing.

    Im lowest details and have restarted simba, etc.

    I'm assuming theres a problem between RunToSwing, OverWater, and DownTree.

    not sure what im doing wrong from my end - anyone have a suggestion?

  11. #286
    Join Date
    Nov 2011
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default nice script, just got 60 agility for the new quest

    Time: 2 Hours, 32 Minutes and 27 Seconds
    We have gained 56393 Agility Experience!
    We are gaining 22197 Agility Experience per Hour!

    The script is absolutely stable and can run for hours
    I modified the script a little bit to make it eat and used summer pies as food

    Simba Code:
    MaxInvFood := 1;
      Tries := 1;

      repeat
        SetAngle(SRL_ANGLE_HIGH);

        MakeCompass('S');
        SetDTMs;

        if (CurrentHP < 30)then logout;

        ii := MaxInvFood;
        if (CurrentHP < EatAt)then
        repeat
          Wait(500 + random(500));
          if ((ii < 28) and ExistsItem(ii)) then
          begin
            InvMouse(ii, 3);
            if WaitUptext('Eat', 2000) then
              ClickMouse2(mouse_left) else
              Inc(Tries);
            if Tries >= 2 then
              begin
                Inc(MaxInvFood);
                Tries := 1;
              end;
            Wait(1000);
          end;
          if ii < 28 then
            Inc(ii);
    //      FindDTM(EatIt, x, y, MIX1, MIY1, MIX2, MIY2);
    //      Mouse(x, y, 5, 5, True);
        until (CurrentHP > EatAt);

        WhereAreWe;

  12. #287
    Join Date
    Feb 2012
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Im kinda new, i downloaded it, now how do i use it? please pm me.

  13. #288
    Join Date
    Feb 2011
    Location
    Wisconsin
    Posts
    398
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by [J]ustin View Post
    Thanks man, running smooth, will post progress report!
    Np, and can't wait!

    Quote Originally Posted by oligofren View Post
    Time: 2 Hours, 32 Minutes and 27 Seconds
    We have gained 56393 Agility Experience!
    We are gaining 22197 Agility Experience per Hour!

    The script is absolutely stable and can run for hours
    I modified the script a little bit to make it eat and used summer pies as food

    Simba Code:
    MaxInvFood := 1;
      Tries := 1;

      repeat
        SetAngle(SRL_ANGLE_HIGH);

        MakeCompass('S');
        SetDTMs;

        if (CurrentHP < 30)then logout;

        ii := MaxInvFood;
        if (CurrentHP < EatAt)then
        repeat
          Wait(500 + random(500));
          if ((ii < 28) and ExistsItem(ii)) then
          begin
            InvMouse(ii, 3);
            if WaitUptext('Eat', 2000) then
              ClickMouse2(mouse_left) else
              Inc(Tries);
            if Tries >= 2 then
              begin
                Inc(MaxInvFood);
                Tries := 1;
              end;
            Wait(1000);
          end;
          if ii < 28 then
            Inc(ii);
    //      FindDTM(EatIt, x, y, MIX1, MIY1, MIX2, MIY2);
    //      Mouse(x, y, 5, 5, True);
        until (CurrentHP > EatAt);

        WhereAreWe;
    Good to see new(er) users learning to script and modifying them by themselves instead of relying on the OP to do it!

    Quote Originally Posted by spots1 View Post
    Im kinda new, i downloaded it, now how do i use it? please pm me.
    There are a lot of tutorials on the forums on how to setup/ install simba along with running scripts.

  14. #289
    Join Date
    Dec 2011
    Posts
    109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by RyGuy View Post
    Good to see new(er) users learning to script and modifying them by themselves instead of relying on the OP to do it! .
    Or you are too lazy so they HAVE to do it themself.

  15. #290
    Join Date
    Feb 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    okay... I increased the time for the swing - downtree...

    I deleted tree22, but am still going into the hole.
    What's wrong with tree2? Can someone please explain why my adjustments are not working?

    The bot keeps going into the hole

  16. #291
    Join Date
    Dec 2008
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by melinkinchutney View Post
    I also keep failing. for me its always either before or after the rope swing.

    Im lowest details and have restarted simba, etc.

    I'm assuming theres a problem between RunToSwing, OverWater, and DownTree.

    not sure what im doing wrong from my end - anyone have a suggestion?
    Are you actually serious? You can fail this agility course up to 75 agility.

    Back on topic, am going to be testing this and posting feedback etc once I raise my mining a bit more.

  17. #292
    Join Date
    Dec 2011
    Posts
    109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by melinkinchutney View Post
    okay... I increased the time for the swing - downtree...

    I deleted tree22, but am still going into the hole.
    What's wrong with tree2? Can someone please explain why my adjustments are not working?

    The bot keeps going into the hole
    Mate, I also have this after 10 minutes sometimes, but often I don't just check it like every 30-60 minutes if it has failed, and if it did then just restart it.
    Just keep running it.
    RyGuy's won't fix it, because he is most likely too lazy so he says that he wants new(er) members to fix it themself .

  18. #293
    Join Date
    Feb 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script wish i has 75 Agility tho

  19. #294
    Join Date
    Feb 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by shady4201 View Post
    Are you actually serious? You can fail this agility course up to 75 agility.

    Back on topic, am going to be testing this and posting feedback etc once I raise my mining a bit more.
    You're an idiot; I was referring to the script failing at this location.

    Dear Reinier:
    I think I've gotten it to work now.
    I've made some adjustments, and my adjustments seem to be working now.
    ***Deleted the ENTIRE tree2 DTM.
    Its what has been causing the problems.
    There is no reason to try and detect it, when we land in the same place every time after the rope swing.

    Code:
    program ApeAtoll;
    //////////////////////////WRITTEN BY RYGUY//////////////////////////////
    
    ////////////////////////////VERSION 1.35////////////////////////////////
    {$DEFINE SMART}
    {$DEFINE SRL5}
    {$i SRL/srl.simba}
    
    var
      x, y, Stone, Tree1, Bars, Fell, Slope, TopOfSlope,
      ToSwingMM, Swing, Tree2, BottomOfSwing, ToStoneMM,
      TimeBegan, StartingXP, TimesFailed, PickIt, CutIt,
      EatIt, FromPineapple, Stone2, Tree22: integer;
    
      aFound: extended;
    
    ///////////////////////////PLAYER SETUP//////////////////////////////////
    const
      EatAt = 100; //HP to eat at. Set to 0 to disable.
    
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active:=True;
    end;
    
    ////////////////////DO NOT TOUCH BELOW THIS LINE/////////////////////////
    
    
    
    procedure SetDTMs;
    begin
      Stone := DTMFromString('mwQAAAHic42RgYNBmhGB9INYCYnUgFgNiNSC2AWIdoJptQLwZiHcA8S4o/zAQnwLiM0BcC8QpUToMaTG6DBlxegyhPmpg3NC7iqG2eyVD66S1DHkZhgxcQHXoWAQNA61kYCKA4QAAp4oTFA==');
      Stone2 := DTMFromString('mrAAAAHic42BgYNBkZGDQBWJVIJYCYmUg1gdiSxANlN8CxDuAeCsQ7wXiY0B8AogPA3EFEIuJiTNEB2mCcUXbEoaGvjUM1V1LGZr7VjEUZBkxcAHVwLAIFgy0hoEJD4YBAO33EVM=');
      Tree1 := DTMFromString('mggAAAHicY2NgYJBkgABFIFYFYjkoWxyIOaFyIDXyQCwAxFmh+gyvPnxnCHVQZegttGPICzZgiHJWZ+ABymHDjDgwBAAAebwIxQ==');
      Bars := DTMFromString('mggAAAHicY2NgYNBgZGBwBGIpKOYEYlkgjgfKpQNxGhA3MUD4ukDcUeTL4GWnxRDsps/g56TDUNE6nyEqTo6BCyiHjEWgGGgUAzMWDAEAytEJWQ==');
      Fell := DTMFromString('mggAAAHicY2NgYMhmYmBoA2I/IM4C4iQgrgDiaUC5SUBcA8T1QFwNxJVAHGXIzqAcIcjgaSXI0DFxFhxzAeVgmB8JMwIxExYMAQALBAzO');
      Slope := DTMFromString('m6wAAAHic42ZgYChmgIByIC4E4jIonQPEc4B4AhB3AHEtEMsBcSoQm0D1qAKxBBArAbEwEPMCsTgQC4HMyTJhqOtZyeBlr8AQ46fBEBMtw5CRrsCQlCjHkJNkwJARpwdWU5FjysADVC8CxPxImAcHZgRiViBmQsIsODASAABpuxIH');
      TopOfSlope := DTMFromString('mbQAAAHicY2VgYAhnZGBIB+JqIO4G4ttAXAAUzwTiFCCOB2JfIA7wsmWIDnVjCPF3BOPkMlUGVqA4MuYHYhY0DDQOAgCYLAla');
      ToSwingMM := DTMFromString('mQwAAAHicY2ZgYOBjgAAYzQXEHEDc0DWTQSFMjCE2tYiBB8iHYUYkDAQAgskDvA==');
      Swing := DTMFromString('mlwAAAHicY2dgYLgPxJeh+AoU7wHixYwMDM1AejYQLwPirUC8H4jjofJZtaYMy1o9GCbm2jPMKnZmmF/vylDTtYzBP1GLgQsoj45FoJgRBwapgQIAl20TVw==');
      BottomOfSwing := DTMFromString('mggAAAHicY2NgYAhkYmBIBeIgII4H4glAvBiIVYByGkBsAsRdQGwExNZA3NYzDQX72MszpIZoMfAD5bBhRiTMgoQhAAD5kAy6');
      ToStoneMM := DTMFromString('mWAAAAHicY2FgYNjExMCwBIhXAPE0IDYFipkBsQoQmwNxTXMfQ1q4PoNpkgRDiIc6Az9QDBkzomEQAAC7JweS');
      PickIt := DTMFromString('mbQAAAHicY2VgYJAGYjkobQnEdkB8B4hvAvEDIP4JxMeAWHSCBMP3RSoM+2ulGYratRiaJ+ky8APF0TEjFgwGAALkC6s=');
      CutIt := DTMFromString('mggAAAHicY2NgYMhmYmAoY4LQiUCcDMRFQMzFyMDAA8TiUPoXUO1vIN7RJg0kmTAwF5DEhhmxqoYBAF1YBnE=');
      EatIt := DTMFromString('mggAAAHicY2NgYMhlYmDIAuIyIM4G4iQgzgDiJ0C5u0D8EIjfMED4zxlAgAkD758hzcAFZGHDjFh1wAAAeO0JsQ==');
      FromPineapple := DTMFromString('mggAAAHicY2NgYGhhZGBoAOJaIO4A4j4gbgbi+UC5GUC8BoinA/EcIN4AxFY6Qgy9U/QY9FT4GLytxBnK4k0Z/OyUGLiAcuiYH4gZoZgJCbMywAAAAMcLtg==');
    end;
    
    
    
    procedure FreeDTMs;
    begin
      FreeDTM(Stone);
      FreeDTM(Stone2);
      FreeDTM(Tree1);
      FreeDTM(Bars);
      FreeDTM(Fell);
      FreeDTM(Slope);
      FreeDTM(TopOfSlope);
      FreeDTM(ToSwingMM);
      FreeDTM(Swing);
      FreeDTM(BottomOfSwing);
      FreeDTM(ToStoneMM);
      FreeDTM(PickIt);
      FreeDTM(CutIt);
      FreeDTM(EatIt);
      FreeDTM(FromPineapple);
    end;
    
    
    
    procedure Report;
    var
      Exp, ExpHr, TimeRan: integer;
    begin
      TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
      Exp := (GetXPBarTotal - StartingXP);
      ExpHr := Round((Exp * 3600) / (TimeRan));
      WriteLn('Time: ' + TimeRunning);
      WriteLn('We have gained ' + IntToStr(Exp) + ' Agility Experience!');
      WriteLn('We are gaining ' + IntToStr(ExpHr) + ' Agility Experience per Hour!');
    end;
    
    
    
    
    procedure AntiBan;
    begin
      if not(LoggedIn)then
      Exit;
      case Random(300)of
        0: HoverSkill('Agility', false);
        1: PickUpMouse;
        2: RandomMovement;
        3: RandomRClick;
      end;
    end;
    
    
    
    procedure SteppingStone;
    begin
      if FindDTMRotated(Stone, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) or FindDTMRotated(Stone2, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      Mouse(x, y, 5, 5, True);
      Wait(100 + random(50));
      MMouse(300, 140, 15, 15);
      Wait(4250 + random(100));
      AntiBan;
    end;
    
    
    
    procedure UpTree;
    begin
      if FindDTMRotated(Tree1, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      Mouse(x, y, 5, 5, True);
      Wait(100 + random(50));
      MMouse(295, 95, 15, 15);
      Wait(4250 + random(100));
      AntiBan;
    end;
    
    
    
    procedure MonkeyBars;
    var
      BarCount: integer;
    begin
      repeat
        Inc(BarCount);
        if FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, aFound)then
        MMouse(x, y, 2, 2);
        Wait( randomrange (25, 50) );
      until IsUpText('wing') or (BarCount > 15);
      if IsUpText('wing')then
      begin
        ClickMouse2(True);
        Wait(100 + random(50));
        MMouse(285, 170, 15, 15);
        Wait(6550 + random(100));
        AntiBan;
      end;
    end;
    
    
    
    procedure SkullSlope;
    var
      SlopeCount: integer;
    begin
      repeat
        Inc(SlopeCount);
        x := MSCX;
        y := MSCY;
        if FindColorSpiralTolerance(x, y, 3435383, MSX1, MSY1, MSX2, MSY2, 4)then
        MMouse(x, y, 0, 0);
        Wait( randomrange (25, 50));
      until IsUpText('slope') or (SlopeCount > 30);
      if  IsUpText('slope')then
      begin
        ClickMouse2(True);
        Wait(1000 + random(500));
        MMouse(580, 45, 10, 10);
        Wait(1800 + random(1000));
        AntiBan;
        While IsMoving do WaitNone;
      end;
    end;
    
    
    
    procedure RunToSwing;
    begin
      if FindDTMRotated(ToSwingMM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
      Mouse(x, y, 5, 5, True);
      Wait(2500 + random(1000));
      MMouse(215, 85, 15, 15);
    
      Flag;
      Wait(1500 + random(1000));
    end;
    
    
    
    procedure OverWater;
    begin
      if FindDTMRotated(Swing, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      Mouse(x, y, 5, 5, True);
      Wait(900 + random(500));
      MMouse(210, 280, 15, 15);
    
      Wait(2000 + random(1000));
    end;
    
    
    
    procedure DownTree;
    begin
      MMouse(223, 291, 5, 5);
      if IsUpText('pic')then
      begin
        ClickMouse2(True);
      end;
      Wait(1000 + random(500));
      MMouse(685, 55, 10, 10);
    
      Wait(10850 + random(100));
      TimesFailed := 0;
    end;
    
    
    
    procedure BackToStart;
    begin
      if FindDTMRotated(ToStoneMM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
      Mouse(x, y, 5, 5, True);
      Wait(100 + random(50));
      MMouse(295, 180, 15, 15);
      Wait(1000 + random(100));
      Report;
      AntiBan;
      Flag;
    end;
    
    procedure GetPineapple;
    begin
    
    
      begin
        Wait(400 + random(50));
        if FindDTM(PickIt, x, y, MSX1, MSY1, MSX2, MSY2)then
        Mouse(x, y, 5, 5, True);
        Wait(2000 + random(100));
      end;
    
      begin
        if FindDTM(CutIt, x, y, MIX1, MIY1, MIX2, MIY2)then
        Mouse(x, y, 5, 5, False);
        WaitOption('lice', 300);
        Wait(400 + random(50));
        Mouse(190, 430, 20, 20, True);
        Wait(300 + random(50));
      end;
    
      begin
        if FindDTMRotated(FromPineapple, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
        Mouse(x, y, 4, 4, True);
        Wait(1750 + random(100));
      end;
    
    end;
    
    
    
    function CurrentHP:integer;
    var
      s: string;
    begin
      Result := GetMMLevels('health', s);
    end;
    
    
    
    procedure WhereAreWe;
    var
      x, y: integer;
    begin
    
      WriteLn('Failed ' + IntToStr(TimesFailed) + ' Times');
      Inc(TimesFailed);
    
      if FindDTMRotated(Stone, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) or FindDTMRotated(Stone2, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Stone');
        SteppingStone;
      end;
    
      if FindDTMRotated(Tree1, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Tree1');
        UpTree;
      end;
    
      if FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Bars');
        MonkeyBars;
      end;
    
      if FindDTMRotated(Slope, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Slope');
        SkullSlope;
      end;
    
      if FindDTMRotated(TopOfSlope, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Top');
        RunToSwing;
      end;
    
      if FindDTMRotated(Swing, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Swing');
        OverWater;
      end;
    
      begin
        WriteLn('Found Tree 2');
        DownTree;
      end;
    
      if (CurrentHP < 300) and (InvCount < 15)then
      begin
        WriteLn('Getting a Pineapple for later use');
        GetPineapple;
      end;
    
      if FindDTMRotated(BottomOfSwing, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Bottom');
        BackToStart;
      end;
    
      if FindDTMRotated(Fell, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Think you fell.. trying to go back to the stone')
        BackToStart;
      end;
    
      if TimesFailed > 15 then
      begin
        WriteLn('We are probably stuck. Logging out to be safe.');
        Logout;
        TerminateScript;
      end;
    
    end;
    
    
    
    begin
      Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
    
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      TimeBegan := GetSystemTime;
      ToggleXPBar(True);
      StartingXP := (GetXPBarTotal);
    
      repeat
        SetAngle(SRL_ANGLE_HIGH);
    
        MakeCompass('S');
        SetDTMs;
    
        if (CurrentHP < 30)then logout;
    
        if (CurrentHP < EatAt)then
        repeat
          begin
            FindDTM(EatIt, x, y, MIX1, MIY1, MIX2, MIY2);
            Mouse(x, y, 5, 5, True);
          end;
        until (CurrentHP > EatAt);
    
        WhereAreWe;
    
    
    
        LevelUpEx(True, False);
    
        FreeDTMs;
    
      until(AllPlayersInactive);
    end.
    Last edited by melinkinchutney; 02-20-2012 at 12:09 AM.

  20. #295
    Join Date
    Feb 2011
    Location
    Wisconsin
    Posts
    398
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Reinier, people like you make me want to never fix this script. Show some fucking respect. I came to these forums during one of my breaks and taught myself how to script. I now have school again, and have a very limited amount of time to play Runescape. Being an immature asshole is NOT the way to get something done.

  21. #296
    Join Date
    Feb 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by RyGuy View Post
    Reinier, people like you make me want to never fix this script. Show some fucking respect. I came to these forums during one of my breaks and taught myself how to script. I now have school again, and have a very limited amount of time to play Runescape. Being an immature asshole is NOT the way to get something done.
    +1

    MelinkinChutney's fix also removes the music checker after each lap.
    ie: the bot no longer clicks on the music thing before the stepping stone each time.

    Reinier:
    these are free scripts and free forums. If this guy was getting paid to write scripts then yell at him all you want. But you didn't pay anything - so stop being an asshole about it. Simple as that man. Be thankful you got a 98% working script that just required a slight tweaking.

  22. #297
    Join Date
    Dec 2011
    Posts
    109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by RyGuy View Post
    Reinier, people like you make me want to never fix this script. Show some fucking respect. I came to these forums during one of my breaks and taught myself how to script. I now have school again, and have a very limited amount of time to play Runescape. Being an immature asshole is NOT the way to get something done.
    Whenever you have time to fix this script and totally it should be the lowest priority, then fix it? Instead of answering this ''immature asshole (with no mother fucking fuck respect)''.
    When can I expect an update then, how long?

  23. #298
    Join Date
    Feb 2011
    Location
    Wisconsin
    Posts
    398
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    It will probably get done over my spring break, unless I find time sooner

  24. #299
    Join Date
    Feb 2012
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by melinkinchutney View Post
    You're an idiot; I was referring to the script failing at this location.

    Dear Reinier:
    I think I've gotten it to work now.
    I've made some adjustments, and my adjustments seem to be working now.
    ***Deleted the ENTIRE tree2 DTM.
    Its what has been causing the problems.
    There is no reason to try and detect it, when we land in the same place every time after the rope swing.

    Code:
    program ApeAtoll;
    //////////////////////////WRITTEN BY RYGUY//////////////////////////////
    
    ////////////////////////////VERSION 1.35////////////////////////////////
    {$DEFINE SMART}
    {$DEFINE SRL5}
    {$i SRL/srl.simba}
    
    var
      x, y, Stone, Tree1, Bars, Fell, Slope, TopOfSlope,
      ToSwingMM, Swing, Tree2, BottomOfSwing, ToStoneMM,
      TimeBegan, StartingXP, TimesFailed, PickIt, CutIt,
      EatIt, FromPineapple, Stone2, Tree22: integer;
    
      aFound: extended;
    
    ///////////////////////////PLAYER SETUP//////////////////////////////////
    const
      EatAt = 100; //HP to eat at. Set to 0 to disable.
    
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active:=True;
    end;
    
    ////////////////////DO NOT TOUCH BELOW THIS LINE/////////////////////////
    
    
    
    procedure SetDTMs;
    begin
      Stone := DTMFromString('mwQAAAHic42RgYNBmhGB9INYCYnUgFgNiNSC2AWIdoJptQLwZiHcA8S4o/zAQnwLiM0BcC8QpUToMaTG6DBlxegyhPmpg3NC7iqG2eyVD66S1DHkZhgxcQHXoWAQNA61kYCKA4QAAp4oTFA==');
      Stone2 := DTMFromString('mrAAAAHic42BgYNBkZGDQBWJVIJYCYmUg1gdiSxANlN8CxDuAeCsQ7wXiY0B8AogPA3EFEIuJiTNEB2mCcUXbEoaGvjUM1V1LGZr7VjEUZBkxcAHVwLAIFgy0hoEJD4YBAO33EVM=');
      Tree1 := DTMFromString('mggAAAHicY2NgYJBkgABFIFYFYjkoWxyIOaFyIDXyQCwAxFmh+gyvPnxnCHVQZegttGPICzZgiHJWZ+ABymHDjDgwBAAAebwIxQ==');
      Bars := DTMFromString('mggAAAHicY2NgYNBgZGBwBGIpKOYEYlkgjgfKpQNxGhA3MUD4ukDcUeTL4GWnxRDsps/g56TDUNE6nyEqTo6BCyiHjEWgGGgUAzMWDAEAytEJWQ==');
      Fell := DTMFromString('mggAAAHicY2NgYMhmYmBoA2I/IM4C4iQgrgDiaUC5SUBcA8T1QFwNxJVAHGXIzqAcIcjgaSXI0DFxFhxzAeVgmB8JMwIxExYMAQALBAzO');
      Slope := DTMFromString('m6wAAAHic42ZgYChmgIByIC4E4jIonQPEc4B4AhB3AHEtEMsBcSoQm0D1qAKxBBArAbEwEPMCsTgQC4HMyTJhqOtZyeBlr8AQ46fBEBMtw5CRrsCQlCjHkJNkwJARpwdWU5FjysADVC8CxPxImAcHZgRiViBmQsIsODASAABpuxIH');
      TopOfSlope := DTMFromString('mbQAAAHicY2VgYAhnZGBIB+JqIO4G4ttAXAAUzwTiFCCOB2JfIA7wsmWIDnVjCPF3BOPkMlUGVqA4MuYHYhY0DDQOAgCYLAla');
      ToSwingMM := DTMFromString('mQwAAAHicY2ZgYOBjgAAYzQXEHEDc0DWTQSFMjCE2tYiBB8iHYUYkDAQAgskDvA==');
      Swing := DTMFromString('mlwAAAHicY2dgYLgPxJeh+AoU7wHixYwMDM1AejYQLwPirUC8H4jjofJZtaYMy1o9GCbm2jPMKnZmmF/vylDTtYzBP1GLgQsoj45FoJgRBwapgQIAl20TVw==');
      BottomOfSwing := DTMFromString('mggAAAHicY2NgYAhkYmBIBeIgII4H4glAvBiIVYByGkBsAsRdQGwExNZA3NYzDQX72MszpIZoMfAD5bBhRiTMgoQhAAD5kAy6');
      ToStoneMM := DTMFromString('mWAAAAHicY2FgYNjExMCwBIhXAPE0IDYFipkBsQoQmwNxTXMfQ1q4PoNpkgRDiIc6Az9QDBkzomEQAAC7JweS');
      PickIt := DTMFromString('mbQAAAHicY2VgYJAGYjkobQnEdkB8B4hvAvEDIP4JxMeAWHSCBMP3RSoM+2ulGYratRiaJ+ky8APF0TEjFgwGAALkC6s=');
      CutIt := DTMFromString('mggAAAHicY2NgYMhmYmAoY4LQiUCcDMRFQMzFyMDAA8TiUPoXUO1vIN7RJg0kmTAwF5DEhhmxqoYBAF1YBnE=');
      EatIt := DTMFromString('mggAAAHicY2NgYMhlYmDIAuIyIM4G4iQgzgDiJ0C5u0D8EIjfMED4zxlAgAkD758hzcAFZGHDjFh1wAAAeO0JsQ==');
      FromPineapple := DTMFromString('mggAAAHicY2NgYGhhZGBoAOJaIO4A4j4gbgbi+UC5GUC8BoinA/EcIN4AxFY6Qgy9U/QY9FT4GLytxBnK4k0Z/OyUGLiAcuiYH4gZoZgJCbMywAAAAMcLtg==');
    end;
    
    
    
    procedure FreeDTMs;
    begin
      FreeDTM(Stone);
      FreeDTM(Stone2);
      FreeDTM(Tree1);
      FreeDTM(Bars);
      FreeDTM(Fell);
      FreeDTM(Slope);
      FreeDTM(TopOfSlope);
      FreeDTM(ToSwingMM);
      FreeDTM(Swing);
      FreeDTM(BottomOfSwing);
      FreeDTM(ToStoneMM);
      FreeDTM(PickIt);
      FreeDTM(CutIt);
      FreeDTM(EatIt);
      FreeDTM(FromPineapple);
    end;
    
    
    
    procedure Report;
    var
      Exp, ExpHr, TimeRan: integer;
    begin
      TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
      Exp := (GetXPBarTotal - StartingXP);
      ExpHr := Round((Exp * 3600) / (TimeRan));
      WriteLn('Time: ' + TimeRunning);
      WriteLn('We have gained ' + IntToStr(Exp) + ' Agility Experience!');
      WriteLn('We are gaining ' + IntToStr(ExpHr) + ' Agility Experience per Hour!');
    end;
    
    
    
    
    procedure AntiBan;
    begin
      if not(LoggedIn)then
      Exit;
      case Random(300)of
        0: HoverSkill('Agility', false);
        1: PickUpMouse;
        2: RandomMovement;
        3: RandomRClick;
      end;
    end;
    
    
    
    procedure SteppingStone;
    begin
      if FindDTMRotated(Stone, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) or FindDTMRotated(Stone2, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      Mouse(x, y, 5, 5, True);
      Wait(100 + random(50));
      MMouse(300, 140, 15, 15);
      Wait(4250 + random(100));
      AntiBan;
    end;
    
    
    
    procedure UpTree;
    begin
      if FindDTMRotated(Tree1, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      Mouse(x, y, 5, 5, True);
      Wait(100 + random(50));
      MMouse(295, 95, 15, 15);
      Wait(4250 + random(100));
      AntiBan;
    end;
    
    
    
    procedure MonkeyBars;
    var
      BarCount: integer;
    begin
      repeat
        Inc(BarCount);
        if FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, aFound)then
        MMouse(x, y, 2, 2);
        Wait( randomrange (25, 50) );
      until IsUpText('wing') or (BarCount > 15);
      if IsUpText('wing')then
      begin
        ClickMouse2(True);
        Wait(100 + random(50));
        MMouse(285, 170, 15, 15);
        Wait(6550 + random(100));
        AntiBan;
      end;
    end;
    
    
    
    procedure SkullSlope;
    var
      SlopeCount: integer;
    begin
      repeat
        Inc(SlopeCount);
        x := MSCX;
        y := MSCY;
        if FindColorSpiralTolerance(x, y, 3435383, MSX1, MSY1, MSX2, MSY2, 4)then
        MMouse(x, y, 0, 0);
        Wait( randomrange (25, 50));
      until IsUpText('slope') or (SlopeCount > 30);
      if  IsUpText('slope')then
      begin
        ClickMouse2(True);
        Wait(1000 + random(500));
        MMouse(580, 45, 10, 10);
        Wait(1800 + random(1000));
        AntiBan;
        While IsMoving do WaitNone;
      end;
    end;
    
    
    
    procedure RunToSwing;
    begin
      if FindDTMRotated(ToSwingMM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
      Mouse(x, y, 5, 5, True);
      Wait(2500 + random(1000));
      MMouse(215, 85, 15, 15);
    
      Flag;
      Wait(1500 + random(1000));
    end;
    
    
    
    procedure OverWater;
    begin
      if FindDTMRotated(Swing, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      Mouse(x, y, 5, 5, True);
      Wait(900 + random(500));
      MMouse(210, 280, 15, 15);
    
      Wait(2000 + random(1000));
    end;
    
    
    
    procedure DownTree;
    begin
      MMouse(223, 291, 5, 5);
      if IsUpText('pic')then
      begin
        ClickMouse2(True);
      end;
      Wait(1000 + random(500));
      MMouse(685, 55, 10, 10);
    
      Wait(10850 + random(100));
      TimesFailed := 0;
    end;
    
    
    
    procedure BackToStart;
    begin
      if FindDTMRotated(ToStoneMM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
      Mouse(x, y, 5, 5, True);
      Wait(100 + random(50));
      MMouse(295, 180, 15, 15);
      Wait(1000 + random(100));
      Report;
      AntiBan;
      Flag;
    end;
    
    procedure GetPineapple;
    begin
    
    
      begin
        Wait(400 + random(50));
        if FindDTM(PickIt, x, y, MSX1, MSY1, MSX2, MSY2)then
        Mouse(x, y, 5, 5, True);
        Wait(2000 + random(100));
      end;
    
      begin
        if FindDTM(CutIt, x, y, MIX1, MIY1, MIX2, MIY2)then
        Mouse(x, y, 5, 5, False);
        WaitOption('lice', 300);
        Wait(400 + random(50));
        Mouse(190, 430, 20, 20, True);
        Wait(300 + random(50));
      end;
    
      begin
        if FindDTMRotated(FromPineapple, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
        Mouse(x, y, 4, 4, True);
        Wait(1750 + random(100));
      end;
    
    end;
    
    
    
    function CurrentHP:integer;
    var
      s: string;
    begin
      Result := GetMMLevels('health', s);
    end;
    
    
    
    procedure WhereAreWe;
    var
      x, y: integer;
    begin
    
      WriteLn('Failed ' + IntToStr(TimesFailed) + ' Times');
      Inc(TimesFailed);
    
      if FindDTMRotated(Stone, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) or FindDTMRotated(Stone2, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Stone');
        SteppingStone;
      end;
    
      if FindDTMRotated(Tree1, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Tree1');
        UpTree;
      end;
    
      if FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Bars');
        MonkeyBars;
      end;
    
      if FindDTMRotated(Slope, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Slope');
        SkullSlope;
      end;
    
      if FindDTMRotated(TopOfSlope, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Top');
        RunToSwing;
      end;
    
      if FindDTMRotated(Swing, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Swing');
        OverWater;
      end;
    
      begin
        WriteLn('Found Tree 2');
        DownTree;
      end;
    
      if (CurrentHP < 300) and (InvCount < 15)then
      begin
        WriteLn('Getting a Pineapple for later use');
        GetPineapple;
      end;
    
      if FindDTMRotated(BottomOfSwing, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Found Bottom');
        BackToStart;
      end;
    
      if FindDTMRotated(Fell, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
      begin
        WriteLn('Think you fell.. trying to go back to the stone')
        BackToStart;
      end;
    
      if TimesFailed > 15 then
      begin
        WriteLn('We are probably stuck. Logging out to be safe.');
        Logout;
        TerminateScript;
      end;
    
    end;
    
    
    
    begin
      Smart_Server := 86;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
    
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      TimeBegan := GetSystemTime;
      ToggleXPBar(True);
      StartingXP := (GetXPBarTotal);
    
      repeat
        SetAngle(SRL_ANGLE_HIGH);
    
        MakeCompass('S');
        SetDTMs;
    
        if (CurrentHP < 30)then logout;
    
        if (CurrentHP < EatAt)then
        repeat
          begin
            FindDTM(EatIt, x, y, MIX1, MIY1, MIX2, MIY2);
            Mouse(x, y, 5, 5, True);
          end;
        until (CurrentHP > EatAt);
    
        WhereAreWe;
    
    
    
        LevelUpEx(True, False);
    
        FreeDTMs;
    
      until(AllPlayersInactive);
    end.
    Thanks for the edit, will test it as soon as rs is back up
    Last edited by BraK; 02-20-2012 at 12:17 AM.

  25. #300
    Join Date
    Dec 2011
    Posts
    109
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ifrootloops View Post
    +1
    Reinier:
    these are free scripts and free forums. If this guy was getting paid to write scripts then yell at him all you want. But you didn't pay anything - so stop being an asshole about it. Simple as that man. Be thankful you got a 98% working script that just required a slight tweaking.
    This community doesn't have paid scripts and as of what they are saying, they'll never have them. I don't know where you get that idea of "if this/any other individu was getting paid to write scripts then yell at him all you want."
    You are (most likely) from RSBuddy were they had paid scripts, were they had many fools like you that don't think first+ that talk about premium scripts you said is stupid and arrows to rsbuddy.

    Fuck the people that "defend" RyGuy. He finaly answered on a good way, so this is now stopped.
    Don't drag urself too much into other people's little problems.

    Hope you understood me, RSBuddy>Simba weirdo.
    Idc if u r not from RSBuddy afterall, doesn't matter that much (maybe a better attitude).

Page 12 of 26 FirstFirst ... 2101112131422 ... LastLast

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
  •