ok heres my script i just need somone to make sure its all ok and im really worried about the multi player stuff and all the load number stuff so...
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
LoadsNumb: Integer;
const
Normal=798760; //change if it doesnt find the tree
Loads=1; //Number of 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 := False; //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
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
end;
///////////////Don't Touch Below This//////////////////////
procedure FindTree;
var
i:Integer;
begin
if(FindObj(x,y,'hop',Normal,10))then
begin
Mouse(x,y,5,5,True)
repeat
Wait(2000)
i:=i+1
until(InChat('logs'))or(I>=5);
end;
i:=0
end;
procedure Drop;
begin
DropAll;
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;
LoadsNumb := LoadsNumb + 1;
end;
end;
end;
///////////////Anti-Randoms//////////////////
procedure Randoms;
begin
Findnormalrandoms;
end;
procedure ScriptSetup;
begin
ClearDebug;
SetupSRL;
DeclarePlayers;
end;
////////////////////Main Loop/////////////////////
begin
ScriptSetup;
If(not(LoggedIn)) then
LoginPlayer;
repeat
repeat
Randoms;
AntiBan;
FindTree;
until(invfull);
DropAll;
if(LoadsNumB=Loads)then
begin
NextPlayer(True);
LoadsNumB:=0;
HighestAngle;
MakeCompass('N');
Writeln('You switched players.');
end;
until(false)
end.