A message in main at 1 time

[Syphrone-NL]

Hello everybody

Can somebody make me a script.

I want a automatic message at 1 time ( i want it at 4 o clock afternoon) in mainchat. so if its 4 o clock there apears a message with something. And i want that i can change the message. And maybe with a botname.

Can somebody make me this script

Thx in advanced

[jiten]

Originally posted by Syphrone-NL
Hello everybody

Can somebody make me a script.

I want a automatic message at 1 time ( i want it at 4 o clock afternoon) in mainchat. so if its 4 o clock there apears a message with something. And i want that i can change the message. And maybe with a botname.

Can somebody make me this script

Thx in advanced

A message red from a file (e.g. txt)?

Cheers

[jiten]

Here goes:

-- timed message by jiten

sConf = {
	sBot = frmHub:GetHubBotName(),
	sFile = "file.txt", -- the txt file
}

function Main()
	SetTimer(30*60*1000) -- timed message in 30 minutes
	StartTimer()
end

function OnTimer()
	local H = os.date("%H")  
	if (H == "16") then 
		SendToAll(sConf.sBot,ReadFile(sConf.sFile1)) -- Send sFile1
	end
end

function ReadFile(file)
	local fFile = io.open(file)
	if fFile then
		local message = ""
		for line in io.lines(file) do
			message = message..line.."\n"
		end
		fFile:close()
		return message
	end
end

Cheers

[LoTeK_]

Is possibile to modify this script (or a new one), to send chat lines in main chat read from a txt file every xx minutes?

[James]

this ?

--Timebot for LUA 5
--
-- by blackwings
--Little changed by nErboS
--
-- Converted to LUA 5 by Mutor 2/28/2005
-- Changed by DTM?-Message only MainChat no PM
-- Deutsche Anleitung
--

bot = "Message" -- BotNamen in UserListe
name2 = "News" --BotNamen in MainChat


sec = 60


fMsgAll2 = "MsgAll2.txt"--Namen der txt datei af dem der script zugreift--datei muss in Ordner scripte sein
sMsgAll2 = ""

tClock = {
   ["tMsgAll2"] = os.clock() + 1*sec,   -- Time to show in math.minutes
}

function Main()
   frmHub:RegBot(bot)
   sMsgAll2 = Readtext(fMsgAll2)
   StartTimer()
end

function OnTimer()
   if (tClock["tMsgAll2"] <= os.clock() and sMsgAll2~= "") then
      tClock["tMsgAll2"] = os.clock() + 30*sec  --Hier die WiederholungsZeit eintragen.30=30Min
      SendPmToAll(name2, sMsgAll2)
   end
end

function Readtext(file)
local sTmp="\r\n\r\n"
    for line in io.lines(file) do
        sTmp = sTmp..line.."\r\n"
    end
    return sTmp
end

[jiten]

Originally posted by LoTeK_
Is possibile to modify this script (or a new one), to send chat lines in main chat read from a txt file every xx minutes?

Something like this?

Best regards.

[LoTeK_]

no jiten, that one is for chat history on login, thanks anyway :)

James I think your posted script suite for me, I will try it soon, thanks
no problem if I delete:
name2 = "News" --BotNamen in MainChat?

[jiten]

Originally posted by LoTeK_
no jiten, that one is for chat history on login, thanks anyway :)

James I think your posted script suite for me, I will try it soon, thanks
no problem if I delete:
name2 = "News" --BotNamen in MainChat?

So, you wanted chat history shown in main in a X minutes interval?

Cheers

[LoTeK_]

Originally posted by jiten

Originally posted by LoTeK_
no jiten, that one is for chat history on login, thanks anyway

James I think your posted script suite for me, I will try it soon, thanks
no problem if I delete:
name2 = "News" --BotNamen in MainChat?

So, you wanted chat history shown in main in a X minutes interval?

Cheers

Yes but not chat history, chatlines.
Only 1 line every xx minutes choosed randomly between lines in the txt file.
I'm not sure if the script from james is for this.
I have it for LUA4, but I need one new in lua5, if you want I can send you my previus LUA4 script in PM.

[Dessamator]

Originally posted by LoTeK_

Originally posted by jiten

Originally posted by LoTeK_
no jiten, that one is for chat history on login, thanks anyway :)

James I think your posted script suite for me, I will try it soon, thanks
no problem if I delete:
name2 = "News" --BotNamen in MainChat?

So, you wanted chat history shown in main in a X minutes interval?

Cheers

Yes but not chat history, chatlines.
Only 1 line every xx minutes choosed randomly between lines in the txt file.
I'm not sure if the script from james is for this.
I have it for LUA4, but I need one new in lua5, if you want I can send you my previus LUA4 script in PM.

