-- master chat by ¨˜”°º•Hawk•º°”˜¨

MasterChatName = "master_chat"



function Main() 
   frmHub:RegBot(MasterChatName) 
end






function DataArrival(user,data) 
	if(strsub(data,1,4) == "$To:") then
		s,e,whoTo = strfind(data,"$To:%s+(%S+)")
		if whoTo == MasterChatName then
			if GetProfileName(user.iProfile) == "Master" then
				s,e,whoTo,from,msg = strfind(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.+)")
				MasterChatRoom(user,msg)
			else
				user:SendData("$To: "..user.sName.." From: "..MasterChatName.." $This Chat Is For Master ops only. Your message has not been sent")
			end
		end
	end
end 



function MasterChatRoom(user,msg)
      local Masters=GetUsersByProfile("Master") 
   		for i, n in Masters do 
			local usr = GetItemByName(n)
				if  usr ~= nil then
     					if usr.sName == user.sName then 
  					else 
						usr:SendData("$To: "..usr.sName.." From: "..MasterChatName.." $<"..user.sName.."> " ..msg)
  					end 
				end 
		end
end