Entry Bot

[Dessamator]

Originally posted by yoonohoo
Just keep it coming... :D

-=-=-=-=-= Edit =-=-=-=-=-

Can I just replace the script?

yep

[jiten]

Originally posted by yoonohoo
Just keep it coming... :D

-=-=-=-=-= Edit =-=-=-=-=-

Can I just replace the script?

Yes, you can, just like Dessamator said.

Cheers

[jiten]

--/----------------------------------------------------------------------------
-- Entry Bot v1.1e (6/15/2005)
-- For PtokaX 0.3.3.0 build 17.02 or Higher

-- Removed: Entries checking on every message
-- Added: Multitimer function for Timed Categories and Cleaner
-- Optimized: Cleaner so that it doesn't lag the hub
--/----------------------------------------------------------------------------

Grab it

HERE.
[/list]

[Markitos]

Hi jiten i am using entry bot 1.1e and i made simple modifications. When im Operator in the hub i can add new cats. but when im master i can
 Can u change this so both could add?

--/----------------------------------------------------------------------------
-- Entry Bot v1.1e (6/15/2005)
-- For PtokaX 0.3.3.0 build 17.02 or Higher

-- Thanks to Dessamator for the Timed Message efforts

--/ Some Features:
-- Supports pre-defined categories;
-- Commands to add, delete, show, find entries and much more;
-- Entries older than x Days are automatically deleted (optional)
-- Ability to send pre-defined category's content to main when desired
-- Includes an optimized RighClick;
--/----------------------------------------------------------------------------

Settings = {
	sBot = frmHub:GetHubBotName(),		-- Default Bot Name or -- sBot = "custombot"
	sMenu = "Sistema de entradas",			-- RightClick Menu Name
	cFile = "Categoria.tbl",			-- File where the Categories are stored
	rFile = "Entradas.tbl",			-- File where the Entries are stored
	vFile = "Votos.tbl",			-- File where the Voters are stored
	eFolder = "Entradas",			-- Folder where the .tbl files are stored
	iVer = "1.1e",				-- Script Version
	iMax = 30,				-- Maximum entries to be shown
	vMax = 20,				-- Maximum votes to be shown
	SendOnConnect = 0,			-- 1 = Send iMax Entries to every user on connect; 0 = Don't send
	CatSize = 20,				-- Category's size
	EntrySize = 150,				-- Entry's size (recommended: 75-80)
	Sensitive = 0,				-- 1 = Searches case-sensitive; 0 = not case-sensitive
	TimedCat = 1,				-- 1 = Send specific category content to main in an interval; 0: not
	TimedMsg = "Quem quiser publicitar neste espa?o, contacte os Operadores",		-- Message shown below each Timed Category in Main
	Times = {				-- ["time in 24h format"] = "Category" (not case sensitive)
                ["00:00"] = "cinemas",
		["00:15"] = "fotologs",
                ["00:30"] = "Trading-Vendas",
		["00:45"] = "Eventos",
                ["01:00"] = "cinemas",
                ["01:30"] = "Trading-Vendas",
		["01:45"] = "Eventos",
                ["02:00"] = "cinemas",
                ["02:30"] = "Trading-Vendas",
		["02:45"] = "Eventos",
                ["03:00"] = "cinemas",
                ["03:30"] = "Trading-Vendas",
		["03:45"] = "Eventos",
                ["04:00"] = "cinemas",
                ["04:30"] = "Trading-Vendas",
		["04:45"] = "Eventos",
                ["05:00"] = "cinemas",
                ["05:30"] = "Trading-Vendas",
		["05:45"] = "Eventos",
                ["06:00"] = "cinemas",
                ["06:30"] = "Trading-Vendas",
		["06:45"] = "Eventos",
                ["07:00"] = "cinemas",
                ["07:30"] = "Trading-Vendas",
		["07:45"] = "Eventos",
                ["08:00"] = "cinemas",
                ["08:30"] = "Trading-Vendas",
		["08:45"] = "Eventos",
                ["09:00"] = "cinemas",
                ["09:30"] = "Trading-Vendas",
		["09:45"] = "Eventos",
                ["10:00"] = "cinemas",
                ["11:30"] = "Trading-Vendas",
		["11:45"] = "Eventos",
                ["12:00"] = "cinemas",
                ["12:30"] = "Trading-Vendas",
		["12:45"] = "Eventos",
                ["13:00"] = "cinemas",
                ["13:30"] = "Trading-Vendas",
		["13:45"] = "Eventos",
                ["14:00"] = "cinemas",
                ["14:30"] = "Trading-Vendas",
		["14:45"] = "Eventos",
                ["15:00"] = "cinemas",
                ["15:30"] = "Trading-Vendas",
		["15:45"] = "Eventos",
                ["16:00"] = "cinemas",
                ["16:30"] = "Trading-Vendas",
		["16:45"] = "Eventos",
                ["17:00"] = "cinemas",
                ["17:30"] = "Trading-Vendas",
		["17:45"] = "Eventos",
                ["18:00"] = "cinemas",
                ["18:30"] = "Trading-Vendas",
		["18:45"] = "Eventos",
                ["19:00"] = "cinemas",
                ["19:30"] = "Trading-Vendas",
		["19:45"] = "Eventos",
                ["20:00"] = "cinemas",
                ["20:30"] = "Trading-Vendas",
		["20:45"] = "Eventos",
                ["21:00"] = "cinemas",
                ["21:30"] = "Trading-Vendas",
		["21:45"] = "Eventos",
                ["22:00"] = "cinemas",
                ["22:30"] = "Trading-Vendas",
		["22:45"] = "Eventos",
                ["23:00"] = "cinemas",
                ["23:30"] = "Trading-Vendas",
		["23:45"] = "Eventos"
	},
	pCleaner = 1,				-- 1 = Sends cleaner actions to all; 0 = doesn't
	Cleaner = 1,				-- 1 = Set Automatic Cleaner On; 0 = Automatic Cleaner Off
	SendRC = 1,				-- 1 = Send RighClick; 0 = Don't
	SendTo = {				-- Send RightClick to Profile [x] = (1 = on, 0 = off)
		[0] = 1,				-- Master
		[1] = 1,				-- Operator
		[2] = 1,				-- VIP
		[3] = 1,				-- REG
		[4] = 1,				-- Custom Profile
		[5] = 1,				-- Custom Profile
		[-1] = 1,				-- Unreg
	},
	-- Commands --
	addCatCmd = "addcat", delCatCmd = "delcat", showCatCmd = "showcat", addCmd = "add", TimedCmd = "rotator",
	showCmd = "show", delCmd = "del", delAllCmd = "delall", findCmd = "find", helpCmd = "entryhelp",
	voteCmd = "vote", TopVotesCmd = "topvote", clrVotesCmd = "clrvote",
	--------------
	sChar = { "-", " ", "i", "l", "r", "t", "I", "y", "o", }, -- Don't change this
}

