Give me a sec..
EDIT:
SCAR Code:
program New;
{.include SRL\SRL.scar}
const
timetowait=2500;
var
x,y:integer;
Procedure DeclarePlayers;
begin
CurrentPlayer:=0;
HowManyPlayers := 4; // MAX 4 PLAYERS
NumberOfPlayers(HowManyPlayers);
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // Nickname, 3 - 4 letters of username
Players[0].Active := True; // Active?
Players[1].Name := ''; // Username
Players[1].Pass := ''; // Password
Players[1].Nick := ''; // Nickname, 3 - 4 letters of username
Players[1].Active := True; // Active?
Players[2].Name := ''; // Username
Players[2].Pass := ''; // Password
Players[2].Nick := ''; // Nickname, 3 - 4 letters of username
Players[2].Active := True; // Active?
Players[3].Name := ''; // Username
Players[3].Pass := ''; // Password
Players[3].Nick := ''; // Nickname, 3 - 4 letters of username
Players[3].Active := True; // Active?
end;
procedure Pick;
begin
repeat
if(FindColorTolerance(x,y,150654930, 0, 700, 500,4,10))then
begin
Mouse(x,y,0,0,true);
Wait(200);
end;
Wait(200);
until(InvFull)
end;
Begin
SetupSRL;
ActivateClient;
If Not LoggedIn Then LoginPlayer;
Pick;
end.
EDIT:
See You Forgot The Tol To Go Up To Max...
Look:
SCAR Code:
if(FindColorTolerance(x,y,150654930, 0, 700, 500,4))then
To
SCAR Code:
if(FindColorTolerance(x,y,150654930, 0, 700, 500,4,10))then
P.S. Just added players and fixed it to work currently..