Jethr0x
2007-01-23 20:46:13
Jethr0x - SRL Member Application Form
Jethr0x
What is the meaning to life?
47
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Visual Basic
Other Communitys
Mopar, Sythe, Cruels.
How Long have You Played Runescape
1 year
Are you affilated in anyway with Jagex LTD?
No, and dont plan to be.
—————————————————–
Please write down a paragraph about Yourself.
I know some visual basic, because at a time, I thought it was the only way to Macro, until i learned about scar, other then that, im 14, live in FL, have a life, so I wont be on 24/7 (sorry if thats what u looking for).
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
Jethr0x
What is the meaning to life?
47
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Visual Basic
Other Communitys
Mopar, Sythe, Cruels.
How Long have You Played Runescape
1 year
Are you affilated in anyway with Jagex LTD?
No, and dont plan to be.
—————————————————–
Please write down a paragraph about Yourself.
I know some visual basic, because at a time, I thought it was the only way to Macro, until i learned about scar, other then that, im 14, live in FL, have a life, so I wont be on 24/7 (sorry if thats what u looking for).
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{
//-----------------------------------------------------------------------\\
|| Runescape Helper ||
|| by: Jethr0x ||
\\-----------------------------------------------------------------------//
===========================================================================
How to use:
Press F5 to login.
Press F6 to make map north.
Press F7 to Turn run on.
Press F8 to drop inventory.
Press F9 to type "Message1"
Press F10 to do a random emote.
===========================================================================}
program RSHelper_v1;
{.include srl/srl.scar}
{
//-----------------------------------------------------------------------\\
|| Setup Below ||
\\-----------------------------------------------------------------------// }
const
MyNumberOfPlayers = 1; //The number of players that will be autoing.
Message1 = 'glow1:shake: Hello My Fellow Nublets'; //A message you want to say
procedure DeclarePlayers;
begin
HowManyPlayers := MyNumberOfPlayers;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='Username';
Players[0].Pass :='Password';
Players[0].Nick :='Nick';
Players[0].Active := True;
end;
{
//-----------------------------------------------------------------------\\
|| Procedures ||
\\-----------------------------------------------------------------------// }
Procedure Login;
begin
wait(10+random(20))
if IsFKeyDown(5) then
begin
declareplayers;
wait(10+random(20))
LoginPlayer;
wait(10+random(20))
end;
end;
Procedure MapNorth;
begin
wait(10+random(20))
if IsFKeyDown(6) then
begin
wait(10+random(20))
PerfectNorth
wait(10+random(20))
end;
end;
Procedure Run;
begin
wait(10+random(20))
if IsFKeyDown(7) then
begin
wait(10+random(20))
SetRun(true);
wait(10+random(20))
end;
end;
Procedure Drop;
begin
wait(10+random(20))
if IsFKeyDown(8) then
begin
wait(10+random(20))
Dropall;
wait(10+random(20))
end;
end;
Procedure Msg1;
begin
wait(10+random(20))
if IsFKeyDown(9) then
begin
wait(10+random(20))
TypeSend(Message1);
wait(10+random(20))
end;
end;
Procedure Emo;
begin
wait(10+random(20))
if IsFKeyDown(10) then
begin
wait(10+random(20))
RandomEmote;
wait(10+random(20))
end;
end;
{
//----------------------------------------------------------------------------\\
|| Main Loop ||
\\----------------------------------------------------------------------------//
}
begin
setupsrl;
activateclient;
repeat
Login;
MapNorth;
Run;
Drop;
Msg1;
Emo;
until(false)
end.——————————————————