-- If you're using Robocop profiles don't change this. If not, remove Profile 4 and 5 and follow this syntax: 
-- [Profile number] = value (higher value means more rights)
Levels = { [-1] = 1, [3] = 2, [2] = 3, [1] = 4, [4] = 5, [0] = 6, [5] = 7, }

Category = {} Entry = {} tPrefixes = {} Votes = {} tabTimers = {n=0} TmrFreq = 60*1000

Main = function()
	if Settings.sBot ~= frmHub:GetHubBotName() then frmHub:RegBot(Settings.sBot) end
	if loadfile(Settings.eFolder.."/"..Settings.cFile) then dofile(Settings.eFolder.."/"..Settings.cFile) else os.execute("mkdir "..Settings.eFolder) end
	if loadfile(Settings.eFolder.."/"..Settings.rFile) then dofile(Settings.eFolder.."/"..Settings.rFile) else io.output(Settings.eFolder.."/"..Settings.rFile) end
	if loadfile(Settings.eFolder.."/"..Settings.vFile) then dofile(Settings.eFolder.."/"..Settings.vFile) end
	for a,b in pairs(frmHub:GetPrefixes()) do tPrefixes[b] = 1 end
	RegTimer(Cleaner, 12*60*60*1000) RegTimer(TimedCat, 60*1000) SetTimer(TmrFreq) StartTimer()
end

