Wow,thanks I made one basically copied yours except I read how it works.Thank you!
Wow,thanks I made one basically copied yours except I read how it works.Thank you!
Nice tut, helped me alot,
and yes time to find anti-randoms![]()
nice job![]()
i did EXACTLY as you did and this happens:
Failed when compiling
Line 10: [Error] (14760:1): Unknown identifier 'SetupPlayers' in script
but its still a good tutorial, i learned some things =)



NumberOfPlayers, not HowManyPlayers.
Interested in C# and Electrical Engineering? This might interest you.
Very nice!
when i try to compile the script i says unknown identifier loadplayerarray
nevermind i think i fixed it
now it saying unknown identifier droptoposition
i added randoms put i get this error
Line 10: [Error] (14691:1): Unknown identifier 'SetupPlayers' in script C:\Program Files\SCAR 3.12\Scripts\my first auto cutter with randoms still in testing!!!!.scar
heres the script if you need it to solve the problem please help thank.
program New;
{.include SRL/SRL.scar}
const
LoadsPerPlayer = 10; //Amounts of loads per player before switching.
TreeColor = 0; //Fill in the treecolor here.
WaitPerTree = 5000; //the time to wait while we are chopping the tree in Miliseconds.
procedure DeclarePlayers;
begin
SetupPlayers;
Players[0].Name := '';// some what obvious put your name here.
Players[0].Pass := '';//once again obivious put your characters pass here.
Players[0].Nick := '';// put your nick name here.
Players[0].Active := True; //if using or not
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;
LoadPlayerArray;
end;
procedure ChopTree;
var
x, y, MyMark : integer;
begin
if not Loggedin then Exit;
MarkTime(MyMark);
repeat
if FindObj(x, y, 'hop', TreeColor, 30) then
begin
Mouse(x, y, 0, 0, False);
if ChooseOption('hop') then
begin
//increase 1 to the total tree chop - if we had one
Wait(WaitPerTree);
Exit; //We clicked chop, now we can exit this procedure.
end;
end;
if TimeFromMark(MyMark) > (2 * 60 * 100) then
begin
Logout;
Exit;
end;
until false
end;
begin
SetupSRL;
DeclarePlayers;
if LoggedIn then Logout;
LoginPlayer;
repeat
ChopTree;
if InvFull then
begin
DropToPosition(2, 28);
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
begin
NextPlayer(True);
end;
end;
if not Loggedin then NextPlayer(False);
until false
end.
Procedure Randoms;
Begin
Findnormalrandoms;
End;
Procedure Antibanactions;
DBanMe:=Random(10)
Case DBanME of
0: RandomRClickEvery(2+Random(13));
1: HoverSkill9'Mining',False);
2: RandomChatEvery(10+Random(5));
3: RotateEvery(20+Random(10));
4: LeaveScreenEvery(5 + Random(5));
5: HoverEvery(15 + Random(5), 'Attack');
6: PickUpMouse;
7: BoredEvery(9 + Random(24));
8: DragItem(1, 1 + Random(18));
9: GameTab(1 + Random(12));
10: RotateEvery(7 + random(4));
end;
end;
Thank you, this really helped ^_^
I Am Angry
i get this now i added the number of players and nowe this is what i get.
Line 10: [Error] (14691:16): Invalid number of parameters in script C:\Program Files\SCAR 3.12\Scripts\my first auto cutter with randoms still in testing!!!!.scar
Very nice tutorial! I am still pretty new to Scar, but this tutorial might just be the one that will finally allow me to make myself an autoer. Just one tiny thing I realized:
...And later you said...SCAR Code:procedure ChopTree;
var
x, y, MyMark : integer;
begin
if not Loggedin then Exit;
MarkTime(MyMark);
repeat
if FindObj(x, y, 'hop', TreeColor, 30) then
begin
end;
if TimeFromMark(MyMark) > (2 * 60 * 100) then
begin
end;
until false
end;
Now, this might just be my eyes being cheated, but I'm pretty sure there is a 0 added on (or better yet, a 0 substracted, because the one where a 0 was added is the correct statement, I blieve).(2 * 60 * 1000)
But appart from that, this is awsome!!!!![]()
good tutorial, makes me closer to scripting myself.
a++++ job dude!
DUDE - THANK YOU
I needed this very much
this is what i got, i even tried copying and pasting, same thing happens...
Code:Line 21: [Error] (14702:1): Unknown identifier 'SetupPlayers' in script C:\Program Files\SCAR 3.12\Scripts\TestWC.scar
This was my finished product and i was pretty pround until it failed yo compile producing the error(s):
SCAR Code:Line 9: [Error] (15037:1): Semicolon (';') expected in script
Failed when compiling
SCAR Code:Line 9: [Error] (15037:1): Semicolon (';') expected in script
SCAR Code:Line 10: [Error] (15038:1): Unknown identifier 'SetupPlayers' in scrip
SCAR Code:program TrunkSmasher;
{.include SRL/SRL.scar}
/////////////////////////////////SETUP\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
const
LoadsToBlow = 100 //How Many Loads You Want Chopped Per Player Before Switching.
TreeColor1 = 264199 //Color Of Tree Leaves.
AxeEquipped = true //Is Your Axe Equipped?
WaitPerTree = 5500 //How Long To Spend Smashing A Tree.
//////////////////////////////DON'T TOUCH\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
procedure SmashTrunk;
var
x, y, MyMark : interger;
begin
if not LoggedIn then Exit;
repeat
if FindObj(x, y, 'hop', TreeColor1, 25) then
begin
Mouse(x, y, 1, 1, False);
if ChooseOption('hop') then
begin
Wait(WaitPerTree);
Exit;
end;
end;
if TimeFromnMark(MyMark) >(4 * 30 * 1000) then
begin
Logout;
Exit;
end;
until false
end;
procedure DeclarePlayers;
begin
SetupPlayers;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := True;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := True;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := True;
Players[5].Name := '';
Players[5].Pass := '';
Players[5].Nick := '';
Players[5].Active := True;
LoadPlayerArray;
end;
begin
SetupSRL;
DeclarePlayers;
if LoggedIn then Logout;
LoginPlayer;
repeat
SmashTrunk;
if InvFull then
begin
DropToPosition(2, 28);
if AxeEquipped then DropAll;
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod LoadPerPlayer = 0 then
begin
NextPlayer(True);
end;
end;
if not LoggedIn then NextPlayer(False);
until false
end.
Ok, I found my problem out, if anyone need it.
switchwithSCAR Code:LoadPlayerArray;SCAR Code:CurrentPlayer := 0;
and
withSCAR Code:SetupPlayers;SCAR Code:NumberOfPlayers(Numbofplayershere);
There are currently 1 users browsing this thread. (0 members and 1 guests)