-- ListByProfile 1.0b
-- by Mutor The Ugly
--
-- List Registered Users by Profile
-- Reports in PM
--
--
--User Settings-------------------------------------------------------------------------------------

bot = "[Sentry]" 	-- Rename to your hub bot
Prefix = "+"		-- Command Prefix

--End User Settings----------------------------------------------------------------------------------

function DataArrival(user, data)
	if user.bOperator then
		local s,e,cmd = strfind(data, "%b<>%s+(%S+)(%S+)")
				if cmd == Prefix.."listreg" then
				Show(user,"Reg")
				elseif cmd == Prefix.."listvip" then
					Show(user,"VIP")
				elseif cmd == Prefix.."listops" then	
					Show(user,"Operator")
				elseif cmd == Prefix.."listmods" then
					Show(user,"Moderator")
				elseif cmd == Prefix.."listmaster" then
					Show(user,"Master")
				elseif cmd == Prefix.."listfounder" then
					Show(user,"NetFounder")
				elseif cmd == Prefix.."listall" then
					Show(user,"Reg")
					Show(user,"VIP")
					Show(user,"Operator")
					Show(user,"Moderator")
					Show(user,"Master")
					Show(user,"NetFounder")
				end
	else
	end
end

function Show(user,which)
	user:SendPM (bot,"")
	user:SendPM (bot,"\t\tListing -> "..which.."s")
	user:SendPM (bot,"\t---<>--------------------------------------------------<>--")
	local aux,usr
	for aux, usr in GetUsersByProfile(which) do
		user:SendPM(bot,"\t\t"..usr)
	end
		user:SendPM (bot,"")
end