krnpride
2007-11-08 19:34:44
<!– BEGIN TEMPLATE: formanswers –>
krnpride - SRL Member Application Form
krnpride
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Just started visual basic in school
Other Communitys
None
How Long have You Played Runescape
2 years maybe
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im a 9th grade freshman in Maryland and I got interested in computer science a few years ago. I'm taking comp sci I, which is visual basic, right now. I started to script on SRL a few weeks ago and first, i created an autotalker. Now, i have an auto alcher that seems pretty complex and one member told me that this auto alcher can give me membership. Im hoping that it can and my next script im planning to write is an autominer. Thanks!
~krnpride
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
krnpride - SRL Member Application Form
krnpride
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Just started visual basic in school
Other Communitys
None
How Long have You Played Runescape
2 years maybe
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im a 9th grade freshman in Maryland and I got interested in computer science a few years ago. I'm taking comp sci I, which is visual basic, right now. I started to script on SRL a few weeks ago and first, i created an autotalker. Now, i have an auto alcher that seems pretty complex and one member told me that this auto alcher can give me membership. Im hoping that it can and my next script im planning to write is an autominer. Thanks!
~krnpride
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{Krnpride's autoalcher
Plz post a reply on how it works
Make sure that ur alc items are noted
and directly in the area where the spell high alc is located}
program autoalcher;
{.include SRL/SRL.scar}
const
alcs = 500;//type in how many alcs u wish to do
RunDir = 'N';//Which direction to run if a random fight is found
RunWaitTime = 30;//Seconds to wait after a run from random
message1 = 'Hello world!'; //First random message to say in antiban
message2 = 'Hola peoples'; //Second random message to say in antiban
message3 = 'Boo!!'; //Third random message to say in antiban
var
alching: integer;
procedure DeclarePlayers;
begin
NumberOfPlayers(1); //set how many players you have
NumberOfPlayers(HowManyPlayers); //dont touch
CurrentPlayer := 0; //set which player number to start with
Players[0].Name := ''; //Name
Players[0].Pass := ''; //Password
Players[0].Loc := '';
Players[0].Active := True;
end;
procedure Loc(where: string); //by pwnaz0r
begin
Players[CurrentPlayer].Loc:= where;
Players[CurrentPlayer].Rand:= where;
end;
function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for i:=1 to 10 do
begin
case I of
1: If FindDead then
begin
Result := True;
Loc('Dead');
Logout;
end;
2: If FindTalk Then Result := True;
3: If FindMime then
begin
Result := True;
Loc('Mime');
Logout;
end;
4: If FindMaze then
begin
result:= true;
Loc('Maze');
logout;
end;
5: If FindQuiz then
begin
Result := True;
Loc('Quiz');
Logout;//Solve quiz in next SRL
end;
6: If FindDemon then
begin
Result := True;
Loc('Demon');
end;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].rand := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
If InBlack then
begin
Result := True;
Players[CurrentPlayer].rand := 'InBlack';
Logout;
Exit;
end;
end;
9 : If FindTalk Then Result := True;
10: if FindFight then
begin
RunTo(RunDir, false);
FTWait(RunWaitTime);
RunBack;
end;
end;
Wait(1);
end;
end;
procedure clickmagic;
begin
MMouse(743,184,0,0);
wait(100);
Mouse(743,184,0,0,true);
end;
procedure clickhighalc;
var
x,y,highalcbitmap : integer;
begin
highalcbitmap := BitmapFromString(597, 397, 'beNrt3DEOgjAUg' +
'GEZSTwMN+cCDuoROITegMHJhmqDlLhp0vb78pa+scsfkHg4AAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAA/Ez3OQDQhNt9Pl3PYVwFAE09AC7t8+gHQIP5A4' +
'C28ucKAJA/AGghf15+AtBa+3z5CUBrUvvCDJfBhQBQvRS+2L44fgo' +
'EoArdl3n3zn+/AFBb/h7zMU6s2+a4twGAsk1Tv67b+ri7WZYAUHz+' +
'UuBi7PIgZk0EgLKNY58CF2K3Pu5u5A+AOvKXAhdjlwcxayIAlO4Vu' +
'DDxy5Z0jEHcbJYlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAwB89AcdbvF8=');
If findbitmaptolerancein(highalcbitmap,x,y,msx1,msy1,msx2,msy2,10) then
wait(100+random(100));
MMouse(x,y,1,1);
wait(100+random(100));
If Isuptext('igh') then //igh in hIGH alc
Mouse(x,y,1,1,true);
wait(5000+random(1000));
MMouse(x,y,1,1);
wait(100);
Mouse(x,y,1,1,true);
inc(alching);
freebitmap(highalcbitmap);
end;
procedure proggie;
var
H, M, S : integer;
begin
cleardebug;
writeln(' //------------------------------------\\ ');
writeln(' // [SRL] Auto Alcher Version .03 \\ ');
writeln(' // By : Krnpride \\ ');
writeln(' //====================================\\ ');
writeln('');
ConvertTime(GetTimeRunning,H,M,S);
Writeln(' Worked For ' + Inttostr(H) + ' hours, ' + IntToStr(M) + ' minutes and '+ Inttostr(S) + ' seconds ');
writeln(' High Alched '+Inttostr(alching)+' item(s)');
writeln('');
end;
Procedure Antiban;
var
Antibanactions: Integer;
begin
Antibanactions:= Random(8);
case antibanactions of
0: Hoverskill('Attack',False);
1: Typesend(message1);
2: GameTab(1+random(10));
3: Hoverskill('Defense', false);
4: Hoverskill('Fishing',False);
5: Typesend(message2);
6: Hoverskill('smithing',false);
7: Typesend(message3);
8: Hoverskill('Attack',false);
end;
end;
begin
setupsrl;
activateclient;
wait(10000+random(2000));
Declareplayers;
wait(100+random(100));
Loginplayer;
wait(100+random(100));
clickmagic;
repeat
clickhighalc;
FindFastRandoms;
Antiban;
until(alching>=alcs)
proggie;
end.——————————————————
<!– END TEMPLATE: formanswers –>