Naike
2007-12-30 18:14:40
<!– BEGIN TEMPLATE: formanswers –>
n1keee - SRL Member Application Form
n1keee
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Asked a guy with 24k Yew logs!
Programming Knowledge
Visual Basic & A bit of Delphi
Other Communitys
Sythe , Fagex
How Long have You Played Runescape
4 Years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hi.
I been on this site for a while and i think i got what it takes to get membership. I start visiting this site a year back and i started to learn. I didnt register after 6 months and 3 weeks back my computer got Overheating problems, (To much autoing). I lost my scripts but i made a new one ( This was done in 2 hours rush ^^ ) Auto alcher :)! Hope you like it and make me a
Srl member.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
n1keee - SRL Member Application Form
n1keee
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Asked a guy with 24k Yew logs!
Programming Knowledge
Visual Basic & A bit of Delphi
Other Communitys
Sythe , Fagex
How Long have You Played Runescape
4 Years.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hi.
I been on this site for a while and i think i got what it takes to get membership. I start visiting this site a year back and i started to learn. I didnt register after 6 months and 3 weeks back my computer got Overheating problems, (To much autoing). I lost my scripts but i made a new one ( This was done in 2 hours rush ^^ ) Auto alcher :)! Hope you like it and make me a
Srl member.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program Autoalcher;
{.include srl/srl.scar}
{.include srl/srl/skill/magic.scar}
var
Alched : Integer;
Expgained : Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; //3 - 4 letters of YOUR username, example: sern
Players[0].Active :=True;
end;
Procedure Signature;
begin
Wait(100);
Writeln(' ___ ___')
Wait(100);
Writeln('|NNNN\ |NNN|')
Wait(100);
Writeln('|NNNNN\ |NNN|')
Wait(100);
Writeln('|NNNNNN\|NNN|')
Wait(100);
Writeln('|NNN|\NNNNNN|')
Wait(100);
Writeln('|NNN| \NNNNN|')
Wait(100);
Writeln('|NNN| \NNNN|')
end.
Function FindFastRandoms: Boolean;// credits to Wt-Fakawi
var
i: Integer;
begin
for i:=0 to 8 do
begin
case I of
0: If FindTalk then
begin
FindNormalRandoms;
end;
1: If FindDead then
Result := True;
2: If FindMime then
Result := True;
3: If FindMaze then
Result := True;
4: If FindQuiz then
Result := True;
5: If FindDemon then
Result := True;
6: begin
if NoGameTab then
begin
Result := True;
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Logout;
Exit;
end;
end;
8: RC;
end;
end;
end;
Procedure NoRandoms;
begin
FindNormalRandoms;
FindFastRandoms;
SolvePinball;
if (FindFight = true) then
begin
RunAwayDirection('S');
wait(10000+Random(5000));
RunBack;
end;
end;
Procedure SetupWhenLoggedin;
Begin
Makecompass('S');
HighestAngle;
Hoverskill('magic',false);
end;
Procedure Startalch;
Begin
Gametab(7);
CastSpell(35);
wait(400+random(200));
MouseItem(16,True);
Alched:=Alched+1;
Expgained:=Expgained+65;
NoRandoms;
Wait(1200+random(600));
end;
procedure ProgressReport;
begin
ClearDebug;
Writeln('|--------------------------------------|');
Writeln('|Did ' + IntToStr(Alched) + ' Alchs');
Writeln('|--------------------------------------|');
Writeln('|Got ' + IntToStr(Expgained) + ' Magic Exp');
Writeln('|--------------------------------------|');
end;
begin
SetupSRL;
Signature;
DeclarePlayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
if(not(loggedin))then loginplayer;
SetupWhenLoggedin;
repeat
Startalch;
ProgressReport;
until(false);
end.——————————————————
<!– END TEMPLATE: formanswers –>