cant it fit here?, just post the script and some1 will convert it, hopefully!

[LoTeK_]

I can't, the person who gave me this script don't want it posted anywhere. I can send you a PM with the code.

[jiten]

Originally posted by LoTeK_

Originally posted by jiten

Originally posted by LoTeK_
no jiten, that one is for chat history on login, thanks anyway :)

James I think your posted script suite for me, I will try it soon, thanks
no problem if I delete:
name2 = "News" --BotNamen in MainChat?

So, you wanted chat history shown in main in a X minutes interval?

Cheers

Yes but not chat history, chatlines.
Only 1 line every xx minutes choosed randomly between lines in the txt file.
I'm not sure if the script from james is for this.
I have it for LUA4, but I need one new in lua5, if you want I can send you my previus LUA4 script in PM.

Sure, you may send it.

[Quattro]

Originally posted by LoTeK_
I can't, the person who gave me this script don't want it posted anywhere. I can send you a PM with the code.

Why doesn't he want it to be send anywhere...
Is he ashamed of it like someone I know for his security bot for DCHpp.
He couldn't give it to me because he was ashamed of how crappy the code was :P

[Dessamator]

Originally posted by Quattro

Originally posted by LoTeK_
I can't, the person who gave me this script don't want it posted anywhere. I can send you a PM with the code.

Why doesn't he want it to be send anywhere...
Is he ashamed of it like someone I know for his security bot for DCHpp.
He couldn't give it to me because he was ashamed of how crappy the code was

LOL, I saw the code it was very untidy indeed,

[NightLitch]

Try this one, made this one in 3min here in school, have not tested it because I don't have a px here ;-p

------------------------------------------------------------------------------
--// Send Random Text Line every x minute // By NightLitch
------------------------------------------------------------------------------
cBotName = "botnamehere" -- enter botname
cFilename = "filename.here" -- enter filename
cTime = 10 -- enter time in minutes
------------------------------------------------------------------------------
lineTable = {n=0}

function Main()
	GetLines(sFilename)
	SetTimer(cTime*60000)
	StartTimer()
end

