Hey,
This script used to work fine but now it stuffs up major, I was wondering if anyone could point out any mistakes.
SCAR Code:
program New;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
{C:\Program Files\SCAR 3.15\includes\SRL\Logs.scar}
Var
x, y: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'Nick';
Players[0].Active := True;
end;
Procedure RunningFromFights;
begin
FindNormalRandoms;
If (FindFight) then
RunAway('N', True, 1, 5000);
end;
Procedure randomcompass;
Begin
Case Random(15) Of
1: makecompass('E');
2: makecompass('W');
3: makecompass('N');
4: makecompass('S');
5: setangle(true);
End;
End;
Procedure FindRandoms;
Begin
If Not (LoggedIn) Or Not (Players[CurrentPlayer].Active) Then
NextPlayer(false);
FindNormalRandoms;
wait(400)
Findtalk;
RunningFromFights;
FindLamp('Mining');
End;
procedure AntiBan;
begin
case random(30) of
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Mining', False);
end;
end;
begin
SetupSRL;
DeclarePlayers;
wait(200+random(100))
Repeat
Mousespeed := 15
DropAll;
Repeat
LoadRockRecords;
FindObjRock(x, y, Rimmington_Iron);
ClickMouse(x, y, True);
FindRandoms;
AntiBan;
randomcompass;
Wait(3000+random(2000));
Until (InvFull= True);
until false
end.
Thanks.