SendToVips ?

[jiten]

Well, I have a question. How do I convert this code to LUA 5 ? The problem is that the SendToVips isn't working anymore.

BotName = "?bot?" 

controltrigs={["join"]=1,["login"]=2,["hub"]=3}

supervip = {}
fSuperVip = "logs/svip.txt"	-- Path of file that contains SuperVips

function ChatArrival(user,data)
	if not user.bOperator then
		LoadFromFile(fSuperVip)
		for key, value in controltrigs do
			if( string.find( string.lower(data), key) ) then
				s,e,onlymes = string.find(data, "%b<> (.*)")
				SendPmToOps (BotName, "Control: <"..user.sName.."> ("..user.sIP..") told in main: "..onlymes.."")
				SendToVips("Control: <"..user.sName.."> ("..user.sIP..") told in main: "..onlymes) 
			end
		end
	end
end

function ToArrival(user,data)
	local _, _, to, from, msg = string.find(data, "^%$To:%s+(%S+)%s+From:%s+(%S+)%s-%$%b<>%s+(.*)|")
	local nick = GetItemByName(to)
	if not user.bOperator then
		for key, value in controltrigs do
			if( string.find( string.lower(data), key) ) then
				s,e,whoTo,from,mes = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")  
				SendPmToOps (BotName, "Control: <"..user.sName.."> ("..user.sIP..") said to <"..to.."> in PVT this: "..mes.."")
				SendToVips("Control: <"..user.sName.."> ("..user.sIP..") said to <"..to.."> in PVT this: "..mes) 
			end
		end
	end
end

function SendToVips(msg)
	local usr,aux
	for usr, aux in supervip do
		if (GetItemByName(usr) ~= nil) then
			GetItemByName(usr):SendPM(BotName, msg)
		end
	end
end

function LoadFromFile(file)
	local f,e = io.open( file, "r" )
	if f then
		local r = f:read( "*a" )
		f:close()
		return r
	else
		return nil,"loadfile failed: "..e
	end
end

Thanks in advance.
Best regards,

jiten

[NightLitch]

here you go:

SendToVips = function(from,message)
	for _,Users in GetUsersByProfile("VIP") do
		SendToNick(Users, "<"..from.."> "..message)
	end
end

SendPmToVips = function(from,message)
	for _,Users in GetUsersByProfile("VIP") do
		SendPmToNick(Users, from, message)
	end
end

I guess I should work... not tested by Am pretty sure it should work.

// NL

[jiten]

Hi there NL. Well, I guess i didn't explain exactly what this script was meant for, so I'm going to post all of the script (the first post is edited).
This script warns the Operators and the KVIPs about certain triggers. The KVIP nicks are stored in a file - logs/svip.txt - like this:

supervip = {["kviptest"]=1,}

Thanks in advance.
Best regards,

jiten

[Herodes]

Please add a "SendToLevel" and a "SendPmToLevel" function.
As you can see sacrifices have already begun ...

( Ooh and a way to get a table of all the connected userobjects too pretty pls ;)

[jiten]

Hi there...
Well, I tried to use NL's SendToVips and SendPmToVips but I get this error when typing any of the triggers:

Syntax ...ktop\16.04rls\scripts\warnvip.lua_5.0.lua:165: attempt to concatenate local `message' (a nil value)

Thanks in advance.
Best regards,

jiten

[NightLitch]

Originally posted by jiten
Hi there...
Well, I tried to use NL's SendToVips and SendPmToVips but I get this error when typing any of the triggers:

Syntax ...ktop\16.04rls\scripts\warnvip.lua_5.0.lua:165: attempt to concatenate local `message' (a nil value)

Thanks in advance.
Best regards,

jiten

By the look of my code there should be no problem, have you used the function correct ???

SendToVips(BotName, "Your Message to VIP's here")

SendPmToVips(BotName, "Your Message to VIP's here")

[jiten]

Oops! The code was OK. Guess I was in the moon  
But, there's one problem. The message should be sent to the users stored in this file, so called KVIPs: "logs/svip.txt" and not to every VIP.
Best regards.

[Dessamator]

yah, i tried it also doesnt seem to b able to read nicks in a table something to do with the

for _,Users in supervip do

, dunno mayb im wrong

[nErBoS]

Hi,

The problem is on the LoadFile function, you are only reading the file not loading the code...

BotName = "?bot?" 

controltrigs={["join"]=1,["login"]=2,["hub"]=3}

supervip = {}
fSuperVip = "logs/svip.txt"	-- Path of file that contains SuperVips

function ChatArrival(user,data)
	if not user.bOperator then
		LoadFromFile(fSuperVip)
		for key, value in controltrigs do
			if( string.find( string.lower(data), key) ) then
				s,e,onlymes = string.find(data, "%b<> (.*)")
				SendPmToOps (BotName, "Control: <"..user.sName.."> ("..user.sIP..") told in main: "..onlymes.."")
				SendToVips("Control: <"..user.sName.."> ("..user.sIP..") told in main: "..onlymes) 
			end
		end
	end
end

function ToArrival(user,data)
	local _, _, to, from, msg = string.find(data, "^%$To:%s+(%S+)%s+From:%s+(%S+)%s-%$%b<>%s+(.*)|")
	local nick = GetItemByName(to)
	if not user.bOperator then
		for key, value in controltrigs do
			if( string.find( string.lower(data), key) ) then
				s,e,whoTo,from,mes = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")  
				SendPmToOps (BotName, "Control: <"..user.sName.."> ("..user.sIP..") said to <"..to.."> in PVT this: "..mes.."")
				SendToVips("Control: <"..user.sName.."> ("..user.sIP..") said to <"..to.."> in PVT this: "..mes) 
			end
		end
	end
end

function SendToVips(msg)
	local usr,aux
	for usr, aux in supervip do
		if (GetItemByName(usr) ~= nil) then
			GetItemByName(usr):SendPM(BotName, msg)
		end
	end
end

function LoadFromFile(file)
	local handle = io.open(file,"r")
        if (handle ~= nil) then
                dofile(file)
		handle:flush()
		handle:close()
        end
end

Best regards, nErBoS

[Dessamator]

yap nerbos u were right, it works perfectly now, thanks  :D

[jiten]

Thanks for the help, nErBoS.
Now it's working perfectly.