ChatArrival = function(sUser,sData)
	local sData = string.sub(sData,1,-2) 
	local s,e,sPrefix,cmd = string.find(sData,"%b<>%s*(%S)(%S+)")
	if sPrefix and tPrefixes[sPrefix] then
		local tmp = "\r\n\t"..string.rep("-", 220)
		local sHelpOutput = tmp.."\r\n"..string.rep("\t",7).."Entry Bot v."..Settings.iVer.." by jiten\t\t\t\r\n\t"..string.rep("__",220).."\r\n\tComando Disponiveis:".."\r\n\r\n"
		local tCmds = {

--		Commands Structure:
--		[Command] = { function, Lowest Profile that can use this command (check Levels table), Description, Example, },

		[Settings.addCatCmd]	=	{
					function(user,data)
						local s,e,cat,date = string.find(data,"%b<>%s+%S+%s+(%S+)%s+(%d+)")
						if cat and date then
							if Category[string.lower(cat)] == nil then
								if (string.len(cat) > Settings.CatSize) then
									user:SendData(Settings.sBot,"*** Error: The Category can't have more than "..Settings.CatSize.." characters.")
								else
									Category[string.lower(cat)] = date
									SaveToFile(Settings.eFolder.."/"..Settings.cFile,Category,"Category")
 
								end
							else
								user:SendData(Settings.sBot,"*** Error: There is already a Category: "..cat)
							end
						else
							user:SendData(Settings.sBot,"*** Syntax Error: Type "..sPrefix..Settings.addCatCmd.."  ")
						end
					end, 6, "Add category and delete Time", sPrefix..Settings.addCatCmd.." Movies 15", },
		[Settings.delCatCmd]	=	{
					function(user,data)
						local s,e,cat = string.find(data,"%b<>%s+%S+%s+(%S+)")
						if cat then
							if Category[string.lower(cat)] then
								Category[string.lower(cat)] = nil ShowEntry(1,table.getn(Entry),1,4,cat,"",Entry)
								SaveToFile(Settings.eFolder.."/"..Settings.cFile,Category,"Category")
								user:SendData(Settings.sBot,cat.." was sucessfully deleted from the Categories.")
							else
								user:SendData(Settings.sBot,"*** Error: There is no Category: "..cat)
							end
						else
							user:SendData(Settings.sBot,"*** Syntax Error: Type "..sPrefix..Settings.delCatCmd.." ")
						end
					end, 6, "Deletes an existing category", sPrefix..Settings.delCatCmd.." Movies", },
		[Settings.showCatCmd]	=	{
					function(user)
						if next(Category) then
							local msg = "\r\n\r\n".."\t"..string.rep("__",20).."\r\n" 
							msg = msg.."\t\tCategory List:\r\n" 
							msg = msg.."\t"..string.rep("__",20).."\r\n"
							local i,v for i, v in Category do msg = msg.."\t       ? "..i.." ("..v.." days)\r\n" end
							user:SendData(Settings.sBot,msg) 
						else
							user:SendData(Settings.sBot,"*** Error: There are no categories!");
						end
					end, 1, "Shows categories", sPrefix..Settings.showCatCmd, },
		[Settings.addCmd]	=	{
					function(user,data)
						local s,e,cat,rel = string.find(data,"%b<>%s+%S+%s+(%S+)%s+(.*)") 
						if cat then
							if Category[string.lower(cat)] then
								if rel ~= "" then
									local Exists = nil
									for i = 1, table.getn(Entry) do
										if string.lower(Entry[i][2]) == string.lower(cat) and string.lower(Entry[i][3]) == string.lower(rel) then
											Exists = 1
										end
									end
									if Exists == 1 then
										user:SendData(Settings.sBot,"*** Error: There's already an Entry "..rel.." in "..cat..".")
									else
										if (string.len(rel) > Settings.EntrySize) then
											user:SendData(Settings.sBot,"*** Error: The Entry can't have more than "..Settings.EntrySize.." characters.")
										else
											cat = string.lower(cat)
											table.insert( Entry, { user.sName, cat, rel, os.date(), 0, } )
											SaveToFile(Settings.eFolder.."/"..Settings.rFile,Entry,"Entry")
											SendToAll(Settings.sBot,user.sName.." freshened up "..cat.." with: "..rel..". For more details type: "..sPrefix..Settings.showCmd)
										end
									end
								else
									user:SendData(Settings.sBot,"*** Error: Please type an Entry.")
								end
							else
								user:SendData(Settings.sBot,"*** Error: There is no Category: "..cat)
							end
						else
							user:SendData(Settings.sBot,"*** Syntax Error: Type "..sPrefix..Settings.addCmd.."  ")
						end
					end, 3, "Adds an entry to a category", sPrefix..Settings.addCmd.." Movies Matrix Revolutions", },

[Markitos]

Hi jiten i am using entry bot 1.1e and i made simple modifications
When im Operator in the hub i can add new cats. but when im master i can
 Can u change this so both could add?

--/----------------------------------------------------------------------------
-- Entry Bot v1.1e (6/15/2005)
-- For PtokaX 0.3.3.0 build 17.02 or Higher

-- Thanks to Dessamator for the Timed Message efforts

--/ Some Features:
-- Supports pre-defined categories;
-- Commands to add, delete, show, find entries and much more;
-- Entries older than x Days are automatically deleted (optional)
-- Ability to send pre-defined category's content to main when desired
-- Includes an optimized RighClick;
--/----------------------------------------------------------------------------

Settings = {
	sBot = frmHub:GetHubBotName(),		-- Default Bot Name or -- sBot = "custombot"
	sMenu = "Sistema de entradas",			-- RightClick Menu Name
	cFile = "Categoria.tbl",			-- File where the Categories are stored
	rFile = "Entradas.tbl",			-- File where the Entries are stored
	vFile = "Votos.tbl",			-- File where the Voters are stored
	eFolder = "Entradas",			-- Folder where the .tbl files are stored
	iVer = "1.1e",				-- Script Version
	iMax = 30,				-- Maximum entries to be shown
	vMax = 20,				-- Maximum votes to be shown
	SendOnConnect = 0,			-- 1 = Send iMax Entries to every user on connect; 0 = Don't send
	CatSize = 20,				-- Category's size
	EntrySize = 150,				-- Entry's size (recommended: 75-80)
	Sensitive = 0,				-- 1 = Searches case-sensitive; 0 = not case-sensitive
	TimedCat = 1,				-- 1 = Send specific category content to main in an interval; 0: not
	TimedMsg = "Quem quiser publicitar neste espa?o, contacte os Operadores",		-- Message shown below each Timed Category in Main
	Times = {				-- ["time in 24h format"] = "Category" (not case sensitive)
                ["00:00"] = "cinemas",
		["00:15"] = "fotologs",
                ["00:30"] = "Trading-Vendas",
		["00:45"] = "Eventos",
                ["01:00"] = "cinemas",
                ["01:30"] = "Trading-Vendas",
		["01:45"] = "Eventos",
                ["02:00"] = "cinemas",
                ["02:30"] = "Trading-Vendas",
		["02:45"] = "Eventos",
                ["03:00"] = "cinemas",
                ["03:30"] = "Trading-Vendas",
		["03:45"] = "Eventos",
                ["04:00"] = "cinemas",
                ["04:30"] = "Trading-Vendas",
		["04:45"] = "Eventos",
                ["05:00"] = "cinemas",
                ["05:30"] = "Trading-Vendas",
		["05:45"] = "Eventos",
                ["06:00"] = "cinemas",
                ["06:30"] = "Trading-Vendas",
		["06:45"] = "Eventos",
                ["07:00"] = "cinemas",
                ["07:30"] = "Trading-Vendas",
		["07:45"] = "Eventos",
                ["08:00"] = "cinemas",
                ["08:30"] = "Trading-Vendas",
		["08:45"] = "Eventos",
                ["09:00"] = "cinemas",
                ["09:30"] = "Trading-Vendas",
		["09:45"] = "Eventos",
                ["10:00"] = "cinemas",
                ["11:30"] = "Trading-Vendas",
		["11:45"] = "Eventos",
                ["12:00"] = "cinemas",
                ["12:30"] = "Trading-Vendas",
		["12:45"] = "Eventos",
                ["13:00"] = "cinemas",
                ["13:30"] = "Trading-Vendas",
		["13:45"] = "Eventos",
                ["14:00"] = "cinemas",
                ["14:30"] = "Trading-Vendas",
		["14:45"] = "Eventos",
                ["15:00"] = "cinemas",
                ["15:30"] = "Trading-Vendas",
		["15:45"] = "Eventos",
                ["16:00"] = "cinemas",
                ["16:30"] = "Trading-Vendas",
		["16:45"] = "Eventos",
                ["17:00"] = "cinemas",
                ["17:30"] = "Trading-Vendas",
		["17:45"] = "Eventos",
                ["18:00"] = "cinemas",
                ["18:30"] = "Trading-Vendas",
		["18:45"] = "Eventos",
                ["19:00"] = "cinemas",
                ["19:30"] = "Trading-Vendas",
		["19:45"] = "Eventos",
                ["20:00"] = "cinemas",
                ["20:30"] = "Trading-Vendas",
		["20:45"] = "Eventos",
                ["21:00"] = "cinemas",
                ["21:30"] = "Trading-Vendas",
		["21:45"] = "Eventos",
                ["22:00"] = "cinemas",
                ["22:30"] = "Trading-Vendas",
		["22:45"] = "Eventos",
                ["23:00"] = "cinemas",
                ["23:30"] = "Trading-Vendas",
		["23:45"] = "Eventos"
	},
	pCleaner = 1,				-- 1 = Sends cleaner actions to all; 0 = doesn't
	Cleaner = 1,				-- 1 = Set Automatic Cleaner On; 0 = Automatic Cleaner Off
	SendRC = 1,				-- 1 = Send RighClick; 0 = Don't
	SendTo = {				-- Send RightClick to Profile [x] = (1 = on, 0 = off)
		[0] = 1,				-- Master
		[1] = 1,				-- Operator
		[2] = 1,				-- VIP
		[3] = 1,				-- REG
		[4] = 1,				-- Custom Profile
		[5] = 1,				-- Custom Profile
		[-1] = 1,				-- Unreg
	},
	-- Commands --
	addCatCmd = "addcat", delCatCmd = "delcat", showCatCmd = "showcat", addCmd = "add", TimedCmd = "rotator",
	showCmd = "show", delCmd = "del", delAllCmd = "delall", findCmd = "find", helpCmd = "entryhelp",
	voteCmd = "vote", TopVotesCmd = "topvote", clrVotesCmd = "clrvote",
	--------------
	sChar = { "-", " ", "i", "l", "r", "t", "I", "y", "o", }, -- Don't change this
}

-- If you're using Robocop profiles don't change this. If not, remove Profile 4 and 5 and follow this syntax: 
-- [Profile number] = value (higher value means more rights)
Levels = { [-1] = 1, [3] = 2, [2] = 3, [1] = 4, [4] = 5, [0] = 6, [5] = 7, }

Category = {} Entry = {} tPrefixes = {} Votes = {} tabTimers = {n=0} TmrFreq = 60*1000

Main = function()
	if Settings.sBot ~= frmHub:GetHubBotName() then frmHub:RegBot(Settings.sBot) end
	if loadfile(Settings.eFolder.."/"..Settings.cFile) then dofile(Settings.eFolder.."/"..Settings.cFile) else os.execute("mkdir "..Settings.eFolder) end
	if loadfile(Settings.eFolder.."/"..Settings.rFile) then dofile(Settings.eFolder.."/"..Settings.rFile) else io.output(Settings.eFolder.."/"..Settings.rFile) end
	if loadfile(Settings.eFolder.."/"..Settings.vFile) then dofile(Settings.eFolder.."/"..Settings.vFile) end
	for a,b in pairs(frmHub:GetPrefixes()) do tPrefixes[b] = 1 end
	RegTimer(Cleaner, 12*60*60*1000) RegTimer(TimedCat, 60*1000) SetTimer(TmrFreq) StartTimer()
end

ChatArrival = function(sUser,sData)
	local sData = string.sub(sData,1,-2) 
	local s,e,sPrefix,cmd = string.find(sData,"%b<>%s*(%S)(%S+)")
	if sPrefix and tPrefixes[sPrefix] then
		local tmp = "\r\n\t"..string.rep("-", 220)
		local sHelpOutput = tmp.."\r\n"..string.rep("\t",7).."Entry Bot v."..Settings.iVer.." by jiten\t\t\t\r\n\t"..string.rep("__",220).."\r\n\tComando Disponiveis:".."\r\n\r\n"
		local tCmds = {

--		Commands Structure:
--		[Command] = { function, Lowest Profile that can use this command (check Levels table), Description, Example, },

[Markitos]

[Settings.addCatCmd]	=	{
					function(user,data)
						local s,e,cat,date = string.find(data,"%b<>%s+%S+%s+(%S+)%s+(%d+)")
						if cat and date then
							if Category[string.lower(cat)] == nil then
								if (string.len(cat) > Settings.CatSize) then
									user:SendData(Settings.sBot,"*** Error: The Category can't have more than "..Settings.CatSize.." characters.")
								else
									Category[string.lower(cat)] = date
									SaveToFile(Settings.eFolder.."/"..Settings.cFile,Category,"Category")
 
								end
							else
								user:SendData(Settings.sBot,"*** Error: There is already a Category: "..cat)
							end
						else
							user:SendData(Settings.sBot,"*** Syntax Error: Type "..sPrefix..Settings.addCatCmd.."  ")
						end
					end, 6, "Add category and delete Time", sPrefix..Settings.addCatCmd.." Movies 15", },
		[Settings.delCatCmd]	=	{
					function(user,data)
						local s,e,cat = string.find(data,"%b<>%s+%S+%s+(%S+)")
						if cat then
							if Category[string.lower(cat)] then
								Category[string.lower(cat)] = nil ShowEntry(1,table.getn(Entry),1,4,cat,"",Entry)
								SaveToFile(Settings.eFolder.."/"..Settings.cFile,Category,"Category")
								user:SendData(Settings.sBot,cat.." was sucessfully deleted from the Categories.")
							else
								user:SendData(Settings.sBot,"*** Error: There is no Category: "..cat)
							end
						else
							user:SendData(Settings.sBot,"*** Syntax Error: Type "..sPrefix..Settings.delCatCmd.." ")
						end
					end, 6, "Deletes an existing category", sPrefix..Settings.delCatCmd.." Movies", },
		[Settings.showCatCmd]	=	{
					function(user)
						if next(Category) then
							local msg = "\r\n\r\n".."\t"..string.rep("__",20).."\r\n" 
							msg = msg.."\t\tCategory List:\r\n" 
							msg = msg.."\t"..string.rep("__",20).."\r\n"
							local i,v for i, v in Category do msg = msg.."\t       ? "..i.." ("..v.." days)\r\n" end
							user:SendData(Settings.sBot,msg) 
						else
							user:SendData(Settings.sBot,"*** Error: There are no categories!");
						end
					end, 1, "Shows categories", sPrefix..Settings.showCatCmd, },
		[Settings.addCmd]	=	{
					function(user,data)
						local s,e,cat,rel = string.find(data,"%b<>%s+%S+%s+(%S+)%s+(.*)") 
						if cat then
							if Category[string.lower(cat)] then
								if rel ~= "" then
									local Exists = nil
									for i = 1, table.getn(Entry) do
										if string.lower(Entry[i][2]) == string.lower(cat) and string.lower(Entry[i][3]) == string.lower(rel) then
											Exists = 1
										end
									end
									if Exists == 1 then
										user:SendData(Settings.sBot,"*** Error: There's already an Entry "..rel.." in "..cat..".")
									else
										if (string.len(rel) > Settings.EntrySize) then
											user:SendData(Settings.sBot,"*** Error: The Entry can't have more than "..Settings.EntrySize.." characters.")
										else
											cat = string.lower(cat)
											table.insert( Entry, { user.sName, cat, rel, os.date(), 0, } )
											SaveToFile(Settings.eFolder.."/"..Settings.rFile,Entry,"Entry")
											SendToAll(Settings.sBot,user.sName.." freshened up "..cat.." with: "..rel..". For more details type: "..sPrefix..Settings.showCmd)
										end
									end
								else
									user:SendData(Settings.sBot,"*** Error: Please type an Entry.")
								end
							else
								user:SendData(Settings.sBot,"*** Error: There is no Category: "..cat)
							end
						else
							user:SendData(Settings.sBot,"*** Syntax Error: Type "..sPrefix..Settings.addCmd.."  ")
						end
					end, 3, "Adds an entry to a category", sPrefix..Settings.addCmd.." Movies Matrix Revolutions", },
		[Settings.showCmd]	=	{
					function(user,data)
						local s,e,cat = string.find(data,"%b<>%s+%S+%s+(%S+)") 
						if cat then
							if Category[string.lower(cat)] then
								user:SendPM(Settings.sBot,ShowEntry(1, table.getn(Entry), 1, 3, cat, string.rep("\t",9).."Showing all "..cat.." "..string.rep("\t",7).."["..os.date().."]\r\n",Entry))
							elseif string.lower(cat) == "all" then
								user:SendPM(Settings.sBot,ShowEntry(1, table.getn(Entry), 1, 1, false, string.rep("\t",9).."Showing all entries ["..table.getn(Entry).."]"..string.rep("\t",7).."["..os.date().."]\r\n",Entry))
							else
								user:SendData(Settings.sBot,"*** Error: There is no Category: "..cat)
							end
						else
							user:SendPM(Settings.sBot,ShowEntry(table.getn(Entry) - Settings.iMax + 1, table.getn(Entry), 1, 1, false, string.rep("\t",9).."Last "..Settings.iMax.." entries "..string.rep("\t",8).."["..os.date().."]\r\n",Entry))
						end
					end, 1, "Shows "..Settings.iMax.."/all/category entries", sPrefix..Settings.showCmd..", "..sPrefix..Settings.showCmd.." all, "..sPrefix..Settings.showCmd.." Movies", },
		[Settings.delCmd]	=	{
					function(user,data)
						local s,e,rel = string.find(data,"%b<>%s+%S+%s+(.*)")
						if rel then
							if tonumber(rel) then
								rel = tonumber(rel) local Deleted = nil
								for i = 1, table.getn(Entry), 1 do
									if Entry[rel] then
										table.remove(Entry,rel) Deleted = 1 break
									end
								end
								if Deleted == 1 then 
									user:SendData(Settings.sBot,"ID "..rel.." was successfully deleted.")
									SaveToFile(Settings.eFolder.."/"..Settings.rFile,Entry,"Entry")
								else
									user:SendData(Settings.sBot,"*** Error: There is no ID: "..rel..".")
								end
							elseif Category[string.lower(rel)] then
								if ShowEntry(1,table.getn(Entry),1,4,rel,"",Entry) == nil then
									ShowEntry(1,table.getn(Entry),1,4,rel,"",Entry)
									SaveToFile(Settings.eFolder.."/"..Settings.rFile,Entry,"Entry")
									user:SendData(Settings.sBot,"Category: "..rel.." was succesfully cleaned up.")
								else
									user:SendData(Settings.sBot,"*** Error: There is no Category: "..rel)
								end
							else
								if ShowEntry(1,table.getn(Entry),1,6,rel,"",Entry) == nil then
									ShowEntry(1,table.getn(Entry),1,6,rel,"",Entry)
									SaveToFile(Settings.eFolder.."/"..Settings.rFile,Entry,"Entry")
									user:SendData(Settings.sBot,"Entry: "..rel.." was succesfully deleted.")
								else
									user:SendData(Settings.sBot,"*** Error: There is no Entry: "..rel)
								end
							end
						else
							user:SendData(Settings.sBot,"*** Syntax Error: Type "..sPrefix..Settings.delCmd.." ")
						end
					end, 4, "Deletes entry/ID/by category", sPrefix..Settings.delCmd.." Matrix Revolutions; "..sPrefix..Settings.delCmd.." 5; "..sPrefix..Settings.delCmd.." Movies", },
		[Settings.delAllCmd]	=	{
					function(user,data)
						Entry = nil Entry = {} SaveToFile(Settings.eFolder.."/"..Settings.rFile,Entry,"Entry")
						user:SendData(Settings.sBot,"All entries have been deleted successfully.")
					end, 6, "Deletes all entries", sPrefix..Settings.delAllCmd, },
		[Settings.findCmd]	=	{
					function(user,data)
						local s,e,str = string.find(data,"%b<>%s+%S+%s+(%S+)")
						if str then
							user:SendPM(Settings.sBot,ShowEntry(1, table.getn(Entry), 1, 2, str, string.rep("\t",9).."Search Results of: "..str..string.rep("\t",7).."["..os.date().."]\r\n",Entry))
						else
							user:SendData(Settings.sBot,"*** Syntax Error: Type "..sPrefix..Settings.findCmd.." ")
						end
					end, 1, "Finds an entry by any string", sPrefix..Settings.findCmd.." Matrix", },
		[Settings.helpCmd]	=	{
					function(user)
						user:SendData(Settings.sBot, sHelpOutput.."\t"..string.rep("-",220));
					end, 1, "Displays this help message", sPrefix..Settings.helpCmd, },
		[Settings.TimedCmd]	=	{
					function(user,data)
						local s,e,arg = string.find(data,"%b<>%s+%S+%s+(%S+)")
						if arg then
							if string.lower(arg) == "on" then
								StartTimer() user:SendData(Settings.sBot,"Category rotator has been enabled.")
							elseif string.lower(arg) == "off" then
								StopTimer() user:SendData(Settings.sBot,"Category rotator has been disabled.")
							end
						else
							user:SendData(Settings.sBot,"*** Syntax Error: Type "..sPrefix..Settings.TimedCmd.." ")
						end
					end, 6, "Set Category Rotator status", sPrefix..Settings.TimedCmd.." ", },
		[Settings.voteCmd]	=	{
					function(user,data)
						local s,e,i = string.find(data,"%b<>%s+%S+%s+(%d+)")
						if i then
							if Entry[tonumber(i)] then
								if Votes[user.sIP] then
									user:SendData(Settings.sBot,"*** Error: You have already voted.")
								else
									Votes[user.sIP] = 1
									Entry[tonumber(i)][5] = Entry[tonumber(i)][5] + 1
									SaveToFile(Settings.eFolder.."/"..Settings.vFile,Votes,"Votes")
									user:SendData(Settings.sBot,"You have successfully voted on "..Entry[tonumber(i)][3].." [Category: "..Entry[tonumber(i)][2].."].")
									SendPmToOps(Settings.sBot,user.sName.." voted on "..Entry[tonumber(i)][3].." [Category: "..Entry[tonumber(i)][2].."].")
								end
							else
								user:SendData(Settings.sBot,"*** Error: There is no ID: "..i..".")
							end
						else
							user:SendData(Settings.sBot,"*** Syntax Error: Type "..sPrefix..Settings.voteCmd.." ")
						end
					end, 1, "Vote for a certain Entry", sPrefix..Settings.voteCmd.." ", },
		[Settings.TopVotesCmd]	=	{
					function(user,data)
						local Voting = {}
						for i = 1, Settings.vMax do
							if Entry[i] and Entry[i][5] > 0 then
								table.insert(Voting,{ i, Entry[i][1], Entry[i][2], Entry[i][3], Entry[i][4], Entry[i][5] })
							end
						end
						table.sort(Voting,function(a,b) return (a[6] > b[6]) end)
						user:SendPM(Settings.sBot,ShowEntry(1,Settings.vMax,1,5,false,string.rep("\t",9).."Top "..Settings.vMax.." Votes "..string.rep("\t",8).."["..os.date().."]\r\n",Voting))
					end, 1, "Top Entry Voting", sPrefix..Settings.TopVotesCmd, },
		[Settings.clrVotesCmd]	=	{
					function(user,data)
						for i = 1, table.getn(Entry) do
							if Entry[i] then
								Entry[i][5] = 0
							end
						end
						Votes = nil Votes = {}
						SaveToFile(Settings.eFolder.."/"..Settings.vFile,Votes,"Votes")
						SaveToFile(Settings.eFolder.."/"..Settings.rFile,Entry,"Entry")
						user:SendData(Settings.sBot,"All votes have been successfully cleared.")
					end, 6, "Clear all Votes", sPrefix..Settings.clrVotesCmd, },
		}
		for sCmd, tCmd in tCmds do
			if(tCmd[2] <= Levels[sUser.iProfile]) then
				sHelpOutput = sHelpOutput.."\t"..sPrefix..sCmd..DoTabs(1,CheckSize(sPrefix..sCmd))..tCmd[3]..DoTabs(1,CheckSize(tCmd[3]))..tCmd[4].."\r\n";
			end
		end
		if tCmds[cmd] then
			if tCmds[cmd][2] <= Levels[sUser.iProfile] then
				return tCmds[cmd][1](sUser,sData), 1
			else
				return sUser:SendData(Settings.sBot,"*** Error: You are not allowed to use this command."), 1
			end
		end
	end
end

ToArrival = ChatArrival

function OnTimer()
	for i in ipairs(tabTimers) do
		tabTimers[i].count = tabTimers[i].count + 1
		if tabTimers[i].count > tabTimers[i].trig then
			tabTimers[i].count=1
			tabTimers[i]:func()
		end
	end
end

function RegTimer(f, Interval)
	local tmpTrig = Interval / TmrFreq
	assert(Interval >= TmrFreq , "RegTimer(): Please Adjust TmrFreq")
	local Timer = {n=0}
	Timer.func=f
	Timer.trig=tmpTrig
	Timer.count=1
	table.insert(tabTimers, Timer)
end

Cleaner = function()
	if (Settings.Cleaner == 1) then -- RegCleaner based
		local juliannow = jdate(tonumber(os.date("%d")), tonumber(os.date("%m")), tonumber(os.date("%Y"))) 
		local chkd, clnd, x = 0, 0, os.clock()
		for v,oldest in Category do
			for i = 1, table.getn(Entry) do
				chkd = chkd + 1 local s, e, month, day, year = string.find(Entry[i][4], "(%d+)%/(%d+)%/(%d+)"); 
				local julian = jdate( tonumber(day), tonumber(month), tonumber("20"..year) )
				if ((juliannow - julian) > tonumber(oldest)) and Entry[i][2] == v then
					clnd = clnd + 1
					table.remove(Entry,i)
					SaveToFile(Settings.eFolder.."/"..Settings.rFile,Entry,"Entry")
				end; 
			end
		end
		if clnd ~= 0 and Settings.pCleaner == 1 then

[Markitos]

SendToAll(Settings.sBot,"Entry Cleaner: "..chkd.." entries were processed and "..clnd.." were deleted. ( "..string.format("%0.2f",((clnd*100)/chkd)).."% ) in: "..string.format("%0.4f", os.clock()-x ).." seconds.") end
	end
end

NewUserConnected = function(sUser)
	if Settings.SendOnConnect == 1 then
		sUser:SendPM(Settings.sBot,ShowEntry(table.getn(Entry) - Settings.iMax + 1, table.getn(Entry), 1, 1, false, string.rep("\t",9).."Last "..Settings.iMax.." entries "..string.rep("\t",8).."["..os.date().."]\r\n",Entry))
	end
	if Settings.SendTo[sUser.iProfile] == 1 and Settings.SendRC == 1 then
		if sUser.bUserCommand then
			if sUser.bOperator then
				sUser:SendData("$UserCommand 1 3 Comandos Avancados\\"..Settings.sMenu.."\\Adicionar\\Categoria$<%[mynick]> !"..Settings.addCatCmd.." %[line:Categoria] %[line:maximum time in days]|") 
                                sUser:SendData("$UserCommand 1 3 Comandos Avancados\\"..Settings.sMenu.."\\Adicionar\\Entrada$<%[mynick]> !"..Settings.addCmd.." %[line:Category] %[line:Entry]|")
				sUser:SendData("$UserCommand 1 3 Comandos Avancados\\"..Settings.sMenu.."\\Apagar\\Categoria$<%[mynick]> !"..Settings.delCatCmd.." %[line:Categoria]|")
				sUser:SendData("$UserCommand 1 3 Comandos Avancados\\"..Settings.sMenu.."\\Apagar\\ID especifico$<%[mynick]> !"..Settings.delCmd.." %[line:ID]|")
				sUser:SendData("$UserCommand 1 3 Comandos Avancados\\"..Settings.sMenu.."\\Apagar\\Entrada especifica$<%[mynick]> !"..Settings.delCmd.." %[line:Nome da entrada]|")
				sUser:SendData("$UserCommand 1 3 Comandos Avancados\\"..Settings.sMenu.."\\Apagar\\Conteudo da categoria$<%[mynick]> !"..Settings.delCmd.." %[line:Nome da Categoria]|")
				sUser:SendData("$UserCommand 1 3 Comandos Avancados\\"..Settings.sMenu.."\\Apagar\\Todas entradas$<%[mynick]> !"..Settings.delAllCmd.."|")
				sUser:SendData("$UserCommand 1 3 Comandos Avancados\\"..Settings.sMenu.."\\Definir\\Estatus do rotador$<%[mynick]> !"..Settings.TimedCmd.." %[line:on/off]|")
				sUser:SendData("$UserCommand 1 3 Comandos Avancados\\"..Settings.sMenu.."\\Votar\\Limpar votos$<%[mynick]> !"..Settings.clrVotesCmd.."|")
			end
			sUser:SendData("$UserCommand 1 3 Comando Para Usu?rios\\Sistema de Entradas\\Votar\\Entrada$<%[mynick]> !"..Settings.voteCmd.." %[line:ID]|")
			sUser:SendData("$UserCommand 1 3 Comando Para Usu?rios\\Sistema de Entradas\\Votar\\Top dos votos$<%[mynick]> !"..Settings.TopVotesCmd.."|")
			sUser:SendData("$UserCommand 1 3 Comando Para Usu?rios\\Sistema de Entradas\\Ver\\Categorias$<%[mynick]> !"..Settings.showCatCmd.."|")
			sUser:SendData("$UserCommand 1 3 Comando Para Usu?rios\\Sistema de Entradas\\Ver\\Todas entradas$<%[mynick]> !"..Settings.showCmd.." all|")
			sUser:SendData("$UserCommand 1 3 Comando Para Usu?rios\\Sistema de Entradas\\Ver\\Ultimas "..Settings.iMax.." Entradas$<%[mynick]> !"..Settings.showCmd.."|")
			sUser:SendData("$UserCommand 1 3 Comando Para Usu?rios\\Sistema de Entradas\\Ver\\Por categoria$<%[mynick]> !"..Settings.showCmd.." %[line:Categoria]|")
			sUser:SendData("$UserCommand 1 3 Comando Para Usu?rios\\Sistema de Entradas\\Ajuda$<%[mynick]> !"..Settings.helpCmd.."|")
			sUser:SendData("$UserCommand 1 3 Comando Para Usu?rios\\Sistema de Entradas\\Procurar$<%[mynick]> !"..Settings.findCmd.." %[line:String]|")
		end
	end
end

OpConnected = NewUserConnected

TimedCat = function()
	if (Settings.TimedCat == 1) then
		if Settings.Times[os.date("%H:%M")] then
			local TimedMain = function(cat)
				local msg = ""
				msg = msg.."\r\n\r\n\t".." Categoria: "..cat.."\r\n\t"..string.rep("__",55).."\r\n\r\n\t? "
				for i = 1, table.getn(Entry) do
					if Entry[i] then
						if string.lower(Entry[i][2]) == string.lower(cat) then
							stuff = Entry[i][3] 
							while string.len(stuff) > 140 do
								msg = msg..string.sub(stuff,1,140).."\r\n\t"
								stuff  = string.sub(stuff,141,string.len(stuff))
							end
							msg = msg..stuff.."\r\n\t? "
						end
					end
				end
				msg = string.sub(msg,1,string.len(msg)-2)
				msg = msg.."\r\n\t"..Settings.TimedMsg.."\r\n\t"..string.rep("__",55).."\r\n"
				return msg
			end
			SendToAll(TimedMain(Settings.Times[os.date("%H:%M")]))
		end
	end
	collectgarbage(); io.flush();
end

jdate = function(d, m, y)
	local a, b, c = 0, 0, 0 if m <= 2 then y = y - 1; m = m + 12; end 
	if (y*10000 + m*100 + d) >= 15821015 then a = math.floor(y/100); b = 2 - a + math.floor(a/4) end
	if y <= 0 then c = 0.75 end return math.floor(365.25*y - c) + math.floor(30.6001*(m+1) + d + 1720994 + b)
end

ShowEntry = function(Start,End,Order,Mode,String,Header,Table)
	local msg, border = "\r\n",string.rep("-", 325)
	if Table == Entry then 
		msg = msg.."     "..border.."\r\n"..Header.."     "..string.rep("-- --",65).."\r\n     Nr.\tVotes\tDate - Time\t\tPoster\t\t\tCategory\t\t\tEntry\r\n"
	else
		msg = msg.."     "..border..string.rep("\t",9).."Top "..Settings.vMax.." Votes"..string.rep("\t",8).."["..os.date().."]\r\n     "..string.rep("-- --",65).."\r\n     Nr.\tVotes\tDate - Time\t\tPoster\t\t\tCategory\t\t\tEntry\r\n"
	end
	msg = msg.."     "..string.rep("-- --",65).."\r\n"
	for i = Start, End, Order do
		if Table[i] then
			local tmp = msg.."     "..i..".\t"..Table[i][5].."\t"..Table[i][4].."\t\t"..Table[i][1]..DoTabs(1,CheckSize(Table[i][1]))..Table[i][2]..DoTabs(1,CheckSize(Table[i][2]))..Table[i][3].."\r\n"
			if Mode == 1 then
				msg = tmp
			elseif Mode == 2 then
				if Settings.Sensitive == 1 then 
					where = Table[i][1]..Table[i][2]..Table[i][3]..Table[i][4]
				else
					where = string.lower(Table[i][1]..Table[i][2]..Table[i][3]..Table[i][4]) String = string.lower(String)
				end
				if string.find(where,String) then msg = tmp end
			elseif Mode == 3 then
				if string.lower(Table[i][2]) == string.lower(String) then msg = tmp end
			elseif Mode == 4 then
				if string.lower(Table[i][2]) == string.lower(String) then table.remove(Table,i) return nil end
			elseif Mode == 5 then
				msg = msg.."     "..Table[i][1]..".\t"..Table[i][6].."\t"..Table[i][5].."\t\t"..Table[i][2]..DoTabs(1,CheckSize(Table[i][2]))..Table[i][3]..DoTabs(1,CheckSize(Table[i][3]))..Table[i][4]..DoTabs(1,CheckSize(Table[i][4])).."\r\n"
			elseif Mode == 6 then
				if string.lower(Table[i][3]) == string.lower(String) then table.remove(Table,i) return nil end
			end
		end
	end
	msg = msg.."     "..border.."\r\n" return msg
end

DoTabs = function(Type, size) -- nErBoS Release bot based
	local sTmp = "" 
	if (Type == 1) then
		if (size < 8) then sTmp = "\t\t\t" elseif (size < 16) then sTmp = "\t\t" else sTmp = "\t" end return sTmp
	elseif (Type == 2) then
		if (size < 8) then sTmp = string.rep("\t",12) elseif (size < 16) then sTmp = string.rep("\t",11)  elseif (size < 24) then sTmp = string.rep("\t",10) 
		elseif (size < 32) then sTmp = string.rep("\t",9) elseif (size < 40) then sTmp = string.rep("\t",8) elseif (size < 48) then sTmp = string.rep("\t",7)
		elseif (size < 56) then sTmp = string.rep("\t",6) elseif (size < 64) then sTmp = string.rep("\t",5) elseif (size < 72) then sTmp = "\t\t\t\t"
		elseif (size < 80) then sTmp = "\t\t\t" elseif (size < 88) then sTmp = "\t\t" else sTmp = "\t" end return sTmp
	end
end

CheckSize = function(String) -- nErBoS Release bot based
	local realSize,aux,remove = string.len(String),1,0
	while aux < realSize + 1 do
		for i=1, table.getn(Settings.sChar) do if (string.sub(String,aux,aux) == Settings.sChar[i]) then remove = remove + 0.5 end end
		aux = aux + 1
	end return realSize - remove
end

Serialize = function(tTable,sTableName,hFile,sTab)
	sTab = sTab or "";
	hFile:write(sTab..sTableName.." = {\n");
	for key,value in tTable do
		if (type(value) ~= "function") then
			local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
			if(type(value) == "table") then
				Serialize(value,sKey,hFile,sTab.."\t");
			else
				local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
				hFile:write(sTab.."\t"..sKey.." = "..sValue);
			end
			hFile:write(",\n");
		end
	end
	hFile:write(sTab.."}");
end

SaveToFile = function(file,table,tablename)
	local hFile = io.open(file,"w+") Serialize(table,tablename,hFile); hFile:close() 
end
--/----------------------------------------------------------------------------

Quite Big :-) Cheers...

