Griff
2008-06-08 14:10:30
<!– BEGIN TEMPLATE: formanswers –>
griff721 - SRL Member Application Form
griff721
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
blumblebee
Programming Knowledge
Little JAva
Other Communitys
No
How Long have You Played Runescape
5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
This is the first program I have ever used to do scripting with. (SRL and SCAR.) I have learned a whole bunch since I first joined, (over 1 year ago. I now would call my self a pretty ecperience scripter, and I hope you accept me as a SRL member and contributer.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program AutoAlcher;
{.include srl/srl.scar}
{.include srl/srl/skill/magic.scar}
{Auto Alcher by Griff721!
Instructions
Place your MEMBERS runescape account(s) in any area in RS.
Make sure to have nature runes and a fire staff (or fire runes)
Fill out how many loads to do per player. Make sure you have enough
nature runes!
PLACE THE ITEM YOU WANT TO ALCH INV SLOT NUMBER 20!!!
Drag the crosshair over the runescape window and hit play.
Make sure to give me lot's of feedback, this is my very first script!}
var
done:integer;
const
spell = 'High Level Alchemy'; // set to High Level Alchemy or Low Level Alchemy
MySRLId = '4550'; //ID
MySRlPassword = 'kevin'; // srl pass
Loads = 6; // how many loads per player
Randoms = 3; // Don't touch unless you are have looked at whole script, and know what you are doing!
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'griff721';
Players[0].Pass := '';
Players[0].Nick := 'riff';
Players[0].Active := True;
{Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;}
end;
procedure MagicBook;
begin
GameTab(7);
wait(1000);
end;
procedure highalch;
begin
repeat;
cast(spell);
Mouse(574, 362,3,3,true);
wait(3800+random(400));
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod Loads = 0 then
begin
nextplayer(false);
end;
if Players[CurrentPlayer].Banked mod Randoms = 0 then
begin
Mouse(578, 186,3,3,true);
Mouse(576, 402,3,3,false);
wait(3000+random(400));
GameTab(7);
end;
if not (Players[CurrentPlayer].Banked mod Loads = 0) then
begin
cast(spell);
Mouse(574, 362,3,3,true);
wait(3800+random(400));
end;
until(false);
end;
begin
SetupSRL;
ActivateClient;
DeclarePlayers
LoginPlayer;
MagicBook;
highalch;
end.
——————————————————
<!– END TEMPLATE: formanswers –>
griff721 - SRL Member Application Form
griff721
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
blumblebee
Programming Knowledge
Little JAva
Other Communitys
No
How Long have You Played Runescape
5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
This is the first program I have ever used to do scripting with. (SRL and SCAR.) I have learned a whole bunch since I first joined, (over 1 year ago. I now would call my self a pretty ecperience scripter, and I hope you accept me as a SRL member and contributer.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program AutoAlcher;
{.include srl/srl.scar}
{.include srl/srl/skill/magic.scar}
{Auto Alcher by Griff721!
Instructions
Place your MEMBERS runescape account(s) in any area in RS.
Make sure to have nature runes and a fire staff (or fire runes)
Fill out how many loads to do per player. Make sure you have enough
nature runes!
PLACE THE ITEM YOU WANT TO ALCH INV SLOT NUMBER 20!!!
Drag the crosshair over the runescape window and hit play.
Make sure to give me lot's of feedback, this is my very first script!}
var
done:integer;
const
spell = 'High Level Alchemy'; // set to High Level Alchemy or Low Level Alchemy
MySRLId = '4550'; //ID
MySRlPassword = 'kevin'; // srl pass
Loads = 6; // how many loads per player
Randoms = 3; // Don't touch unless you are have looked at whole script, and know what you are doing!
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'griff721';
Players[0].Pass := '';
Players[0].Nick := 'riff';
Players[0].Active := True;
{Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;}
end;
procedure MagicBook;
begin
GameTab(7);
wait(1000);
end;
procedure highalch;
begin
repeat;
cast(spell);
Mouse(574, 362,3,3,true);
wait(3800+random(400));
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod Loads = 0 then
begin
nextplayer(false);
end;
if Players[CurrentPlayer].Banked mod Randoms = 0 then
begin
Mouse(578, 186,3,3,true);
Mouse(576, 402,3,3,false);
wait(3000+random(400));
GameTab(7);
end;
if not (Players[CurrentPlayer].Banked mod Loads = 0) then
begin
cast(spell);
Mouse(574, 362,3,3,true);
wait(3800+random(400));
end;
until(false);
end;
begin
SetupSRL;
ActivateClient;
DeclarePlayers
LoginPlayer;
MagicBook;
highalch;
end.
——————————————————
<!– END TEMPLATE: formanswers –>