SRL Archive - RS3 Script Requests

-Request-Wilderness agility course


martijn1

2012-10-30 02:08:24

hello,

just a request if someone can make a wilderness agility course script.

just have to start the script @ the course with summer pies / other food in inventory.


hope this can be done and if more info is needed please ask.

gr,

martijn

Ashaman88

2012-10-30 07:14:10

Been slowly working on one of these

xtrapsp

2012-10-30 07:40:13

here run this ANYWHERE on Runescape, it will walk you there and work providing you have a edgeville teleport. If not just start in edgeville bank:

edit: fixed



program WildernessAgilityCourse;
{$DEFINE SMART}
{$i SRL/srl.simba}

Const

//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';

//General settings
Antipk = 'Yes'; // if someone attacks you run and logout
food = 'lobster'; //lobster,shark,tuna,sardine


Var
Runtoagility:TStringArray;
x,y, J, log,swing,cross,jump: Integer;


Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Runecrafting;
Active := True;
end;
end;

Procedure SetNorth;
begin
Mouse(542, 24, 15, 15, mouse_left);
KeyDown(38);
Wait(850 + Random(100));
KeyUp(38);
end;


Procedure Shutdown(Reason: String);
begin
ClearDebug;
Writeln('');
WriteLn('{{{==Script shutdown==}}}');
Writeln('----Reason: '+Reason+'----');
Writeln('');
Wait(RandomRange(1000,1300));

Logout;
ShowMessage('[Shutdown] Reason: '+Reason);
TerminateScript;
end;

Procedure JE4;
begin
if (J = 4) then
begin
WriteLn('Withdrawing failed, logging out');
repeat
Logout;
TerminateScript;
until (not LoggedIn);
end;
end;
procedure locateagility;
begin
writeln('Running around the course');
OpenWebPage('http://www.youtube.com/user/YoHoJoSRL');
OpenWebPage('http://villavu.com/forum/showthread.php?t=15240');
OpenWebPage('http://villavu.com/forum/showthread.php?t=74090');
OpenWebPage('http://villavu.com/forum/showthread.php?t=75666');
end;
Procedure MagicTab;
begin
Gametab(tab_Magic);
end;

Procedure FreeagilityDTMs;
begin
FreeDTM(log);
FreeDTM(swing);
FreeDTM(jump);
FreeDTM(cross);
end;

begin
locateagility;
wait(100000);
end.

martijn1

2012-10-30 08:30:39

Thanks for the fast reply but when i run it it doesn't open the smart window is it just me or do i need to code something myself?

-it started smart now will post reply if it works :)

riwu

2012-10-30 08:44:32

From: martijn1
Thanks for the fast reply but when i run it it doesn't open the smart window is it just me or do i need to code something myself?

Yeah you just need to code a bit yourself. It should open up a few webpages with detailed instructions right? Just read through them and follow the instructions then you can get this and almost every scripts to work ;)

martijn1

2012-10-30 08:47:17

ah alright dont have stuff to do anyway will be fun trying to make this one work :)

xtrapsp

2012-10-30 08:51:03

Hey, this should work. Sorry for the bug:


program WildernessAgilityCourse;
{$DEFINE SMART}
{$i SRL/srl.simba}

Const

//SRL Stats
SRLStats_Username = '';
SRLStats_Password = '';

//General settings
Antipk = 'Yes'; // if someone attacks you run and logout
food = 'lobster'; //lobster,shark,tuna,sardine


Var
Runtoagility:TStringArray;
x,y, J, log,swing,cross,jump: Integer;


Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Runecrafting;
Active := True;
end;
end;

Procedure SetNorth;
begin
Mouse(542, 24, 15, 15, mouse_left);
KeyDown(38);
Wait(850 + Random(100));
KeyUp(38);
end;


Procedure Shutdown(Reason: String);
begin
ClearDebug;
Writeln('');
WriteLn('{{{==Script shutdown==}}}');
Writeln('----Reason: '+Reason+'----');
Writeln('');
Wait(RandomRange(1000,1300));

