Laur€ns
2008-07-08 10:12:47
<!– BEGIN TEMPLATE: formanswers –>
laurenssie0 - SRL Member Application Form
laurenssie0
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VB2008
Other Communitys
Lots, too many to fit in here ^^
How Long have You Played Runescape
≈2.5 years legit & ½ years macro
Are you affilated in anyway with Jagex LTD?
Noez!
—————————————————–
Please write down a paragraph about Yourself.
Im Laurens, 14 years old (almost 15 :p), live in Holland, doing that school with Latin and Greek (don't know the English name :p), I tried to apply before, but got declined :p
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Now I made one very, very basic script (alch calculator) and, as extension for that, an Auto*Alcher.
And here is the auto alcher:
I like them personally, now I want to know what you guys think.
——————————————————
<!– END TEMPLATE: formanswers –>
laurenssie0 - SRL Member Application Form
laurenssie0
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VB2008
Other Communitys
Lots, too many to fit in here ^^
How Long have You Played Runescape
≈2.5 years legit & ½ years macro
Are you affilated in anyway with Jagex LTD?
Noez!
—————————————————–
Please write down a paragraph about Yourself.
Im Laurens, 14 years old (almost 15 :p), live in Holland, doing that school with Latin and Greek (don't know the English name :p), I tried to apply before, but got declined :p
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Now I made one very, very basic script (alch calculator) and, as extension for that, an Auto*Alcher.
Program AlchemyCalc;
{.include SRL/SRL.scar}
Const
ItemYouAlch = 'Black Body';//what item you are going to alch.
NaturePrice = 350;// how much is the nature runes gonna cost
Priceofitemtoalch = 563;// how much the item you wanna alch is gonna cost
highalchemyaward = 364;// basically how much RuneHQ says you get for high alch (or try to high alch it once)
function Add:extended;
Begin
Result:= NaturePrice + priceofitemtoalch;
end;
function Dothestuff:extended;
Begin
Result:= highalchemyaward * Add;
end;
Procedure Proggy;
Begin
Writeln('**************************************');
Writeln('| Alchemy calculator V1 |');
Writeln('|************************************|');
Writeln('| Alching item is : '+ (ItemYouAlch)+' ');
Writeln('|************************************| ');
Writeln('| '+ (Itemyoualch)+' costs '+ inttostr(priceofitemtoalch)+' gps.');
Writeln('| You are buying the natures for '+inttostr(NaturePrice)+' gps.');
Writeln('| Alching this item gives you '+inttostr(highalchemyaward)+' gps.');
Writeln('|************************************|');
Writeln('| Alching a '+ (ItemYouAlch)+' give you ');
Writeln('| ' + floattostr(DotheStuff)+' per alch.');
if DoTheStuff < 0 then
writeln('| Not recommended as you lose gp |');
if DoTheStuff > 0 then
writeln('| Hey, this method works! |');
Writeln('|************************************|');
Writeln(' \ If you like it then vote yes :) /');
Writeln(' **********************************');
end;
Begin
ClearDebug;
Proggy;
End.
And here is the auto alcher:
program AutoAlcher;
{.include srl/srl.scar}
{.include srl/srl/skill/magic.scar}
{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. }
var
done:integer;
const
spell = 'High Level Alchemy'; // set to High Level Alchemy or Low Level Alchemy
MySRLId = '1234'; //ID
MySRlPassword = 'ABCDEF'; // 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 := '';
Players[0].Pass := '';
Players[0].Nick := '';
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;
repeat
highalch;
until not ExistsItem(20);
end.
I like them personally, now I want to know what you guys think.
——————————————————
<!– END TEMPLATE: formanswers –>