heres my script so far...
SCAR Code:
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 : Interger;
const
TreeColor=3035208; //change if it doesnt find the tree
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[0].Integer1 := 0; //How many loads to do
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[1].Integer1 := 0;
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[2].Integer1 := 0;
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[3].Integer1 := 0;
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[4].Integer1 := 0;
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
Players[5].Integer1 := 0;
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;
FindEnt;
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;
Talk;
until(invfull);
Loads:=Loads+1
Drop;
Until Loads >= Players[CurrentPlayer].Integer1
if Loads >= Players[CurrentPlayer].Integer1 then
Progreport;
NextPlayer(True);
Loads:=0
Until False
end.