function OnTimer()
	local message = lineTable(math.random(1,table.getn(lineTable))
	SendToAll(cBotName, message)
end

function GetLines(filename)
	local file = io.open(filename, "r")
	for line in file:lines() do
		table.insert(lineTable, line)
	end
	file:close()
	
end

Hope it does what you want LoTeK_.

Enjoy!

[Dessamator]

------------------------------------------------------------------------------
--// Send Random Text Line every x minute // By NightLitch
------------------------------------------------------------------------------
cBotName = "botnamehere" -- enter botname
cFilename = "filename.here" -- enter filename
cTime = 10 -- enter time in minutes
------------------------------------------------------------------------------
lineTable = {n=0}

function Main()
	GetLines(cFilename)
	SetTimer(cTime*60000)
	StartTimer()
end


function OnTimer()
	local message = lineTable[math.random(1,table.getn(lineTable))]
	SendToAll(cBotName, message)
end

function GetLines(filename)
	local file = io.open(filename, "r")
	for line in file:lines() do
		table.insert(lineTable, line)
	end
	file:close()
end

There were some errors, fixed, hopefully !
--Post edited--> some debugging code was left !

[LoTeK_]

whoa , I will test it soon, less code than my version. thanks.

[LoTeK_]

Is possible to add two commands (like my previous version) to do add a line to the txt directly from Hub (!memaddline) and to send a line (!memories) in this moment?

[Dessamator]

        
------------------------------------------------------------------------
------
--// Send Random Text Line every x minute // By NightLitch
-- little mod by Dessamator, added memlines and memory
------------------------------------------------------------------------------
cBotName = "botnamehere" -- enter botname
cFilename = "memories.txt" -- enter filename
cTime = 10 -- enter time in minutes
------------------------------------------------------------------------------
lineTable = {n=0}

function Main()
frmHub:RegBot(cBotName)
GetLines(cFilename)
SetTimer(cTime*60000)
StartTimer()
end


function OnTimer()
	SendStuff()
end

function GetLines(filename)
local file = io.open(filename, "r")
		for line in file:lines() do
			table.insert(lineTable, line)
		end
file:close()
end

function ChatArrival(curUser, sdata)

	local s, e, cmd, args = string.find(sdata, "^%b<> %!(%a+)%s*(.*)|$")
	if curUser.bOperator then
		if cmd == "memories" then
			SendStuff()
			return 1
		elseif cmd == "memaddline"  then
			addline("memories.txt", args)
			curUser:SendData(cBotName,"Done ,memory added")
			return 1
		end
	end
end 

function SendStuff()
	GetLines(cFilename)
	local message = lineTable[math.random(1,table.getn(lineTable))]
	SendToAll(cBotName, message)
         return message
end

function addline(filename,msg)
local file = io.open(filename, "a+")
file:write("\n"..msg)
file:close()
end

Done !!

[Syphrone-NL]

Originally posted by James
this ?

--Timebot for LUA 5
--
-- by blackwings
--Little changed by nErboS
--
-- Converted to LUA 5 by Mutor 2/28/2005
-- Changed by DTM?-Message only MainChat no PM
-- Deutsche Anleitung
--

bot = "Message" -- BotNamen in UserListe
name2 = "News" --BotNamen in MainChat


sec = 60


fMsgAll2 = "MsgAll2.txt"--Namen der txt datei af dem der script zugreift--datei muss in Ordner scripte sein
sMsgAll2 = ""

tClock = {
   ["tMsgAll2"] = os.clock() + 1*sec,   -- Time to show in math.minutes
}

function Main()
   frmHub:RegBot(bot)
   sMsgAll2 = Readtext(fMsgAll2)
   StartTimer()
end

function OnTimer()
   if (tClock["tMsgAll2"] <= os.clock() and sMsgAll2~= "") then
      tClock["tMsgAll2"] = os.clock() + 30*sec  --Hier die WiederholungsZeit eintragen.30=30Min
      SendPmToAll(name2, sMsgAll2)
   end
end

function Readtext(file)
local sTmp="\r\n\r\n"
    for line in io.lines(file) do
        sTmp = sTmp..line.."\r\n"
    end
    return sTmp
end

Can it be in main instead of pm

[jiten]

Just replace SendPmToAll with SendToAll in your code.

Cheers

[6Marilyn6Manson6]

--Timebot for LUA 5 by blackwings 
--Little changed by nErboS 
-- Converted to LUA 5 by Mutor 2/28/2005 
-- Changed by DTM?-Message only MainChat no PM 
-- Deutsche Anleitung

bot = "Message" -- BotNamen in UserListe 
name2 = "News" --BotNamen in MainChat 

sec = 60 

fMsgAll2 = "MsgAll2.txt"--Namen der txt datei af dem der script zugreift--datei muss in Ordner scripte sein 
sMsgAll2 = "" 

tClock = { 
["tMsgAll2"] = os.clock() + 1*sec, -- Time to show in math.minutes 
} 

function Main() 
	frmHub:RegBot(bot) 
	sMsgAll2 = Readtext(fMsgAll2) 
	StartTimer() 
end 

function OnTimer() 
	if (tClock["tMsgAll2"] <= os.clock() and sMsgAll2~= "") then 
		tClock["tMsgAll2"] = os.clock() + 30*sec --Hier die WiederholungsZeit eintragen.30=30Min 
		SendToAll(name2, sMsgAll2) 
	end 
end 

function Readtext(file) 
	local sTmp="\r\n\r\n" 
		for line in io.lines(file) do 
		sTmp = sTmp..line.."\r\n" 
	end 
		return sTmp 
end

bye bye bye :P

[James]

:D

[Syphrone-NL]

going to try it today but i need to fill in how many minutes or seconds for the time to show can it maybe be only every day at 4 o clock afternoon

[LoTeK_]

Originally posted by Dessamator

        
------------------------------------------------------------------------
------
--// Send Random Text Line every x minute // By NightLitch
-- little mod by Dessamator, added memlines and memory
------------------------------------------------------------------------------
cBotName = "botnamehere" -- enter botname
cFilename = "memories.txt" -- enter filename
cTime = 10 -- enter time in minutes
------------------------------------------------------------------------------
lineTable = {n=0}

function Main()
GetLines(cFilename)
SetTimer(cTime*60000)
StartTimer()
end


function OnTimer()
	SendStuff()
end

function GetLines(filename)
local file = io.open(filename, "r")
		for line in file:lines() do
			table.insert(lineTable, line)
		end
file:close()
end

function ChatArrival(curUser, sdata)

	local s, e, cmd, args = string.find(sdata, "^%b<> %!(%a+)%s*(.*)|$")
	if curUser.bOperator then
		if cmd == "memories" then
			SendStuff()
			curUser:SendData(cBotName," Done , Memory Sent!!")
			return 1
		elseif cmd == "memaddline"  then
			addline("memories.txt", args)
			curUser:SendData(cBotName,"Done ,memory added")
			return 1
		end
	end
end 

function SendStuff()
	GetLines(cFilename)
	local message = lineTable[math.random(1,table.getn(lineTable))]
	SendToAll(cBotName, message)
end

function addline(filename,msg)
local file = io.open(filename, "a+")
file:write("\n"..msg)
file:close()
end

Done !!

Thank you!