--PM Filter 1.0
--by Mutor
--
--Requested by Jorgesc
--
-- Allow PM by unregistered users to select profiles
--
--User Settings-------------------------------------------------------------------------------------
Bot = frmHub:GetHubBotName()
-- Which profiles may an unregistered user send a PM to? '1=yes/0=no'
-- Adjust to your profiles
CanPM = {[0]=1,[1]=1,[2]=1,[3]=0,[4]=1,[5]=1,[6]=1} 	

--End User Settings----------------------------------------------------------------------------------
function DataArrival(user, data)
	if (strsub(data,1,4) == "$To:") and (user.iProfile == -1) then
		local s,e,who = strfind(data,"$To:%s+(%S+)%s+From:")
		local nick = GetItemByName(who)
			if CanPM[nick.iProfile] ~= 1 then
				user:SendPM(who,Bot.." ***Private Message blocked. You are not alowed to PM "..who)
				return 1
			end
	end
end