Team_epic
2008-02-28 19:33:37
<!– BEGIN TEMPLATE: formanswers –>
Team_epic - SRL Member Application Form
Team_epic
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
nope
Other Communitys
PBNation and Indiana Wrestler( High School Wrestling)
How Long have You Played Runescape
like 5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have been scripting for a while now and i believe that i have the skills down that it takes to be a good scripter…yes i need more work but that will come with time…
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Team_epic - SRL Member Application Form
Team_epic
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
nope
Other Communitys
PBNation and Indiana Wrestler( High School Wrestling)
How Long have You Played Runescape
like 5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have been scripting for a while now and i believe that i have the skills down that it takes to be a good scripter…yes i need more work but that will come with time…
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program PowerChopper;
{.Include SRL/SRL.Scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
//////////////////////////////////////////////////
// Instructions //
// 1.Start anywhere by trees. //
// 2.Set the color of the tree. //
// 3.Equip the axe of your choice. //
// 4.Set the new RS window. //
// 5.Move the scar window over clear to the left//
// 6.Hit RUN!!! //
//////////////////////////////////////////////////
/////// ////// // //// ////
// // // // // // // //
// //// // // // // // //
// // ///////// // //// //
// ////// // // // // //
///////////////////Setup/////////////
var
Loads: Integer;
Logz: Integer;
Exp: Integer;
Tries: Integer;
x, y, fx, fy, i : Integer;
const
TreeColor=3035208; //change if it doesnt find the tree
Loadz=5; //How many loads to do
procedure DeclarePlayers;
begin
HowManyPlayers:=6; //Don't Change if you want more players just fill in their info and set their active to: True
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on
Players[0].Name :='username'; //Fill in your username
Players[0].Pass :='password'; //Fill in your password
Players[0].Nick :='nick'; //2-3 letters of your username
Players[0].Active :=True; //Set true if you want to use this player
Players[1].Name := 'username'; //Fill in your username
Players[1].Pass := 'password'; //Fill in your password
Players[1].Nick := 'nick'; //2-3 letters of your username
Players[1].Active := True; //Set true if you want to use this player
Players[2].Name := 'UserName'; //Fill in your username
Players[2].Pass := 'Password'; //Fill in your password
Players[2].Nick := 'Nick'; //2-3 letters of your username
Players[2].Active := False; //Set true if you want to use this player
Players[3].Name := 'UserName'; //Fill in your username
Players[3].Pass := 'Password'; //Fill in your password
Players[3].Nick := 'Nick'; //2-3 letters of your username
Players[3].Active := False; //Set true if you want to use this player
Players[4].Name := 'UserName'; //Fill in your username
Players[4].Pass := 'Password'; //Fill in your password
Players[4].Nick := 'Nick'; //2-3 letters of your username
Players[4].Active := False; //Set true if you want to use this player
Players[5].Name := 'UserName'; //Fill in your username
Players[5].Pass := 'Password'; //Fill in your password
Players[5].Nick := 'Nick'; //2-3 letters of your username
Players[5].Active := False; //Set true if you want to use this player
end;
///////////////Don't Touch Below This//////////////////////
procedure FindTree;
var
i:Integer;
begin
if(FindObj(x,y,'hop',TreeColor,10))then
begin
FindEnt(fx, fy, True);
Mouse(x,y,5,5,True)
repeat
Wait(1000+random(200));
i:=i+1
until(InChat('logs.'))or(I>=8);
if(not(FindObj(x,y,'hop',TreeColor,10)))then
begin
Tries:=Tries + 1
if(Tries = 15)then
begin
Writeln('---------------------------------');
Writeln('--------Teamepics Chopper--------');
Writeln('Could not find trees, try moving your player.');
TerminateScript;
end;
end;
i:=0
end;
end;
procedure Drop;
begin
for i := 2 to 28 do
DropItem(i);
end;
///////////////Anti-Randoms//////////////////
procedure Randoms;
begin
FindAxe;
Findnormalrandoms;
FindLamp('Woodcutting');
if(not(loggedin)) then
NextPlayer (False);
if FindFight then //if finds that you're in a fight
begin
RunTo('N', False); //runs north (s, w, e)
Wait(9000+random(2000)); //waits
RunTo('S', False);//Runs back
end;
end;
procedure Talk;
var
LastMessage: String;
begin
GetLastChatText(LastMessage);
if ((Pos('Hey', LastMessage) <> 0) or
(Pos('Whats up', LastMessage) <> 0) or
(Pos('Hows it going', LastMessage) <> 0) or
(Pos('Hi', LastMessage) <> 0) or
(Pos('Hey all', LastMessage) <> 0)) then
Wait(2000 + random(1000));
begin
Case Random(4) of
0: TypeSend('Hey whats going down.');
1: TypeSend('Woodcutting lvls?');
2: TypeSend('What time is it?');
end;
end;
end;
////////////////////Progress Report/////////////////
Procedure Progreport;
begin
Writeln('|---------------Teams Chopper-----------------|');
Writeln('|---------------------------------------------|');
Writeln('|Worked For : ' + TimeRunning)
Writeln('|Chopped '+IntToStr(Loads) + ' Loads');
Writeln('|Gained Approx. ' + IntToStr(Exp) + ' XP');
Writeln('|---------------------------------------------|');
end;
//////////////////Loop's////////////////////
procedure ScriptSetup;
begin
ClearDebug;
SetupSRL;
DeclarePlayers;
end;
////////////////////Main Loop/////////////////////
begin
ScriptSetup;
If(not(LoggedIn)) then
LoginPlayer;
SetChat('Off',1)
Wait(40)
KeyDown(VK_Up);
Wait(2000 + random(250));
KeyUp(VK_Up);
Wait(2000 + random(200));
SRLRandomsReport;
repeat
repeat
repeat
FindTree;
Randoms;
until(invfull);
Loads:=Loads+1
Drop;
Talk;
Until Loads >= Loadz
if Loads >= Loadz then
Progreport;
NextPlayer(True);
Loads:=0
Until False
end.
——————————————————
<!– END TEMPLATE: formanswers –>