function LoadProfile(Player,directory)
	local loaded
	local ID = Player:UniqueID()
	local ID2 = string.sub(ID,11)
	local Name = directory.."/"..ID2..".txt"
	if file.Exists(Name) then
		loaded = util.KeyValuesToTable(file.Read(Name))
	end
return loaded end

--Save the profile.
function SaveProfile(Player,directory,tbl)
	local ID = Player:UniqueID()
	local ID2 = string.sub(ID,11)
	local Name = directory.."/"..ID2..".txt"
	file.Write(Name, util.TableToKeyValues(tbl))
end