forx
2012-01-29 15:43:51
How Long have You Played Runescape?
3 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Have had a Rs Private server, Now learning to script with simba. Learned the basic's already.
Are you a member of any other communities?
Nope
Tell us about yourself…
Please show us one (or multiple) of your scripts.
3 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Have had a Rs Private server, Now learning to script with simba. Learned the basic's already.
Are you a member of any other communities?
Nope
Tell us about yourself…
From: forx
Im a guy from sweden, that likes to get a challange such as writing scripts, making programs. Other interests are cars.
Please show us one (or multiple) of your scripts.
program First_script;
{$I SRL/SRL/misc/smart.simba}
{$I SRL/SRL.simba}
const
WORLD = 0;
MEMBERS = False;
SIGNED = True;
Procedure DeclarePlayers;
Begin
ActivateClient;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active:=True;
end;
procedure AntiBanSm;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(20) of
0:
begin;
WriteLn('AntiBanSm chosen: Pick Up Mouse.');
PickUpMouse;
end;
2:
begin
WriteLn('AntiBanSm chosen: Random Right-Click.');
RandomRClick;
end;
3:
begin
WriteLn('AntiBanSm chosen: Random Mouse Movement.');
RandomMovement;
end;
4:
begin
WriteLn('AntiBanSm chosen: Examine Random Inventory Item.');
ExamineInv;
end;
end;
end;
procedure AntiBanLg;
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');
end;
end;
end;
procedure ChopTree;
var x, y: integer;
Begin
repeat
FindNormalRandoms;
if Findobj(x, y, 'hop', 1649978, 35) then
Mouse(x, y, 0, 0, true);
ChooseOption('hop');
Wait(2800+random(1000));
until(InvFull);
end;
begin
Smart_Server := WORLD;
Smart_Members := MEMBERS;
Smart_Signed := SIGNED;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;DeclarePlayers procedure, making sure that the script has a player to run.
LoginPlayer;
Repeat
Choptree;
until Allplayersinactive;
end.