ok my scripts pretty good i mean it works great and everything its just that it sets for like 20 seconds b4 it looks for another tree i think its because my anti randoms but please let me know what u think vould fix this prob
SCAR Code:
program PowerChopper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Extended/xAntiban.scar}
{.include SRL/SRL/Extended/xAntiRandoms.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;
const
TreeColor=798760; //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 := 000; //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 := False; //Set true if you want to use this player
Players[1].Integer1 := 000;
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 := 000;
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 := 000;
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 := 000;
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 := 000;
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
end;
///////////////Don't Touch Below This//////////////////////
procedure FindTree;
var
i:Integer;
begin
if(FindObj(x,y,'hop',TreeColor,10))then
begin
Mouse(x,y,5,5,True)
repeat
Wait(2000+random(200));
Tries := Tries + 1;
i:=i+1
if(Tries = 20)then
begin
Writeln('Could not find trees, try moving your player.');
TerminateScript;
end;
until(InChat('logs.'))or(I>=8);
end;
i:=0
end;
procedure Drop;
begin
DropTo (2,28);
end;
function InventoryCount1: Integer;
{var
used, i, e: Integer;
begin
e := 0;
i := 0;
used := 0;
GameTab(4);
while (i < 6) do
begin
if (i = 5) and (e < 8) then
begin
i := 0;
e := e + 1;
end;
if (FindColor(x, y, 65536, (571 + 47 * i), (215 + 36 * e), (601 + 47 * i), (245 + 36 * e))) then
used := used + 1;
i := i + 1;
end;
Result := used;
end; }
var
Mx, My, e, i: Integer;
begin
GameTab(4);
for e := 0 to 6 do
begin
for i := 0 to 4 do
begin
Mx := (561 + (i * 43));
My := (209 + (e * 37));
if (FindColorSpiral(x, y, 65536, Mx, My, Mx + 40, My + 35)) then
Result := Result + 1;
Loads:= Loads + 1;
end;
end;
end;
///////////////Anti-Randoms//////////////////
procedure Randoms;
begin
Findnormalrandoms;
FindHead;
FindLamp('Woodcutting');
if FindFight then //if finds that you're in a fight
begin
RunAwayDirection('N'); //runs north (s, w, e)
Wait(9000+random(2000)); //waits
RunBack;//Runs back
end;
end;
////////////////////Progress Report/////////////////
Procedure Progreport;
begin
Logz := Loads * 28
Exp := Logz * 25
Writeln('|-------------Teams Chopper-------------------|');
Writeln('|---------------------------------------------|');
Writeln('|Worked For : ' + TimeRunning)
Writeln('|Chopped '+IntToStr(Loads) + ' Loads');
Writeln('|Chopped '+ IntToStr(Logz) + ' Logs');
Writeln('|Gained Approx. ' + IntToStr(Exp) + ' XP');
Writeln('|---------------------------------------------|');
end;
//////////////////Loop's////////////////////
procedure ScriptSetup;
begin
ClearDebug;
SetupSRL;
DeclarePlayers;
end;
////////////////////Main Loop/////////////////////
begin
ScriptSetup;
NEWLINE:='';
If(not(LoggedIn)) then
LoginPlayer;
repeat
repeat
repeat
FindTree;
Randoms;
AntiBan;
until(invfull);
FindEnt(TreeColor);
Drop;
Until Loads >= Players[CurrentPlayer].Integer1
if Loads >= Players[CurrentPlayer].Integer1 then
Progreport;
NextPlayer(True);
Loads:=0
Until False
end.