Hello, I actually joined awhile back, but I started posting recently, to learn more about SCAR, I think I might want to learn how to make scripts, I have absolutly no programing skills, I attempted to learn as many terms in scar as I could, went and made a script with all of them in the past 3 days I learned, like acouple hours a day I would try and read tutorials and experiment (so you can imagine I havn't been doing it that long), I made this Script that I'm sure has many mistakes in it :P. If anyone is willing to have a laugh take a look:
SCAR Code:
Program new;
{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}
Var
x,y:integer;
Const
LoadsPerPlayer = 10000;
RockColor1 = '11111';
RockColor2 = '11111';
procedure DeclarePlayers;
begin
SetupPlayers;
Players[0].Name := 'username';
Players[0].Pass := 'password';
Players[0].Nick := 'nick';
Players[0].Active := True;
LoadPlayerArray;
end;
Procedure AntiRandoms;
begin
FTWait(5);
FindNormalRandoms;
If (FindFight = True) Then
begin
RunAwayDirection('N');
Wait(9000+Random(1000)-Random(1000));
RunBack;
end;
end;
Procedure AntiBan;
begin
if not LoggedIn then Exit;
Case Random(75) of
0:= RandomRClick;
1:= HoverSkill('Mining',False);
2:= AlmostLogout;
3:= BoredHuman;
4:= PickUpMouse;
5:= MouseC(200+Random(100),200-Random(100),0);
6:= GameTab(4);
end;
end;
Procedure Mine;
begin
if not Loggedin then Exit;
Repeat
if (FindObjCustom(x,y,['Ir','orn'],[Rockcolor1,Rockcolor2],5)) then
MouseC(x,y,0);
Wait(500+random(100));
Mouse(x,y,1,1,False);
ChooseOption('ine');
AntiBan
Wait(6000+random(1203)-random(204));
Until (InvFull);
end;
Procedure Drop;
begin
DropAll;
end;
begin
smartSetup('mn3', False, True);
While Not (SmartReady) Do
Wait(100);
SetTargetDC(SmartGetDC);
If Not (LoggedIn) Then
While Not (SmartGetColor(386, 249) = 65535) Do
Wait(100);
SetupSRL;
ActivateClient:
DeclarePlayers;
if Loggedin then Logout;
LoginPlayer;
Repeat
Mine;
Drop;
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
begin
NextPlayer(True);
if not Loggedin then NextPlayer(False);
end;
Until(False)
end.
So yeah :P , I've learned a good amount of terms, but they have poor structure I'm guessing. The problem is I learn something but forget what tutorial I learned it from, and then forget something about that, and not know were to find it.
I have no idea were to enter antirandoms into the main line, or if they should be entered into a sepret procedure, or if they need to at all.
EDIT: why does it say the scripts by Drunkenoldma, possibly something I copyed and pasted from a tutorial maybe?