Popup prob. for Mass

[Smulf]

Hi U guys...

I'm realy wondering. I have a mass message script. When I type 'mass ' in main chat, only a line like: "Private message from Mass MGS from [OP]Smulf: hi" is diplayed... Why??

Is it posible in anyway to config the script so it shows the mass message in a popup window to common user...???

This is the script I use:

--Mass Message bot made by SRJbb99 for the [?] network(?[?] Network Solutions 2003)

Bot = "Mass message"

function Main() 
frmHub:RegBot(Bot) 
end

function DataArrival(user, data)
	if(user.bOperator and strsub(data, 1, strlen(user.sName)+8) == "<"..user.sName.."> mass ") then
		SendPmToAll("Mass MGS from " ..user.sName, strsub(data, strlen(user.sName)+9))
	end
end

I would be very glad if you guys out there could help me... Thanks...

[pHaTTy]

heres one i done earlier ;)

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

function Main()
	Bot = "Mass"
	frmHub:RegBot(Bot)
end

function DataArrival(user,data)
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		local 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 ")
				else
					SendPmToAll(Bot," "..user.sName..": "..message)
				end
			end
		end
	end
end

[NightLitch]

When you get that try unmark popups in client and OK and then mark it again and OK. hope you understand.

That Should work.

[NightLitch]

Gaaa... always a step behind... you ... you... ahh... forget it... ;-p to slow I guess

[pHaTTy]

here

--Mass bot by Phatty v2
--17th Feburary 2k4

function Main()
	Bot = "Mass"
	frmHub:RegBot(Bot)
end

function DataArrival(user,data)
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		local s,e,cmd,message = strfind(data,"%s+(%S+)%s+(.*)")

		if (cmd=="!mass") and user.bOperator then
			if message ~= nil then
				SendPmToAll(Bot," "..user.sName..": "..message)
				return 1
			else
				user:SendData(Bot,"Please type !mass ")
				return 1
			end
		end
	end
end

[Smulf]

Thanks you guys! Great script pH?tt?, very nice... It was just what I wanted!

[Smulf]

pH?tt? is it posible to add, so only the Owner, Admin and Pro_OP can send '!mass '...?

Here is my iprofile:

0|Owner|11111111111111111111000000000000
1|Admin|11111100011111111111000000000000
2|Pro_OP|11110100011101111111000000000000
3|Reg|10000000000000000000000000000000
4|VIP|10000000000001111000000000000000
5|Nor_OP|11110100011101111100000000000000

[kepp]

--Mass bot by Phatty v2
--17th Feburary 2k4

function Main()
	Bot = "Mass"
	frmHub:RegBot(Bot)
end

function DataArrival(user,data)
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		local s,e,cmd,message = strfind(data,"%s+(%S+)%s+(.*)")

		if (cmd=="!mass") and user.iProfile == 0 or user.iProfile == 1 or user.iProfile == 2 then
			if message ~= nil then
				SendPmToAll(Bot," "..user.sName..": "..message)
				return 1
			else
				user:SendData(Bot,"Please type !mass ")
				return 1
			end
		end
	end
end

[pHaTTy]

yep np

--Mass bot by Phatty v2
--17th Feburary 2k4

function Main()
	Bot = "Mass"
	frmHub:RegBot(Bot)
end

function DataArrival(user,data)
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		local s,e,cmd,message = strfind(data,"%s+(%S+)%s+(.*)")

		if user.iProfile == 0 or user.iProfile == 1 or user.iProfile == 2 then
			if (cmd=="!mass") and user.bOperator then
				if message ~= nil then
					SendPmToAll(Bot," "..user.sName..": "..message)
					return 1
				else
					user:SendData(Bot,"Please type !mass ")
					return 1
				end
			end
		end
	end
end

[pHaTTy]

or

--Mass bot by Phatty v2.01
--17th Feburary 2k4

table = {"0","1","2"} -- profiles

function Main()
	Bot = "Mass"
	frmHub:RegBot(Bot)
end

function DataArrival(user,data)
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		local s,e,cmd,message = strfind(data,"%s+(%S+)%s+(.*)")


		if (cmd=="!mass") then
			for i,v in table do
				if user.iProfile == v then
					if message ~= nil then
						SendPmToAll(Bot," "..user.sName..": "..message)
						return 1
					else
					user:SendData(Bot,"Please type !mass ")
					return 1
					end
				end
			end
		end
	end
end

[Smulf]

Wow big thanks to you guys! I like fast replies:P
If I should aske one more question it would be: "What is the string for a user profile?", so it's not:

SendPmToAll(Bot," ".[B].user.sName..": [/B]  "..message)

with the username string, but instead - Owner or what profile the common OP has...

No more questions... Big thanks for the help guys!

[pHaTTy]

Originally posted by Smulf
Wow big thanks to you guys! I like fast replies:P
If I should aske one more question it would be: "What is the string for a user profile?", so it's not:

SendPmToAll(Bot," ".[B].user.sName..": [/B]  "..message)

with the username string, but instead - Owner or what profile the common OP has...

No more questions... Big thanks for the help guys!

hmm i dont understand

[Smulf]

Well, when an OP sends a mass, there would be written: "Mass Message [OP]Zzzz: TEXT",
but I would like this if it was posible: "Mass Message from Owner(Admin, Pro_OP, Nor_OP): TEXT"...
You see, if an Pro_OP sends the msg it would write: "Mass Message from Pro_OP: TEXT"...

[pHaTTy]

--Mass bot by Phatty v2.02
--17th Feburary 2k4

table = {"0","1","2"} -- profiles

function Main()
	Bot = "Mass"
	frmHub:RegBot(Bot)
end

function DataArrival(user,data)
	if strsub(data, 1, 1) == "<" then
		data=strsub(data,1,strlen(data)-1)
		local s,e,cmd,message = strfind(data,"%s+(%S+)%s+(.*)")


		if (cmd=="!mass") then
			for i,v in table do
				local TEMP = GetProfileIdx(user.iProfile)
				if user.iProfile == v then
					if message ~= nil then
						SendPmToAll(Bot," from "..TEMP..": "..message)
						return 1
					else
						user:SendData(Bot,"Please type !mass ")
					return 1
					end
				end
			end
		end
	end
end

[Smulf]

Sorry for the delay... pH?tt? the last script didn't work to well, can u get it to work? The prob. is when I try to type "!mass " nothing happens...