im testing it right now ill tell you how it works
and
it doesnt work
you should use this instead
SCAR Code:
program MSAM;
{"Masterdests.simple.auto.miner"
start logged out for bes results
set up players and rock color
pick in first inventory spot
must have same pick and rock type for all players for now}
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/mining.scar}
const
tincolor = fillin;
coppercolor = fillin;
thyrock = 5212121;//rock color on main screen
//********
Procedure DeclarePlayers;
Begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='username';
Players[0].Pass :='password';
Players[0].Nick :='nick';
Players[0].Loc :='location';
Players[0].Skill:='skill';
Players[0].Active:=True;
Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
End;
//********************MINING************************
procedure HitThatRock;
begin
repeat
if not loggedin then break;
//
wait(500+random(200))
if (FindColorTolerance(x, y, OreColor, MSX1, MSY1, MSX2, MSY2,1)) Then
mouse(x,y,3,3,true)
wait(4000)
FindPick;
//
findnormalrandoms;
//
until(invfull)
end;
//------------------------------------------------------
procedure Oredrop;
begin
DropTo(2,28)
end;
//------------------------------------------------------
procedure TheAntiban;
begin
Antiban;
end;
//------------------------------------------------------
begin
setupSRL;
SetupSRLMining;
DeclarePlayers;
if not loggedin then loginplayer;
FindPickHeadColor;
repeat
if not loggedin then break;
HitThatRock;
TheAntiban
Oredrop;
if (not(Loggedin)) then NextPlayer(false);
until(false)
end.