Rotating Message

[jiten]

-- Rotating Message 1.1 by jiten - for PtokaX 0.3.3.0 build 16.09 or Higher
-- based on Rotating Message 1.0 by Mutor The Ugly
-- Rotates n text files posted to main chat at interval
-- Added: Rotates every .txt file stored in sFolder (by kepp)
-- Added: Text file sending by own trigger (Prefix - Filename)

mSet = {
	sBot = frmHub:GetHubBotName(),	-- Bot Name
	RunStatus = 0,			-- Auto Start -> 1=ON 0=OFF
	iDelay = 30,			-- Delay between each text file in minutes
	sFolder = "txt",		-- Folder where all the .txt files are stored
	-- Don't change this
	iCnt = 1,
}

sFile = {}

Main = function()
	ReloadText()
	SetTimer(mSet.iDelay*60*1000) 
	if (mSet.RunStatus == 1) then
		StartTimer()
	end
end 


ChatArrival = function(sUser, sData)
	sData=string.sub(sData,1,-2)
	local s,e,cmd = string.find(sData, "%b<>%s+[%!%?%+%#](%S+)" )
	if sUser.bOperator then
		local tCmds = {
		["adon"] =	function(user,data)
					mSet.RunStatus = 1
					user:SendData(mSet.sBot,"Messages started...")
					StartTimer()
				end,
		["adoff"] =	function(user,data)
					mSet.RunStatus = 0
					user:SendData(mSet.sBot,"Messages stopped...")
					StopTimer()
				end,
		["reload"] =	function(user,data)
					ReloadText()
					user:SendData(mSet.sBot,"Textfiles loaded...")
				end,
		}
		if tCmds[cmd] then
			return tCmds[cmd](sUser,sData),1
		else
			local sContent = FileExists(mSet.sFolder.."/"..cmd..".txt")
			if (sContent) then
				return sUser:SendData(mSet.sBot,"\r\n"..sContent),1 
			end
		end
	end
end

OnTimer = function()
	local TableSize = table.getn(sFile)
	for i=1,TableSize do
		if (i == mSet.iCnt) then
			local sContent = FileExists(mSet.sFolder.."/"..sFile[i])
			if (sContent) then
				SendToAll(mSet.sBot,"\r\n"..sContent)
			end
			if (TableSize == i) then mSet.iCnt = 1 else mSet.iCnt = mSet.iCnt + 1 end
			break
		end
	end
end

function FileExists(sFile)
	local oFile = io.open(sFile,"r");
	if (oFile) then
		local line = oFile:read("*all");
		oFile:close();
		return string.gsub(line,"\r","\r\n");
	else
		return nil;
	end
end

function ReloadText()
	sFile = nil;
	sFile = {};
	collectgarbage();

	--// Load up files to table from folder \\--
	os.execute("dir /b "..mSet.sFolder.."\\*.txt > files.txt");
	local hFile = io.open("files.txt","r");
	local line = hFile:read();
	while line do
		table.insert(sFile,1,line)
		line = hFile:read();
	end
	hFile:close();
	os.remove("files.txt");
end

Cheers

[BeeR]

after 2-3 days of rotating it stops sending mess to main,,
must restartscripts to start rotating again

[Dessamator]

Originally posted by BeeR
after 2-3 days of rotating it stops sending mess to main,,
must restartscripts to start rotating again

lol, it runs out of fuel?, make sure some other script doesnt interfere with that, in theory it should run indefinitely, :)

[BeeR]

Originally posted by Dessamator

Originally posted by BeeR
after 2-3 days of rotating it stops sending mess to main,,
must restartscripts to start rotating again

lol, it runs out of fuel?, make sure some other script doesnt interfere with that, in theory it should run indefinitely, :)

Theory and reality can be 2 differnt thing :]

[Dessamator]

indeed, but give us more info, did u change anything in the script,like  the timer interval, and doesnt it show any syntax error in ptokax ???, because if there are bugs with it, it should stop sooner than that !

btw, i just tested the script  for 10 mins with a 1 sec interval to send each txt, if it was a script problem it would have stopped in less than 5 mins, so theres obviously something wrong there in ur hub, :)

[jiten]

Originally posted by BeeR
after 2-3 days of rotating it stops sending mess to main,,
must restartscripts to start rotating again

Can you run it for more 2/3 days and see if that error happens again and check if AutoStart is on by default?

As Dessamator said, it should be running fine...

Cheers

[BeeR]

Originally posted by jiten

Originally posted by BeeR
after 2-3 days of rotating it stops sending mess to main,,
must restartscripts to start rotating again

Can you run it for more 2/3 days and see if that error happens again and check if AutoStart is on by default?

As Dessamator said, it should be running fine...

Cheers

yes autostart is on and i dont get a syntax error on it - it just stops ,,
maybe it interfere with clever janina or my jokebot ,,

i do some more tests

[xvk]

hi
i already have a folder in my script folder called txt changed this sFolder = "Messages",      -- Folder where all the .txt files are stored
and made a folder called Messages but getting error texter.lua:99: attempt to concatenate local `cmd' (a nil value)

any ideas please

[jiten]

Originally posted by xvk
hi
i already have a folder in my script folder called txt changed this sFolder = "Messages",      -- Folder where all the .txt files are stored
and made a folder called Messages but getting error texter.lua:99: attempt to concatenate local `cmd' (a nil value)

any ideas please

Hi xvk.
That's strange. I did the same you wrote and didn't get any error. Working fine here.
Did you change anything else in the script?
Maybe if you change the script loading error in PtokaX...

Best regards

[Honey]

Hi folks,

I have two things.

1) Thank you very much to all for this great script.

2. And thats my problem:
I write into ABC.txt this: Hello all users on my hub!

But script write into mainchat this:

Hello all users on my hub!

It is possible to do that the script write the message on the first line, like this: Hello all users on my hub!

I think, that script write message into main chat exactly how I write this message into .txt file: eg.

Into .txt file:
(1st line)
(2nd line)
(3rd line) Hello all users on my hub!

and into chat script write:
(1st line)
(2nd line)
3rd line)Hello all users on my hub!

It is this possbile to do, please?

Thank you in advance for help!

 Honey

[java]

Is it possible modify the rotating message (for build 17.02 or higher) so that it start automatically by default, and cant be stopped any other way then by stopping the script in hubsoft?

[Dessamator]

Originally posted by java
Is it possible modify the rotating message (for build 17.02 or higher) so that it start automatically by default, and cant be stopped any other way then by stopping the script in hubsoft?

Yes

[java]

What a helpfull reply. :P

Is there anybody who can tell me how to modify it to work like that  then?

[java]

tywm :)