Smarter Child
2009-01-19 19:14:49
<!– BEGIN TEMPLATE: formanswers –>
Smarter Child - SRL Member Application Form
Smarter Child
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Delphi and some Java
Other Communitys
Sythe
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am a bright honest SRL scripter, i am looking foward to learn more about Scar and all the more advanced part of scripting. I spend most of my time on the forums and IRC, learning/scripting.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Smarter Child - SRL Member Application Form
Smarter Child
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Delphi and some Java
Other Communitys
Sythe
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am a bright honest SRL scripter, i am looking foward to learn more about Scar and all the more advanced part of scripting. I spend most of my time on the forums and IRC, learning/scripting.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program DraynorCutter;
{.include SRL\SRL.Scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
{ ***********************************************
* leather cock's(SmarterChild) *
* Draynor WoodCutter & Banker! *
* Version_:0.1 *
* *
*********************************************** }
Const
TreeColor= 0;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '";
Players[0].Nick := 'oly';
Players[0].Active := True;
end;
Procedure Preperations;
begin
SetRun(true);
MakeCompass('n');
end;
//___Just_some_random_stuff_:p\\
procedure ChopTree;
var
X,Y: Integer;
CuttingTime: integer;
Tries: integer;
begin
MarkTime(CuttingTime);
MakeCompass('S');
repeat
if FindObjCustom(x , y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7) then
begin
Mouse(x,y,0,0,false);
if(IsUpText('Chop'))then
Wait(5000 + (random(150)));
ChooseOption('hop')
Wait(7000 + (random(3800)));
if (not (FindObjCustom(x, y, ['Wil', 'low'], [1989969, 3760987, 2844763], 7))) then
Wait(100+random(100));
Tries := Tries + 1;
if(Tries = 50)then
begin
Writeln ('Willow Logs not found. Switching Players..');
Logout;
NextPlayer(False);
Exit;
end;
end;
until(InvFull) or (TimeFromMark(CuttingTime) > 800000+random(60000));
end;
//__The_basis_of_practically_the_whole_script_.\\
Procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(22) of
1:RandomRClick;
2:HoverSkill('Firemaking', False);
3:BoredHuman;
4:HoverSkill('WoodCutting', False);
5:RandomRClick;
6:BoredHuman;
end;
end;
//__Small_AntiBan_that_sucks_\\
Procedure WalkToBank;
var
X, Y : Integer;
begin
if (not(LoggedIn)) then
Exit;
SymbolAccuracy:= 0.2;
MakeCompass('N');
if (FindSymbol(x, y, 'bank')) then
begin
Mouse(x, y, 2, 2, true);
FFlag(0);
Writeln('Got to bank');
end;
end;
//_hopefully_works_!!!_\\
Procedure WalkToWillows;
var
X, Y : Integer;
begin
if (not(LoggedIn)) then
Exit;
MakeCompass('N');
if (FindSymbol(x, y, 'fish')) then
begin
Mouse(x, y, 2, 2, true);
FFlag(0);
Writeln('Got to Willows!');
end;
end;
Procedure Banking;
begin
OpenBank('db', true, true);
DepositAll;
CloseBank;
end;
Procedure Mainloop;
begin
repeat
SetupSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
FindNormalRandoms;
AntiBan;
Preperations;
AntiBan;
FindNormalRandoms;
WalkToWillows;
AntiBan;
ChopTree;
FindNormalRandoms;
AntiBan;
WalkToBank;
AntiBan;
Banking;
AntiBan;
until (not LoggedIn)
end;
{ M__A__I__N____L__O__O__P__!!! }
begin
Mainloop;
end.——————————————————
<!– END TEMPLATE: formanswers –>