[jiten]

Markitos, there was no need to post all the script. You could ask for it and if necessary, then, post it.
Anyway, in the addCat function, replace the red value to "4":

end, [COLOR=red]6[/COLOR], "Add category and delete Time", sPrefix..Settings.addCatCmd.." Movies 15", },

Best regards

[Markitos]

Originally posted by jiten
Markitos, there was no need to post all the script. You could ask for it and if necessary, then, post it.
Anyway, in the addCat function, replace the red value to "4":

end, [COLOR=red]6[/COLOR], "Add category and delete Time", sPrefix..Settings.addCatCmd.." Movies 15", },

Best regards

Sorry jiten...thnks for the help but whats the diference about  and 5 in the script? They are number of profiles?


Respectfully

[jiten]

Originally posted by Markitos
whats the diference about  and 5 in the script? They are number of profiles?

Sort of.

-- If you're using Robocop profiles don't change this. If not, remove Profile 4 and 5 and follow this syntax: 
-- [Profile number] = value (higher value means more rights)
Levels = { [-1] = 1, [3] = 2, [2] = 3, [1] = 4, [4] = 5, [0] = 6, [5] = 7, }

As you can see in this table, a specific value is assigned to each profile number. The lowest profile, the lowest assignd number.
For example, the profile with less privileges ( -1 = UnReg ) has a value of "1" and the one with most ( 5 = NetFounder ) has a value of "7".
Hope this helps you.

