daforeigner
2007-12-02 23:05:23
<!– BEGIN TEMPLATE: formanswers –>
daforeigner - SRL Member Application Form
daforeigner
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
PHP, HTML, Delphi, Pacal
Other Communitys
Nederlandse Vereniging van Programmeurs
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I'm a 23 year old IT major, specializing in network security at Arizona State University. I learned how to program when I was 13 years old, I'm new to SCAR and the scripting, but it seems straight forward enough to learn quickly. Also, I manage several websites with a PHP platform, and backed by a SQL server.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
daforeigner - SRL Member Application Form
daforeigner
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
PHP, HTML, Delphi, Pacal
Other Communitys
Nederlandse Vereniging van Programmeurs
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I'm a 23 year old IT major, specializing in network security at Arizona State University. I learned how to program when I was 13 years old, I'm new to SCAR and the scripting, but it seems straight forward enough to learn quickly. Also, I manage several websites with a PHP platform, and backed by a SQL server.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program Treecut;
{.include SRL/SRL.scar}
const
betweencut= 4000;
var
x,y:integer;
a,b:integer;
procedure reken;
begin
a:=0
b:=0
ActivateClient;
cleardebug;
wait(10)
perfectnorth;
ActivateClient;
end;
procedure emptyinv;
begin
if a=27 then
begin
dropall;
a:=0
end;
end;
procedure cut;
begin
if FindColorSpiralTolerance(x,y,994343,52,26,468,260,3) then
Mouse(x,y,2,2,true)
a:=a+1
wait(betweencut + random(10))
end;
procedure antideath;
begin
if (FindFight) then
RunTo('N', false);
end;
procedure antiban;
begin
if b=20 then
typesend('Woodcutting is a drag')
if b=30 then
typesend('Almost a level up')
if b=40 then
typesend('Whats your woodcutting lvl?')
if b=50 then
typesend('WCing is my life')
if b=60 then
typesend('Hellz yeah!')
if b=70 then
typesend('Almost done')
if b=80 then
typesend('Construction is worth this boring stuff')
if b=90 then
typesend('How much for the axe?')
if b=100 then
typesend('Getting there')
begin
typesend('20 more minutes')
b:=0
end;
end;
begin
SetupSRL;
reken;
repeat
b:= b+1
wait(1 + random(1))
cut;
wait(1 + random(1))
antideath;
wait(1 + random(1))
emptyinv;
wait(1 + random(1))
antiban;
until(false)
end.
[/scar[
------------------------------------------------------
<!-- END TEMPLATE: formanswers -->
