Ultra
2008-01-17 19:32:14
Brimhaven Agility Trainer(s)!
LOW WALL CLIMBER.
Features.
- Anti-Ban.
- Good Wall Finding.
- Report.
- Anti-Randoms.
- Functions/Procedures.
- Only One Player Usable.
And More…
//Start using low detail.
//Start at the brimhaven dungeon with a low wall to climb there.
//Set up const & declare players.
//Hit run & enjoy.Version 1.2.
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.