Avaphi
2007-01-16 16:37:17
Avaphi - SRL Member Application Form
Avaphi
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
db_cheater(I am db_cheater…)
Programming Knowledge
Java, Scar, Learning Delphi
Other Communitys
SRL, Rs-R, Mopars, Kaitnieks, RsCn.
How Long have You Played Runescape
5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am db_cheater. I changed my account and made a new one because my old name symbolized something that no longer exist… A friend ship -.- … Anyways, I hope you understand my position, My old name reminds me of something that I really would like to leave in my past. Thank you
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
Avaphi
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
db_cheater(I am db_cheater…)
Programming Knowledge
Java, Scar, Learning Delphi
Other Communitys
SRL, Rs-R, Mopars, Kaitnieks, RsCn.
How Long have You Played Runescape
5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am db_cheater. I changed my account and made a new one because my old name symbolized something that no longer exist… A friend ship -.- … Anyways, I hope you understand my position, My old name reminds me of something that I really would like to leave in my past. Thank you
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Program Avaphi;
{.include SRL\SRL.Scar}
Var
Dx1, Dy1, Dx2, Dy2 : Integer;
//Use this to find parameters of objects dynamically allowing to never click outside of area.
function AvaphiFindArea(var S1, S2, S3: String; Color, Tolerance : Integer): Boolean;
begin
if(FindColorSpiralTolerance(x, y, Color, MSX1, MSY1, MSX2, MSY2, Tolerance))then
begin
Mmouse(x, y, 0, 0);
Result := True;
repeat
if(IsUpTextMulti(S1, S2, S3))then
begin
Mmouse(x-1, y, 0, 0);
until(not(IsUpTextMulti(S1, S2, S3)))
Mmouse(x+1, y, 0, 0);
repeat
if(IsUpTextMulti(S1, S2, S3))then
begin
Mmouse(x, y+1, 0, 0);
until(not(IsUpTextMulti(S1, S2, S3)))
Mmouse(x, y-1, 0, 0);
Getmousepos(Dx1, Dy1);
Writeln('XS Of Box :='+inttostr(Dx1));
Writeln('YS Of Box :='+inttostr(Dy1));
Writeln('/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\');
repeat
if(IsUpTextMulti(S1, S2, S3))then
begin
Mmouse(x+1, y, 0, 0);
until(not(IsUpTextMulti(S1, S2, S3)))
Mmouse(x-1, y, 0, 0);
repeat
if(IsUpTextMulti(S1, S2, S3))then
begin
Mmouse(x, y-1, 0, 0);
until(not(IsUpTextMulti(S1, S2, S3)))
Mmouse(x, y+1, 0, 0);
Getmousepos(Dx2, Dy2);
Writeln('XE Of Box:='+inttostr(Dx2));
Writeln('YE Of Box:='+inttostr(Dy2));
end;
end;
end;
end;
end;
end;
begin
setupsrl;
end;
——————————————————