--Mass bot by Phatty
--13th December 2k3

function Main()
Bot = "Captain-J.Sparrow"
frmHub:RegBot(Bot)
end

function DataArrival(user,data)
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		s,e,cmd = strfind(data,"%b<>%s+(%S+)")

		if (cmd=="!mass") then
			if user.bOperator then
				s,e,cmd,message = strfind(data,"%s+(%S+)%s+(.*)")
				if message == nil then
					user:SendData(Bot,"Please type !mass <message>")
				else
					SendPmToAll(Bot,"<Mass message> "..user.sName..": "..message)
				end
			end
		end
	end
end