Regards

[jiten]

--/----------------------------------------------------------------------------
-- Entry Bot v1.1f (6/27/2005)
-- For PtokaX 0.3.3.0 build 17.02 or Higher

-- Fixed: Cleaner and TimedCat (changed to ipairs)
-- Added: Custom cleaner check
-- Minor fixes
--/----------------------------------------------------------------------------

Grab it

HERE.
[/list]

[Re@SoN]

link is dead :P

[Markitos]

Originally posted by Re@SoN
link is dead :P

Yes...the link was dead since yesterday...

[jiten]

Originally posted by Re@SoN
link is dead

The site is going through some maintainances but it'll be back today, I guess. Sorry for the trouble

Best regards

[jiten]

--/----------------------------------------------------------------------------
-- Entry Bot v1.1g (7/04/2005)
-- For PtokaX 0.3.3.0 build 17.02 or Higher

-- Fixed: Cleaner
-- Minor fixes
--/----------------------------------------------------------------------------

Grab it

HERE.
[/list]

[Re@SoN]

hi!
Jiten i downloaded the new version 1.1g and when i open the script i have seen this (in red):

-- Entry Bot v1.1g (7/4/2005)
-- For PtokaX 0.3.3.0 build 17.02 or Higher

-- Thanks to Dessamator for the Timed Message efforts

