Results 1 to 10 of 10

Thread: BrimhavenAgilityTrainer(s)!

  1. #1
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default BrimhavenAgilityTrainer(s)!

    Brimhaven Agility Trainer(s)!



    LOW WALL CLIMBER.

    Features.
    - Anti-Ban.
    - Good Wall Finding.
    - Report.
    - Anti-Randoms.
    - Functions/Procedures.
    - Only One Player Usable.
    And More...

    SCAR Code:
    //Start using low detail.
    //Start at the brimhaven dungeon with a low wall to climb there.
    //Set up const & declare players.
    //Hit run & enjoy.
    It now has anti-randoms, but its not really needed since the script logs out before any random could even touch it.

    Version 1.2.
    SCAR Code:
    program BrimhavenAgilityTrainer;
    {.include SRL/SRL.Scar}

    //Start using low detail.
    //Start at the brimhaven dungeon with a low wall to climb there.
    //Set up const & declare players.
    //Hit run & enjoy.

    //LOW WALL CLIMBER.
    //DONT COPY/POST THIS ANYWHERE! NOT ALOUD!

    //ADDED FINDNORMALRANDOMS.
    //ADDED A COUNT OF HOW MANY LOG OUTS.
    //ADDED A THING, THAT TELLS YOU HOW LONG HE SCRIPT RAN FOR.

    const
    DoTraining = 4;//MAKE IT 1-15.
    //How many times to train until log out, plus random 4.
    //Make it 1-15, dont do more, because you might get randoms. It will log out
    //after it has done that, then it will log in.

    var
    X, Y : Integer;
    XP, Did, Did2, Did3, LoggedOut : Integer;
    VersionID : String;

    procedure DeclarePlayers;
    begin

      VersionID := '1.2';
      Did3 := DoTraining + random(4);

      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; //username
      Players[0].Pass := ''; //password
      Players[0].Nick := '';
      Players[0].Active := True;

    end;

    procedure AntiBan;
    begin
      case Random(4)of
     
      0: GameTab(1+random(13));
     
      1: begin
         MMouse(1+random(200), 1+random(300), 200+random(50), 100+random(60));
         Wait(2000+random(3000));
         end;
         
      2: begin
         GameTab(2);
         Wait(1000+random(1000));
         HoverSkill('random', false);
         Wait(500+random(1500));
         GameTab(4);
         end;
         
      3: begin
          case Random(4) of
         
          0: MakeCompass('N');
          1: MakeCompass('E');
          2: MakeCompass('S');
          3: MakeCompass('W');
         
          end;
         end;
         
      end;
    end;

    function ClimbOver : Boolean;
    begin
    if(FindObj(X, Y, 'wall', 7377309, 5))then
    begin
    Mouse(X, Y, 2, 2, True);
    Wait(4500+random(2500));
    Result:=True;
    end else
    Result:=False;
    end;

    procedure Train;
    begin
    repeat
    ClimbOver;
    FindNormalRandoms;
    until(ClimbOver);
    end;

    procedure ForceLogOut;
    begin
    repeat
    LogOut;
    Wait(1000+random(1500));
    until(Not(LoggedIn));
    end;

    procedure Report;
    begin
    ClearDebug;
    begin
    WriteLn('--------------------------------------------------------------------');
    WriteLn('Brimhaven Agility Trainer - Low Wall Climber - Version ' + VersionID + '.');
    WriteLn('--------------------------------------------------------------------');
    WriteLn('Ran For ' + TimeRunning + '.');
    WriteLn('--------------------------------------------------------------------');
    WriteLn('Earned ' + IntToStr(XP) + ' XP.');
    WriteLn('Trained ' + IntToStr(Did) + ' Times.');
    WriteLn('Logged Out ' + IntToStr(LoggedOut) + ' Times.');
    WriteLn('--------------------------------------------------------------------');
    end;
    end;

    procedure MainLoop;
    begin
    repeat
    Train;
    FindNormalRandoms;
    Did := Did + 1;
    Did2 := Did2 + 1;
    XP := XP + 8;
    WriteLn('Did2 = ' + IntToStr(Did2));
    until(Did2 >= Did3);
    if(Did2 >= Did3)then
    begin
    FindNormalRandoms;
    Wait(100+random(900));
    AntiBan;
    Wait(500+Random(4500));
    ForceLogOut;
    Wait(5000+random(5000));
    LogInPlayer;
    Report;
    LoggedOut := LoggedOut + 1;
    Did2 := 0;
    end;
    end;

    begin
    SetUpSRL;
    ActivateClient;
    DeclarePlayers;
    if(not(LoggedIn))then LogInPlayer;
    begin
    repeat
    Report;
    Disguise(IntToStr(XP) + ' ' + IntToStr(Did));
    MainLoop;
    until(False);
    end;
    end.

    More brimhaven dungeon scripts will come, they all will be updated, please post suggestions/comments/progress reports.
    Woot woot.

  2. #2
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    RESERVED FOR BEST PROGRESS REPORTS.

    Best progress report yet; by me, no randoms annoyed me .
    --------------------------------------------------------------------
    Brimhaven Agility Trainer - Low Wall Climber - Version 1.1.
    --------------------------------------------------------------------
    Ran For 2 Hours, 19 Minutes and 40 Seconds.
    --------------------------------------------------------------------
    Earned 3808 XP.
    Trained 476 Times.
    --------------------------------------------------------------------
    Woot woot.

  3. #3
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    looks nice /simple good anti-ban just need some failsafes

    good try
    this for REV#10 am i right?

    since rev 10 jus came out like 10 mins ago hehe

  4. #4
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yep its for srl rev 10 .
    Woot woot.

  5. #5
    Join Date
    Oct 2007
    Location
    Florida, USA
    Posts
    486
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey, have you any idea what the xp/hour is? Ill try to get 60-65 Agility with this. Hopefully it will be able to run overnight .

  6. #6
    Join Date
    Jun 2007
    Location
    Belgium
    Posts
    333
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by U L T R A View Post
    Note that this script does not have anti-randoms because it logs out your character insead, then it logs back in; and that kills all the randoms .
    Since when? Correct me if i'm wrong but when you get a random and log out, the random comes back when you log in.

  7. #7
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey, have you any idea what the xp/hour is? Ill try to get 60-65 Agility with this. Hopefully it will be able to run overnight .
    Yep it sure will run over night easly. And it wont get stuck, i added a proggy over there, its not that much XP but i guess its fine lol, its good for low agility levels.

    No you dont understand lol, it logs out every times its done the right amount of climbing, for example: you tell it do to 4 times, it adds a random 4 to that. When its done it, it will log out, and then log back in. It decreases the chances of you getting a random.
    Woot woot.

  8. #8
    Join Date
    Apr 2008
    Posts
    223
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  9. #9
    Join Date
    Oct 2007
    Posts
    302
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Basic finding, standards not used.

    Not really expanded on much, considering it JUST pops over a wall.

    Nothing else to comment on :\

    Pretty small though :\
    Previously known as boxcrop.


  10. #10
    Join Date
    Apr 2007
    Location
    England
    Posts
    313
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this thing still working, as i would quite like a working agility script atm

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
  •