mad cow10912
2012-05-23 01:05:44
How Long have You Played Runescape?
4 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
very little
Are you a member of any other communities?
no
Tell us about yourself…
Please show us one (or multiple) of your scripts.
4 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
very little
Are you a member of any other communities?
no
Tell us about yourself…
From: mad cow10912
my name is cade i am 17 years old. I have never really messed with scripting until now and do not know a whole bunch but I am looking foward to learning i have made a simple script for cutting a yew in edgeville and am working on improving my first script:D
Please show us one (or multiple) of your scripts.
program new;
{$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', true);
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
FindNormalRandoms
if FindObj(x, y, 'hop', 2501682, 35) then
if FindObj(x, y, 'hop', 4674909, 35) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop');
end;
repeat
wait(1200+random(250));
until not IsUpText('ew') or (InvFull);
until(InvFull);
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
ChopTree;
end.