- MassMessage To Unregisterd_Users

[Optimus]

This 1 i made for some 1 else, but wanted to share it with you all.
It's a Mass_Message system, To send messages to Only Unregisterd users that are in the hub...

* WILL ONLY WORK CORRECTLY WHEN HUB IS RESTARTED...

Enjoy!

- DOWNLOAD HERE -

 

[Cp6uja]

Optimus why you build this script !

Sorry 4 my ENGLISH  

[blackwings]

Originally posted by Cp6uja
Optimus why you build this script !

Sorry 4 my ENGLISH  ;)

So ops can sends mass message to unregged people and the already regged user, vips and ops doesn't need to see it.

[Cid]

any chance to make a script that sends a massmessage:

1. only to unregged users (or selectable profile)
2. timed, like every 60 minutes
3. reads message to send from a .txt file

???

[piglja]

Optimus, is there a chance that you put that script somewhere where it can be downloaded?
On the existing URL it says that it is not available :(

[??????Hawk??????]

heya peeps  


Click Here


 )  )  )  )

[piglja]

tnx, Hawk!

[Optimus]

Hi Piglja girl  :D

Well that 1 was rather old hehe, wrote me a new 1 quickly. Only None regged users need to be added so be my guest.

This 1 is based on profiles, enjoy!

-- Mass-Message based on Profiles
-- Made by Optimus 8-1-2005

sBot = "-=Mass#System=-"

sCommands = {}

CmdPrefix = { ["!"]=1, ["?"]=1, ["+"]=1 }

Main = function()
	frmHub:RegBot(sBot)
end

sCommands["massp"] = function(user, data)
	local s,e,cmd,profile,message = strfind(data, "%b<>%s+(%S+)%s+(%S+)%s+(.+)")
	if user.bOperator then
		if profile and message then
			local GetProfile = GetUsersByProfile(profile)
			if GetProfileIdx(profile) ~= -1 then
				local text = CreateMassText(user, message)
				for a,b in GetProfile do
					if b then
						local vUser = GetItemByName(b)
						if vUser then
							vUser:SendPM(sBot, text)
						end
					end
				end
			else
				user:SendMessage(sBot, "*** Profile is not available!")
			end
		else
			user:SendMessage(sBot, "*** Usage: !massp profile message (profiles: netfounder, master, moderator, operator, vip, reg)")
		end
	end
	return 1
end

CreateMassText = function(user, message)
	if (strlen (message)*2/3+2) < 76 then
		border = strrep ("-", strlen (message)*2/3+2)
	else
		border = strrep ("-", 75)
	end
	return "*** Mass-Message # From: "..user.sName.."\r\n\r\n"..border.."\r\n"..message.."\r\n"..border.."\r\n"
end

DataArrival = function(user, data)
	if (strsub(data, 1, 1) == "<" ) then
		user.SendMessage = user.SendData return GetCommands(user, data)
	elseif (strsub(data, 1, 5) == "$To: ") then
		user.SendMessage = user.SendPM return GetCommands(user, data)
	end
end

GetCommands = function(user, data, cmd)
	data=strsub(data,1,strlen(data)-1)
	local s,e,prefix,cmd=strfind(data, "%b<>%s*(%S)(%S+)")
	if prefix and CmdPrefix[prefix] then
		if sCommands[cmd] then
			return sCommands[cmd](user, data)
		end
	end
end

[Optimus]

Feel free to add more...

1. timed, like every 60 minutes
2. reads message to send from a .txt file

[Cid]

:)

so it can send massmessages now to all profiles except unregged users... lol. thats exactly the opposite of what i wanted :P

i just wanted a script that sends a massmessage to unregged users bugging them like all the time to reg for the hub.

[Optimus]

The other 1 is here.. - Download here -