Logout;
ShowMessage('[Shutdown] Reason: '+Reason);
TerminateScript;
end;

Procedure JE4;
begin
if (J = 4) then
begin
WriteLn('Withdrawing failed, logging out');
repeat
Logout;
TerminateScript;
until (not LoggedIn);
end;
end;
procedure locateagility;
begin
writeln('Running around the course');
OpenWebPage('http://www.youtube.com/user/YoHoJoSRL');
OpenWebPage('http://villavu.com/forum/showthread.php?t=15240');
OpenWebPage('http://villavu.com/forum/showthread.php?t=74090');
OpenWebPage('http://villavu.com/forum/showthread.php?t=75666');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=70');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=191');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=95');
OpenWebPage('http://villavu.com/forum/showthread.php?t=69179');
OpenWebPage('http://www.youtube.com/user/YoHoJoSRL');
OpenWebPage('http://villavu.com/forum/showthread.php?t=15240');
OpenWebPage('http://villavu.com/forum/showthread.php?t=74090');
OpenWebPage('http://villavu.com/forum/showthread.php?t=75666');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=70');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=191');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=95');
OpenWebPage('http://villavu.com/forum/showthread.php?t=69179');
OpenWebPage('http://www.youtube.com/user/YoHoJoSRL');
OpenWebPage('http://villavu.com/forum/showthread.php?t=15240');
OpenWebPage('http://villavu.com/forum/showthread.php?t=74090');
OpenWebPage('http://villavu.com/forum/showthread.php?t=75666');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=70');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=191');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=95');
OpenWebPage('http://villavu.com/forum/showthread.php?t=69179');
OpenWebPage('http://www.youtube.com/user/YoHoJoSRL');
OpenWebPage('http://villavu.com/forum/showthread.php?t=15240');
OpenWebPage('http://villavu.com/forum/showthread.php?t=74090');
OpenWebPage('http://villavu.com/forum/showthread.php?t=75666');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=70');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=191');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=95');
OpenWebPage('http://villavu.com/forum/showthread.php?t=69179');
OpenWebPage('http://www.youtube.com/user/YoHoJoSRL');
OpenWebPage('http://villavu.com/forum/showthread.php?t=15240');
OpenWebPage('http://villavu.com/forum/showthread.php?t=74090');
OpenWebPage('http://villavu.com/forum/showthread.php?t=75666');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=70');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=191');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=95');
OpenWebPage('http://villavu.com/forum/showthread.php?t=69179');
OpenWebPage('http://www.youtube.com/user/YoHoJoSRL');
OpenWebPage('http://villavu.com/forum/showthread.php?t=15240');
OpenWebPage('http://villavu.com/forum/showthread.php?t=74090');
OpenWebPage('http://villavu.com/forum/showthread.php?t=75666');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=70');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=191');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=95');
OpenWebPage('http://villavu.com/forum/showthread.php?t=69179');
OpenWebPage('http://www.youtube.com/user/YoHoJoSRL');
OpenWebPage('http://villavu.com/forum/showthread.php?t=15240');
OpenWebPage('http://villavu.com/forum/showthread.php?t=74090');
OpenWebPage('http://villavu.com/forum/showthread.php?t=75666');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=70');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=191');
OpenWebPage('http://villavu.com/forum/forumdisplay.php?f=95');
OpenWebPage('http://villavu.com/forum/showthread.php?t=69179');

end;
Procedure MagicTab;
begin
Gametab(tab_Magic);
end;

Procedure FreeagilityDTMs;
begin
FreeDTM(log);
FreeDTM(swing);
FreeDTM(jump);
FreeDTM(cross);
end;

begin
locateagility;
end.

martijn1

2012-10-30 08:53:24

i now know of the web pages watching your youtube tutorial now you don't have to kill my browser ^^

xtrapsp

2012-10-30 08:54:28

From: martijn1
i now know of the web pages watching your youtube tutorial now you don't have to kill my browser ^^


I think you finally clicked…

Benny

2012-10-30 09:43:41

From: xtrapsp
I think you finally clicked…


you sir are very sneaky ;) lol at people who copy and paste ::duh: