--created by Initius;
--DON'T TOUCH THE SCRIPT IT'S REALLY SENSITIVE;

GROUPS = {["TRADOC"] = 3652639,
			["OCS"] = 4465827,
			 ["JAGC"]= 4468395,
			["MPC"]= 3652778,
			["CID"]= 4346730,
			["ASOC"]= 3114833,
			["SOAR"]= 3571984,
			["CAG"]= 3235982,
			["RR"]= 3584228,
			["SF"]= 3235972,
			["FORSCOM"]= 4346851,
			["XVIIICORPS"]= 4346985,
			["EIGHTAD"]= 4347007,
			["ONEAIRD"]= 4347026,
			["IIICORPS"]= 4346908,
			["ONEAD"]= 4347061,
			["ONECD"]= 4346957,
			["ONEID"]= 4346928};
USAR = 3108077;
GAMEPASS = 3391293;

game.Players.PlayerAdded:connect(function(plr)
	local Keycard = script:WaitForChild("AccessCard");
	local Handle = Keycard:WaitForChild("Handle");
	local CardNumber = Keycard:WaitForChild("CardNumber");
	local SG = Handle:WaitForChild("SurfaceGui");
	local Frame = SG:WaitForChild("Frame");
	local CL = Frame:WaitForChild("Card Level");
	local CT = Frame:WaitForChild("Card Type");
	local Comp = Frame:WaitForChild("Company");
	local Data = Frame:WaitForChild("Data");
	local Rank1 = Data:WaitForChild("Rank");
	local UName = Data:WaitForChild("UName");
	local ID = Data:WaitForChild("ID");
	local UP = Data:WaitForChild("UserPicture");
	local Rank = plr:GetRoleInGroup(USAR);
	local VT = Data:WaitForChild("ValidTo");
	local Booleans = Keycard:WaitForChild("Booleans");
	UP.Image = ("http://www.roblox.com/Thumbs/Avatar.ashx?x=100&y=100&Format=Png&username="..plr.Name);
	Rank1.Text = ("Rank: "..Rank);
	UName.Text = plr.Name;
	if plr:IsInGroup(USAR) then --divisions;
		Booleans:FindFirstChild("USAR").Value = true;
		Rank1.Text = plr:GetRoleInGroup(USAR);
		if plr:GetRankInGroup(USAR) <= 6 then
			CardNumber.Value = 1;
		elseif plr:GetRankInGroup(USAR) <= 11 then
			CardNumber.Value = 2;
		elseif plr:GetRankInGroup(USAR) <= 14 then
			CardNumber.Value = 3;
		elseif plr:GetRankInGroup(USAR) <= 15 then
			CardNumber.Value = 4;
		elseif plr:GetRankInGroup(USAR) > 15 then
			CardNumber.Value = 5;
		end
		for i,v in pairs(GROUPS) do
			if plr:IsInGroup(v) then
				Booleans:FindFirstChild(i).Value = true;
				ID.Text = plr:GetRoleInGroup(v);
				VT.Text = i;
			end
			wait();
		end
	elseif game:GetService("GamePassService"):PlayerHasPass(plr, GAMEPASS) == true then
		Booleans:FindFirstChild("GAMEPASS").Value = true;
		Rank1.Text = "Civilian";
	else
		Rank1.Text = "Civilian";
	end
	Keycard.Parent = plr:FindFirstChild("Backpack");
	CL.Text = "Level: "..CardNumber.Value;
	local clone = Keycard:Clone();
	clone.Parent = plr:FindFirstChild("StarterGear");
end)