Gala
2007-10-09 07:14:41
<!– BEGIN TEMPLATE: formanswers –>
Gala - SRL Member Application Form
Gala
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
PHP, HTML, Basic, AppleScript, a bit Javascript
Other Communitys
-
How Long have You Played Runescape
about 1 year
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im new here. Im learning how to script scar and how to use SRL in my scripts. (I was beginning 3 days ago.)
My first script is ChickenSlayer. I update it realy often.
Im 14 and im interested in WebPage programming and gameing :D.
Sorry for my English. Im it learning too, but it is in the moment enough, to understand and communicate with you. I will learning programming scra and i will write scripts, who will be in the first place on the srl stats charts. :P
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Gala - SRL Member Application Form
Gala
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
PHP, HTML, Basic, AppleScript, a bit Javascript
Other Communitys
-
How Long have You Played Runescape
about 1 year
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Im new here. Im learning how to script scar and how to use SRL in my scripts. (I was beginning 3 days ago.)
My first script is ChickenSlayer. I update it realy often.
Im 14 and im interested in WebPage programming and gameing :D.
Sorry for my English. Im it learning too, but it is in the moment enough, to understand and communicate with you. I will learning programming scra and i will write scripts, who will be in the first place on the srl stats charts. :P
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program ChickenSlayer;
{.include SRL\SRL.scar}
// For the SRL-Community and
// my brother
var
x, y, z: Integer;
// Setup
const
ChickenColor1 = 924806 ; // Pick the ChickenColors
ChickenColor2 = 1187728;
UserName = 'Zezima'; // Choose your Username
AttStyle = 2; // Your attstyle ( 1 Attack, 2 Strength, 3 All, 4, Defence )
procedure welcome;
begin
wait(500+random(600))
cleardebug;
wait(300)
writeln('---------------------------------')
wait(300+random(200))
writeln(' ChickenSlayer V 3.5 SRL 4 ')
wait(300+random(200))
writeln(' By ')
wait(300+random(200))
writeln(' Gala ')
wait(300+random(200))
writeln('---------------------------------')
wait(300+random(200))
end;
procedure setup;
begin
wait(300+random(500))
makecompass('n');
wait(400+random(330))
setrun(true);
wait(400)
gametab(4);
wait(500+random(300))
SetFightMode(AttStyle);
wait(400+random(400))
gametab(4)
wait(400+random(400))
writeln('Setup successfully')
wait(4000+random(2000))
cleardebug;
wait(2000)
end;
procedure attackChicken;
begin
if findcolortolerance(x, y, ChickenColor1, 0, 0, 700, 500, 5) or
findcolortolerance(x, y, ChickenColor2, 0, 0, 700, 500, 5) then
begin
Mouse(x ,y, 0, 0, false)
ChooseOption('Chicken')
wait(3000+random(3000))
end;
end;
procedure findFeather;
begin
repeat
z:= z+1
if findcolortolerance(x, y, 10240, 0, 0, 520, 341, 2) then
begin
MMouse(x, y, 0, 0)
wait(40)
Mouse(x, y, 0, 0, false)
wait(300+random(300))
ChooseOption('ther')
wait(3000+random(300))
end;
until(z >= 5)
end;
procedure report;
begin
cleardebug;
wait(300)
writeln('User: ' + (UserName))
writeln('Attackstyle: ' + IntToStr(AttStyle))
wait(600+random(400))
end;
procedure saitime;
begin
wait(400)
writeln(TimeRunning)
wait(330)
end;
begin
SetUpSRL;
activateclient;
welcome;
setup;
repeat
report;
saitime;
wait(2000+random(1000))
attackChicken;
findFeather;
until(false)
end.
——————————————————
<!– END TEMPLATE: formanswers –>