Page 37 of 38 FirstFirst ... 2735363738 LastLast
Results 901 to 925 of 945

Thread: Simple FightCaveTrainer

  1. #901
    Join Date
    Jan 2012
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    i dont know if anyone knows this, but there was an update today and this script doesnt work anymore! plz help

  2. #902
    Join Date
    Jul 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    End;
    FightCaveLoop;
    Clicktocontinue;
    End;
    End.


    This works. Although it takes a while to click continue, and the npc's don't spawn until you do.
    So it's a bit slower but not that much of a difference.
    Last edited by Nashua; 05-09-2013 at 11:00 PM.

  3. #903
    Join Date
    Mar 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    has anyone gotten trouble when entering cave and staying right in the entrance?

  4. #904
    Join Date
    Sep 2008
    Posts
    754
    Mentioned
    8 Post(s)
    Quoted
    275 Post(s)

    Default

    In regards to the continue just add as many others have posted

    Simba Code:
    ClicktoContinue;

    or

    Simba Code:
    if clicktocontinue then
    clicktocontinue;
    all work.

    So it would look like...
    Simba Code:
    program FightCaveTrainer;

    {$DEFINE SMART}
    {$i SRL-OSR/Srl.simba}

    Const
      caveTol = 2;
      version = '0.6';

    Var
      counter, caveEntrances: Integer;
      caveEntranceWhite: TIntegerArray;

    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
    End;

    Function FightCaveSleep(sleepx, sleepy: Integer; retaliate: Boolean): Boolean;
    Var
      x , y, sleepTime: Integer;
      loop : Boolean;
    Begin
      loop := true;
      counter := 0;
      sleepTime := RandomRange(sleepx, sleepy);
      While loop Do
      Begin
        If FindObjCustom(x, y, [' '], caveEntranceWhite, caveTol) Then
        Begin
          Result := false;
          loop := false;
          WriteLn('We see cave entrance!');
        End Else If (not (InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150))) and (retaliate) Then
        Begin
          Result := false;
          loop := false;
        End Else If (sleepTime - counter > 0) and loop = true Then
        Begin
          wait(10);
          counter := (counter + 10);
        End Else
        Begin
          Result := True;
          loop := False;
        End;
      End;
    End;

    Procedure FightCaveLoop;
    Var
      x, y : Integer;
    Begin
        If FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Then
        Begin
          WriteLn('Found correct cave!');
          ClickMouse2(True);
          While FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Do
          Begin
            ClickMouse2(true);
            Wait(RandomRange(500, 1000));
          End;
          If RandomRange(1, 10) > 8 Then
          Begin
            SetRun(true);
            GameTab(tab_Stats);
          End;
          caveEntrances := (caveEntrances + 1);
          WriteLn('Entered cave.');
          ClearDebug;

          WriteLn('-*         FightCaveTrainer v'+version);
          WriteLn('-*         ');
          WriteLn('-*         Entered: ' + intToStr(caveEntrances));
          WriteLn('-*         Runtime: ' + TimeRunning);

          Wait(RandomRange(4000, 5000));
          Clicktocontinue;
          SetAngle(0);
        End Else
        If (Not FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol)) and (CountDots('yellow') > 0) Then
        Begin
          FightCaveSleep(200,500,False);
          If InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150) Then
          Begin
            If (FightCaveSleep(3000,5000,True)) Then
            Begin
              If InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150) Then
              Begin
                Retaliate(False);
                Wait(RandomRange(500,700));
                Retaliate(True);
                GameTab(tab_Stats);
                Clicktocontinue;
                FightCaveSleep(3000,5000,False);
              End;
            End;
          End;
        End Else MakeCompass(185);
    End;

    Begin
      SetupSRL;
      DeclarePlayers;
      SetRun(True);
      GameTab(tab_Stats);
      caveEntranceWhite := [7763583, 8553356];
      MouseSpeed := 15;

      While(True) Do
      Begin
        If not LoggedIn Then
        Begin
          LogInPlayer;
          SetRun(True);
          GameTab(tab_Stats);
          MakeCompass(185);
          SetAngle(0);
        End;
        FightCaveLoop;
        Clicktocontinue;
      End;
    End.

    This will click the message every-time it enters the cave, this is the original script if you've made your own modifications then you have to edit them in (I.E comment out setrun/gametab stats etc..)
    Last edited by samerdl; 05-09-2013 at 11:57 PM.

  5. #905
    Join Date
    Jul 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    It's possible to get stuck at start of the cave when entering and it doesn't walk you up.

    Hmm, wonder what causes this.

  6. #906
    Join Date
    Apr 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Its a bug when servers crashed on RS, it works for me now.

  7. #907
    Join Date
    Jul 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    It will sometimes like double or triple click on the cave.

    Sometimes this click is just after you entered cave already. So it will walk like 2sqs infront of entrance instead of auto walking to middle.

  8. #908
    Join Date
    Sep 2008
    Posts
    754
    Mentioned
    8 Post(s)
    Quoted
    275 Post(s)

    Default

    Quote Originally Posted by Nashua View Post
    It will sometimes like double or triple click on the cave.

    Sometimes this click is just after you entered cave already. So it will walk like 2sqs infront of entrance instead of auto walking to middle.
    Don't wear any white items,

    Also just to be safe you can change around...
    Simba Code:
    Procedure FightCaveLoop;
    Var
      x, y : Integer;
    Begin
        If FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Then
        Begin
          WriteLn('Found correct cave!');
          ClickMouse2(True);
          While FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Do
          Begin
            ClickMouse2(true);
            Wait(RandomRange(500, 1000));

    Change the later to
    Simba Code:
    Wait(randomrange(5000,7000));
    Give it more wait time after it clicks, so it wont find the entrance again.
    Last edited by samerdl; 05-12-2013 at 11:47 AM.

  9. #909
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    Quote Originally Posted by samerdl View Post
    Don't wear any white items,

    Also just to be safe you can change around...
    Simba Code:
    Procedure FightCaveLoop;
    Var
      x, y : Integer;
    Begin
        If FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Then
        Begin
          WriteLn('Found correct cave!');
          ClickMouse2(True);
          While FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Do
          Begin
            ClickMouse2(true);
            Wait(RandomRange(500, 1000));

    Change the later to
    [simba]
    Wait(randomrange(3000,5000)); Give it more wait time after it clicks, so it wont find the entrance again.
    I'm also experiencing Nashua's problems.
    I've made this change, will let you know how it pans out.
    My bot runs in full iron - the only white clothing would be the two or three pixels of an amulet's white part.

  10. #910
    Join Date
    Sep 2008
    Posts
    754
    Mentioned
    8 Post(s)
    Quoted
    275 Post(s)

    Default

    Quote Originally Posted by Deni_mulic View Post
    I'm also experiencing Nashua's problems.
    I've made this change, will let you know how it pans out.
    My bot runs in full iron - the only white clothing would be the two or three pixels of an amulet's white part.
    Well you could add something else to make sure it works.. but it has to be added differently

  11. #911
    Join Date
    Mar 2013
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Would it be possible to add a ''walk-to-middle'' feature? Because sometimes, if you kill a ranger, in the next wave a monster get stuck and character will go idle for hours and hours :/

    Thanks! For the rest, great script, fluently!

  12. #912
    Join Date
    Jan 2012
    Posts
    137
    Mentioned
    0 Post(s)
    Quoted
    27 Post(s)

    Default

    This script is designed to not get to rangers. If you're getting to rangers, take some armor off so you die quicker.

  13. #913
    Join Date
    Mar 2013
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    10 Post(s)

    Default

    is this working right now?

  14. #914
    Join Date
    Apr 2013
    Posts
    2
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by mees94 View Post
    Would it be possible to add a ''walk-to-middle'' feature? Because sometimes, if you kill a ranger, in the next wave a monster get stuck and character will go idle for hours and hours :/

    Thanks! For the rest, great script, fluently!
    For me, if it gets to the rangers it just auto logs, and logs back in, so the rangers do not get stuck. Takes a while though.

  15. #915
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    Quote Originally Posted by samerdl View Post
    Well you could add something else to make sure it works.. but it has to be added differently
    Seems to have survived an 8 hour run so far, looks good.

  16. #916
    Join Date
    May 2013
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    for what level is this script made????

  17. #917
    Join Date
    Sep 2008
    Posts
    754
    Mentioned
    8 Post(s)
    Quoted
    275 Post(s)

    Default

    Quote Originally Posted by rivaldo View Post
    for what level is this script made????
    Levels 3-60, anything higher and with good gear (not 1 def pure) will probably end up getting stuck at the corners once you reach the rangers (level 90s).
    Its possible to use this while being 100~ combat, but you'd have to do it without armor.

    Are you guys still getting the Bug at the entrance? Maybe you could try to change the color settings/tolerance for the cave detection. Try to use AutoColorAid for that.

  18. #918
    Join Date
    May 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    its not clicking "click to continue"

  19. #919
    Join Date
    Jan 2012
    Location
    New Zealand
    Posts
    331
    Mentioned
    4 Post(s)
    Quoted
    94 Post(s)

    Default

    Hi their can someone just impliment a quick exp counter? that would be great thanks
    Current Rank Supreme Master First Class

  20. #920
    Join Date
    Sep 2008
    Posts
    754
    Mentioned
    8 Post(s)
    Quoted
    275 Post(s)

    Default

    Quote Originally Posted by maruxxx1 View Post
    its not clicking "click to continue"
    Tried this? http://villavu.com/forum/showthread....66#post1236266

  21. #921
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    Quote Originally Posted by samerdl View Post
    Just thought I'd let you know, adding the wait after clicking for cave fixed it for me - ~30 hours straight so far

  22. #922
    Join Date
    Sep 2008
    Posts
    754
    Mentioned
    8 Post(s)
    Quoted
    275 Post(s)

    Default

    Quote Originally Posted by Deni_mulic View Post
    Just thought I'd let you know, adding the wait after clicking for cave fixed it for me - ~30 hours straight so far
    Glad it helped, am trying to contact Nebula to get his script back going, no response though.

  23. #923
    Join Date
    Feb 2013
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    12 Post(s)

    Default

    it walks in the middle of the cave but then no monsters are comming...
    Can somebody help me :s

  24. #924
    Join Date
    Nov 2012
    Posts
    54
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Quote Originally Posted by 07freak View Post
    it walks in the middle of the cave but then no monsters are comming...
    Can somebody help me :s
    check what samerdl said it will work (fourth post on this page)

  25. #925
    Join Date
    Feb 2013
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    12 Post(s)

    Default

    Quote Originally Posted by viljo View Post
    check what samerdl said it will work (fourth post on this page)
    ily

Page 37 of 38 FirstFirst ... 2735363738 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
  •