ryanbaron
2008-03-01 01:03:21
<!– BEGIN TEMPLATE: formanswers –>
ryanbaron - SRL Member Application Form
ryanbaron
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
I know Alot of HTML and PHP, Ive coded alot of runescape private servers with javascript
Other Communitys
sythe.org im a great active member, and im membe ron rsbot.com
How Long have You Played Runescape
ive played rs for about 3 1/2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
i started playing runescape when i was 10 years old, and i started botting when i was 11. i found autofighter.org and i started to code rs private servers with help form alot of people. i made my own server when i was 12 and it was a big success (chaosscape). I just started to script in scar and i have some expierience and im pretty good.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
ryanbaron - SRL Member Application Form
ryanbaron
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
I know Alot of HTML and PHP, Ive coded alot of runescape private servers with javascript
Other Communitys
sythe.org im a great active member, and im membe ron rsbot.com
How Long have You Played Runescape
ive played rs for about 3 1/2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
i started playing runescape when i was 10 years old, and i started botting when i was 11. i found autofighter.org and i started to code rs private servers with help form alot of people. i made my own server when i was 12 and it was a big success (chaosscape). I just started to script in scar and i have some expierience and im pretty good.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program RyansPowerMiner;
{.include SRL/SRL.scar}
const
rockcolor1= 472123;//Set one color of the rock.
rockcolor2= 567243;//Set another color of the rock.
var x,y,randomm: integer;
//------------------\\
Procedure DeclarePlayers; // Fill this out correctly
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // DO NOT TOUCH
CurrentPlayer:=0; // DO NOT TOUCH
Players[0].Name :='USERNAME';//RuneScape Account Username
Players[0].Pass :='PASSWORD';//RuneScape Account Password
Players[0].Nick :='NICKNAME';//3/4 Leters of your RS Username
Players[0].Active:=True; //PLAYER IN USE OR NOT
{
Players[0].Name :='USERNAME';
Players[0].Pass :='PASSWORD';
Players[0].Nick :='NICKNAME';
Players[0].Active:=True;
Players[0].Name :='USERNAME';
Players[0].Pass :='PASSWORD';
Players[0].Nick :='NICKNAME';
Players[0].Active:=True;
}
end;
//----------------\\
Procedure Randoms;
Begin
FindTalk; //Finds talking randoms
FindNormalRandoms; //Finds normal randoms
SolveChatRandom; //Sloves chat randoms
FindLamp('Mining'); //Solves lamp and then choses a skill to update
SolvePinball; //Solves pinball random
DwarfItem; //Drops dawalf items
If(FindFight)Then //Runs away from fight
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
End;
End;
//----------------\\
procedure antiban;
begin
randomm := Random(4)
case randomm of
0: begin
Wait(3591+(random(287)));
RandomRClick;
Wait(3591+(random(287)));
RandomlyChosenSkill;
Randoms
end;
1: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
2: begin
Wait(3294+(random(873)));
Randoms;
HoverSkill('Mining' ,false);
Wait(3294+(random(873)));
end;
3: begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
end;
end;
//-------------\\
Procedure minerock;
begin
if not LoggedIn then
Exit;
repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
begin
Mouse(x,y,0,0,false);
Wait(500+(random(150)));
ChooseOption('ine')
randoms
antiban;
writeln('found rock');
end else
writeln('couldnt find rock');
randoms;
antiban;
antiban;
antiban;
until( InvFull )
end;
//-----------------\\
procedure drop;
begin
antiban;
DropToPosition(2,28);; // Drops inventory slot 2-28.
antiban;
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
minerock;
drop;
until(IsFKeyDown(3));
end.——————————————————
<!– END TEMPLATE: formanswers –>