MagicClty
2012-08-09 18:16:55
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
SRL, JAVA, and HTML
Are you a member of any other communities?
no
Tell us about yourself…
Please show us one (or multiple) of your scripts.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
SRL, JAVA, and HTML
Are you a member of any other communities?
no
Tell us about yourself…
From: MagicClty
I'm a mature teenager that will add well to this community. As well as gaming on the computer, I play lacrosse. In school I take full IB (IB : International Baccalaureate), and pass 94% and higher. I have many friends and I'm friendly to others. I would be honored to be added to this community of developers, and would love to share thoughts and support as well as create and share new scripts.
Please show us one (or multiple) of your scripts.
program MapleChopper;
{$DEFINE SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active:=True;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(8) of
0:
begin
HoverSkill('Woodcutting', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;
end;
end;
procedure ChopTree;
var x, y: integer;
begin
repeat
if FindObj(x, y, 'hop', 3683711, 20) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('hop');
end;
repeat
Wait(400+random(250));
AntiBan;
Until not IsUpText('aple') or (InvFull);
until(InvFull);
if (InvFull)then
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
SetupRandomTool(10000, 5, 'C:/Simba/randomSound.mp3');
ChopTree;
DropAllExcept([1]);
end.