--/ Some Features:
-- Supports pre-defined categories;
-- Commands to add, delete, show, find entries and much more;
-- Entries older than x Days are automatically deleted (optional)
-- Ability to send pre-defined category's content to main when desired
-- Includes an optimized RighClick;
--/----------------------------------------------------------------------------

Settings = {
	sBot = frmHub:GetHubBotName(),		-- Default Bot Name or -- sBot = "custombot"
	sMenu = "Entry Point",			-- RightClick Menu Name
	cFile = "Category.tbl",			-- File where the Categories are stored
	rFile = "Entry.tbl",			-- File where the Entries are stored
	vFile = "Votes.tbl",			-- File where the Voters are stored
	eFolder = "Entry",			-- Folder where the .tbl files are stored
	[COLOR=red]iVer = "1.1f",[/COLOR] 				-- Script Version
	iMax = 30,				-- Maximum entries to be shown
	vMax = 20,				-- Maximum votes to be shown
	SendOnConnect = 0,			-- 1 = Send iMax Entries to every user on connect; 0 = Don't send
	CatSize = 20,				-- Category's size
	EntrySize = 80,				-- Entry's size (recommended: 75-80)
	Sensitive = 0,				-- 1 = Searches case-sensitive; 0 = not case-sensitive
	TimedCat = 0,				-- 1 = Send specific category content to main in an interval; 0: not
	TimedMsg = "your message",		-- Message shown below each Timed Category in Main
	Times = {				-- ["time in 24h format"] = "Category" (not case sensitive)
		["12:30"] = "cat1",
		["13:00"] = "cat2",

thing this must be something like 1.1g correct me if i'm wrong... :P
for the rest script works fine  ;)

best regards,
Re@SoN

[Re@SoN]

it's nothing important...because it will not interfere with the normal fucntion of script and anyone could correct that..just a simple error(it's appeans)..nothing to worry about  ;)

