-- userlist by bastya_elvtars
-- shows a sorted userlist in PM divided into categories
-- ascii should be updated by somebody who has ascii design skills
-- will be deprecated in lua5 px ;)

-- sure u should edit these if needed

bot="userlist-bot"

command="userlist" -- no leading ! or other prefix plz - supports ! + #

level=2 -- levels are always the following, determining who CAN use the command:
        -- 5:only superops
        -- 4 ops & above
        -- 3 vips & above
        -- 2 registered users & above
        -- 1 anyone
        -- 0 disabled

-- not sure u should edit below without minimal lua knowledge.

users={}

users["reg"]={}
users["su"]={}
users["op"]={}
users["vip"]={}
users["guest"]={}


toins={
[1]=users["op"],
[2]=users["vip"],
[3]=users["reg"],
[0]=users["su"],
[-1]=users["guest"],
}

userlevels={[-1]=1,[0]=5,[1]=4,[2]=3,[3]=2}


function NewUserConnected(user)
	if toins[user.iProfile] then
		toins[user.iProfile][user.sName]=1
	end
end

function Main()
	frmHub:RegBot(bot)
end

function UserDisconnected(user)
	if toins[user.iProfile] then
		toins[user.iProfile][user.sName]=nil
	end
end

function userlist()
	return ("This Is The Current UserList:\r\n\r\n=======================\r\n=======================\r\nSuperops:\r\n--------------------------------------\r\n"..
	makelistofaddedprofileintable(toins[0]).."--------------------------------------\r\n\r\nOps:\r\n--------------------------------------\r\n"..
	makelistofaddedprofileintable(toins[1]).."--------------------------------------\r\n\r\nVIPs:\r\n--------------------------------------\r\n"..
	makelistofaddedprofileintable(toins[2]).."--------------------------------------\r\n\r\nREGs:\r\n--------------------------------------\r\n"..	
	makelistofaddedprofileintable(toins[3]).."--------------------------------------\r\n\r\nGuests:\r\n--------------------------------------\r\n"..
	makelistofaddedprofileintable(toins[-1]).."\r\n\r\n=======================\r\n=======================")
end

function makelistofaddedprofileintable(table)
	local txt=""
	local arr={}
	for a,b in table do
		tinsert(arr,a)
	end
	sort(arr)
	for u=1,getn(arr) do
		txt=txt..arr[u].."\r\n"
	end
	return txt
end

function DataArrival(user,data)
	if userlevels[user.iProfile]>=level then
		if strsub(data, 1, 4) == "$To:" then
			data=strsub(data,1,strlen(data)-1)
			-- is this meant for our bot?
			local _,_,whoTo = strfind(data,"$To:%s+(%S+)")
			if (whoTo == Bot) then
				local _,_,cmd = strfind(data,"$To:%s+%S+%s+From:%s+%S+%s+$%b<>%s+[%!%+%#](%S+)")
				if cmd==command  then
					user:SendPM(bot,userlist())
				end
			elseif strsub(data, 1, 1) == "<" then 
				data=strsub(data,1,strlen(data)-1)
				local _,_,cmd = strfind(data,"%b<>%s+[%!%+%#](%S+)")
					if cmd==command  then
					user:SendPM(bot,userlist())
				end
			end
		end
	end
end

OpConnected=NewUserConnected
OpDisconnected=UserDisconnected