strex
2007-08-27 12:19:30
<!– BEGIN TEMPLATE: formanswers –>
strex - SRL Member Application Form
strex
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Languages - Lithuania, Russian, English, A bit Japanese
Other Communitys
Member of Sythe.org.
How Long have You Played Runescape
More then 4 years and a half.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I'm 16 years old. My name is Mantas. I'm from Mazeikiai, Lithuania.
I just started to learn scar scripting :) Wan't to help my friends and other people (myself aswell, lol) I'm not very good at scripting since I just started, but I'm beginning to understand how it works :P
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is my newest script.. It's an easy made one.. Used it when I wanted to lvl up my woodcutting.. ><
——————————————————
<!– END TEMPLATE: formanswers –>
strex - SRL Member Application Form
strex
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Languages - Lithuania, Russian, English, A bit Japanese
Other Communitys
Member of Sythe.org.
How Long have You Played Runescape
More then 4 years and a half.
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I'm 16 years old. My name is Mantas. I'm from Mazeikiai, Lithuania.
I just started to learn scar scripting :) Wan't to help my friends and other people (myself aswell, lol) I'm not very good at scripting since I just started, but I'm beginning to understand how it works :P
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is my newest script.. It's an easy made one.. Used it when I wanted to lvl up my woodcutting.. ><
program StreX's Noobie Wcer;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
const
Maple = 19058; //the color of the maple
Maple2 = 16760;
Maple3 = 9548;
Tol = 12;
RunDirection = 'S'; //the direction to run if in fight
LogsToChop = 50; //how many logs to chop)
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players to use
NumberOfPlayers(HowManyPlayers); //Don't Touch
CurrentPlayer := 0; //Player to start with
Players[0].Name := ''; //Players username
Players[0].Pass := ''; //Players password
Players[0].Nick := ''; //3-4 characters from players username(Lowercase and no spaces)
Players[0].Active := True; //Are you using this player?
end;
procedure WalkToMaples;
begin
MakeCompass('N');
RadialWalk(2377842 , 315, 355, 32, 0, 0);
end;
procedure ChopMaples;
var
ChopMark: Integer;
begin
repeat
if FindObjMulti('aple tree', Maple, Maple2, Maple3, Tol) then
begin
GetMousePos(X, Y);
Wait(500 + Random(102));
Mouse(X, Y, 1, 1, True);
MarkTime(ChopMark);
repeat
Wait(500 + Random(250));
FindNormalRandoms;
until(TimeFromMark(ChopMark) >= (10000 + Random(5000))) or (InvFull);
end;
until(InvFull);
end;
procedure WalkToBank;
begin
if (InvFull) then
begin
MakeCompass('N');
RadialWalk( 9606557 , 218, 195, 50, 0, 0);
end;
end;
begin
ActivateClient;
SetUpSRL;
DeclarePlayers;
repeat
if not LoggedIn then loginplayer;
WalkToMaples;
ChopMaples;
WalkToBank;
until(false)
end.——————————————————
<!– END TEMPLATE: formanswers –>