[jiten]

Originally posted by Re@SoN
it's nothing important...because it will not interfere with the normal fucntion of script and anyone could correct that..just a simple error(it's appeans)..nothing to worry about  

Thanks for the tip m8.
That's the result of doing things without much time

Best regards

[hnr21]

I use PX v0.3.3.1 [debug], RoboCop v10.01e and Entry v1.1g
1) Seems 2 me that You forgot to save entry.tbl after a vote and therefore when the hub is restarted in the entry table the votes are not displayed, even those votes are counted in votes.tbl (i added another line SaveToFile(Settings.eFolder.."/"..Settings.rFile,Entry,"Entry"))
2) The !topvote doesnt seem to work for me, it shows the header but NO actual voting. (+find is performing well)
3) The +vote command is not also performing well, i mean after i voted an , when i want to vote again for ANOTHER its showing 'already voted' err.
5) Is there any posibility to add another column or a \t in EntryTitle to add a link to a website (like the official site for a movie or an IMDB reference), but of course not to show the entire link due' to limited screen space restriction, but just a small <//www.> that users can click on it and go to the website, like when they click on a site posted in mainchat.
6) Adding subcategories will be awesome, like /Movies, /Movies/Series...
7) Another small suggestion .. if one is adding a cat, not to be displayed in list in lowercase, i mean when i add "Movies" not to display "movies" in cat column. Thats only for displaying a cat in list when !show, of course, when performing an action on the database like searching or adding another cat to not differentiate "Movies" from "movies".

