[BOT]LoginBlock with time settings

[TTB]

Hi...

I'm working on a huge script, so there were not that much posts from me... I stripped a nice feature from it, it could be useful for some admins.

The script blocks non-regs permanent, or from time - time. There is already such a script, but I like the one I made....

IMPORTANT! You need to make a file called "logintimer.dat" and you have to put that in the scripts folder! Copy paste the table below in the file:

bSettings = {
	["login"] = {
		["message"] = "None",
		["end"] = 0,
		["enable"] = 0,
		["start"] = 0,
	},
}

Here is the code...:

-- [BOT]LoginBlock with time settings
-- by TTB 20/07/05
-- Stripped from [BOT]Vliegenmepper (still in progress)
----------------------------------------------------------------------
-- Usage:
-- #nonregblock   				-  Block non-regs. Settings can be done with: (prefix)nonregset 
-- #nonregset    	- Set the non-reg block in time. Only 1 (or 2 when needed) digit(s) possible by time (hours)
-- NOTE: Status and other info will be given when you don't config... Type: #nonregblock or #nonregset without any extra text... Find out yourself
----------------------------------------------------------------------
-- Info:
-- I didn't post that much on the forum the last few weeks, so that's why I give you all this stripped version from a bot that maybe will released some day
-- It might be useful for some admins....
----------------------------------------------------------------------
-- IMPORTANT!!!!!!!
-- YOU HAVE TO MAKE A FILE CALLED:  logintimer.dat  IN YOUR SCRIPTS DIRECTORY!!!!
-- It won't work without...
-- 
--Put this in that file (without the double -  ) >>
--
--bSettings = {
--	["login"] = {
--		["message"] = "None",
--		["end"] = 0,
--		["enable"] = 0,
--		["start"] = 0,
--	},
--}
----------------------------------------------------------------------


-- ## SETTINGS ##--

-->> Name of the bot
bot = "[BOT]LoginBlock"
--> Reg the bot in the userlist? 1 = yes 0 = no
regbot = 1
-->> Your commands
prefix = "#"
cmd1 = "nonregblock"
cmd2 = "nonregset"
-->> The profiles who can use this commands
Profiles = {
[-1] = 0,  -- Users
[0] = 1,   -- Masters
[1] = 1,   -- OPs
[2] = 0,   -- VIPs
[3] = 0,   -- REGs
[4] = 1,   -- MODs
[5] = 1,   -- Founders
}

-- ## End of Settings ##--

file = "logintimer.dat"

function loadlua(file,msg)
	local f = assert(loadfile(file), msg)
	return f()
end

loadlua(file,file.."  for  "..bot.." not found")

function Main()
	if regbot == 1 then 
		frmHub:RegBot(bot)
	end
end

function ChatArrival(curUser, data)
	data = string.sub(data,1,string.len(data)-1)
	s,e,cmd = string.find(data,"%b<>%s+(%S+)")
	if (string.lower(cmd) == (prefix..cmd1)) then
		if Profiles[curUser.iProfile] == 1 then
			BlockNonRegStatus(curUser,data)
			return 1
		end
	elseif (string.lower(cmd) == (prefix..cmd2)) then
		if Profiles[curUser.iProfile] == 1 then
			BlockNonReg(curUser,data)
			return 1
		end
	end
end