Thank you very much for your work and support ! :)

[jiten]

Entry Bot v1.2 (7/4/2005)
For PtokaX 0.3.3.0 build 17.02 or Higher

Changelog:

• Added and Fixed all stuff reported by hnr21

Grab it

HERE.[/list]

[jiten]

Entry Bot v2 (1/22/2006)
For PtokaX 0.3.3.0 build 17.02 or Higher

Changelog:

• Added: Support for sub-categories
• Changed: Code structure
• Removed: Some extra code

Grab it

HERE.[/list]

[jiten]

Entry Bot v2.1 (3/20/2006) for PtokaX 0.3.3.0 build 17.02 or Higher

Changelog:


• Removed: Sub-category support;
• Added: RSS Feed support (concept from st0ne-db`s Console NFO RSS bot);
• Add/Del/Show commands;
• Inbuild queue and cache.
• Removed: Unnecessary code;
• Added: Comments to the code;
• Changed: Command parsing and table structure;
• Removed: Levels table;
• Changed: RightClick is sent in alphabetical order;
• Changed: Cleaner;
• Fixed: 1.1 to 1.0 in wCmd (thanks to BrotherBear)
• Changed: Other mods.

ATTENTION: In order to use use the RSS Mode, you must download the latest PxWSA lib (PxWSA 0.1.0) and unzip it to your scripts\libs\ folder.

Grab it

HERE.[/list]

[TrIp-iN-SuN]

when released entrybot for 5.1?

[jiten]

when released entrybot for 5.1?

This script has already been converted to LUA 5.1.

Search its 'Finished Scripts' section.

[TrIp-iN-SuN]

no it's not converted i don't find this