function BlockNonReg(curUser,data)
	local mijntabel = "bSettings"
	local s,e,cmd,start,eind,reden = string.find(data,"%b<>%s+(%S+)%s+(%d+)%s+(%d+)%s+(.+)")
	if start==nil or eind==nil or reden==nil then
		if bSettings["login"]["enable"] == 1 then
			curUser:SendData(bot,"The current setting is: ON")
		else
			curUser:SendData(bot,"The current setting is: OFF")
		end
		curUser:SendData(bot,"*** Syntax error! Please use: "..prefix..cmd2.."   \r\n\r\n"..
		"Example: "..prefix..cmd2.." 22 6 Not welcome     <--- blocks from 22:00 till 6:00 with the reason 'Not welcome'\r\n"..
		"To block nonreg's for 24 hours, use: "..prefix..cmd2.." 0 0 \r\n"..
		"NOTE: It can only be done in hours!!")
	else
		local start=tonumber(start);local eind=tonumber(eind);
		if start > 23 or start < 0 or eind > 23 or eind < 0 then
			curUser:SendData(bot,"*** Error! The numbers: 0 - 23 are possible.")
		else
			curUser:SendData(bot,"Old settings: Start = "..bSettings["login"]["start"].." end = "..bSettings["login"]["end"].." Reason = "..bSettings["login"]["message"])
			bSettings["login"]["start"] = start
			bSettings["login"]["end"] = eind
			bSettings["login"]["message"] = reden
			curUser:SendData(bot,"New settings: Start = "..bSettings["login"]["start"].." end = "..bSettings["login"]["end"].." Reason = "..bSettings["login"]["message"])
			SendPmToOps(bot,"The non-reg blocker settings has been changed by: "..curUser.sName.."  "..
			"New settings: Start = "..bSettings["login"]["start"].." end = "..bSettings["login"]["end"].." Reason = "..bSettings["login"]["message"])
			WriteFile(bSettings,mijntabel,file)
		end
	end	
end

function BlockNonRegStatus(curUser,data)
	local mijntabel = "bSettings"
	local s,e,cmd,status = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	if status == nil then
		if bSettings["login"]["enable"] == 1 then
			curUser:SendData(bot,"*** Syntax error! Please use: "..prefix..cmd1.." ")
			curUser:SendData(bot,"Settings: Start = "..bSettings["login"]["start"].." end = "..bSettings["login"]["end"].." Reason = "..bSettings["login"]["message"])
			curUser:SendData(bot,"The current setting is: ON")
		else
			curUser:SendData(bot,"*** Syntax error! Please use: "..prefix..cmd1.."     The current setting is: OFF")
		end
	else
		if status == "on" then
			if bSettings["login"]["enable"] == 1 then
				curUser:SendData(bot,"The blocker is already on!")
			else
				bSettings["login"]["enable"] = 1
				curUser:SendData(bot,"The blocker is enabled!")
				SendPmToOps(bot,"The non-reg blocker has been enabled by: "..curUser.sName.."  "..
				"Current settings: Start = "..bSettings["login"]["start"].." end = "..bSettings["login"]["end"].." Reason = "..bSettings["login"]["message"])
			end
		elseif status == "off" then
			if bSettings["login"]["enable"] == 0 then
				curUser:SendData(bot,"The blocker is already off!")
			else
				bSettings["login"]["enable"] = 0
				curUser:SendData(bot,"The blocker is disabled!")
				SendPmToOps(bot,"The non-reg blocker has been disabled by: "..curUser.sName)
			end
		else
			curUser:SendData(bot,"*** Syntax error! Please use: "..prefix..cmd1.." ")
		end
		WriteFile(bSettings,mijntabel,file)
	end
end


function NewUserConnected(user)
	if not user.bRegistered and bSettings["login"]["enable"] == 1 then
		local hr=tonumber(os.date("%H"));
		if (bSettings["login"]["end"] - bSettings["login"]["start"]) <= 0 then
			if hr >= bSettings["login"]["start"] or hr < bSettings["login"]["end"] then
				user:SendData(bot,bSettings["login"]["message"])
				user:Disconnect()
				end
		else
			if hr >= bSettings["login"]["start"] and hr < bSettings["login"]["end"] then
				user:SendData(bot,bSettings["login"]["message"])
				user:Disconnect()
			end
		end
	end
end


function Serialize(tTable, sTableName, hFile, sTab)
	sTab = sTab or "";
	hFile:write(sTab..sTableName.." = {\n" );
	for key, value in tTable do
		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
	hFile:write(sTab.."}");
end

function WriteFile(table, tablename, file)
	local handle = io.open(file, "w")
	Serialize(table, tablename, handle)
  	handle:close()
end

Have fun... tested it very quick, should work!