REGorREDIR

[GeceBekcisi]

Please report any bugs & errors

-- ==================================================
--// REGorREDIR 1.00 by GeceBekcisi
--// Redirects users after an interval if they dont reg
-- ==================================================
--// Settings
-- ==================================================
tSettings = {
	-- Your Bot name (default is your hub default bot name)
	["sBot"] = frmHub:GetHubBotName(),
	-- Redirect address (default is your hub default redirect address)
	["sRedirectAddy"] = frmHub:GetRedirectAddress(),
	-- Sets the time interval in minutes before unregged user is redirected
	["iRedirectInterval"] = 1,
	-- Command name for showing users waiting redirect
	["sUsersShowCMD"] = "showusers",
	-- Sets who can use script
	["iMinLevel"] = 3,
	-- Sets profile access levels ( DO NOT TOUCH UNLESS YOU ARE SURE OF WHAT YOU ARE DOING!!! )
	["tProfileLevels"] = {	
		[-1] = 0,	-- Unreg Users
		[0] = 5,	-- Masters
		[1] = 3,	-- Operators
		[2] = 2,	-- VIPs
		[3] = 1,	-- Regs
		[4] = 4,	-- Moderators
		[5] = 6,	-- NetFounders
	},
}
-- ==================================================
--// Hub Functions
-- ==================================================
tUsers = {}
function Main()
	frmHub:RegBot(tSettings.sBot)
	SetTimer(30000)
	StartTimer()
end

function NewUserConnected(curUser)
	local EnterDate = os.time()
	if not curUser.bRegistered then
		tUsers[curUser.sName] = {}
		tUsers[curUser.sName] = EnterDate
		curUser:SendMessage(tSettings.sBot, "WARNING! Please register yourself to our hub or you'll be redirected in "..tSettings.iRedirectInterval.." minutes.")
	end
end

function UserDisconnected(curUser)
	if tUsers[curUser.sName] then
		tUsers[curUser.sName] = nil
	end
end

function OnTimer()
	local Now = os.time()
	for i,v in pairs(tUsers) do
		if ((Now-v)>= tSettings.iRedirectInterval*60) then
			local curUser = GetItemByName(i)
			if not curUser.bRegistered then
				SendToNick(i, "<"..tSettings.sBot.."> You didn't register in "..tSettings.iRedirectInterval.." minutes after you logged in, so are now being redirected!")
				SendToNick(i, "$ForceMove "..tSettings.sRedirectAddy)
				if tUsers[curUser.sName] then
					tUsers[curUser.sName] = nil
				end
			end
		end
	end
end

function ChatArrival(curUser, data)
	curUser.SendMessage = curUser.SendData
	return tFunctions.GetCommands(curUser, data)
end

function ToArrival(curUser, data)
	local s,e,to = string.find(data, "$To: (%S+%s?%S*)%sFrom:")
	if to == tSettings.sBot then
		curUser.SendMessage = curUser.SendPM
		return tFunctions.GetCommands(curUser, data)
	end
end
-- ==================================================
--// Commands
-- ==================================================
tCommands = {}
tCommands[tSettings.sUsersShowCMD] = function(curUser, data)
	local sMessage = "\r\n\r\n\tUnregged users waiting redirection:\r\n\r\n\t"..string.rep("?",50).."\r\n"
	for i,v in pairs(tUsers) do
		local Now = os.time()
		local Left = string.format("%03d", ((tSettings.iRedirectInterval*60)-(Now-v)))
		sMessage = sMessage.."\tSeconds Left: "..Left.." \tNick: "..i.."\r\n"
	end
	curUser:SendMessage(tSettings.sBot, sMessage.."\t"..string.rep("_",50).."\r\n\r\n")
	return 1
end
-- ==================================================
--// Script Functions
-- ==================================================
tFunctions = {}
tFunctions.GetCommands = function(curUser, data)
	local data = string.sub(data, 1, (string.len(data)-1))
	local s,e,Command = string.find(data, "%b<>%s+%p(%S+)")
	if Command and tCommands[Command] then
		if tSettings.tProfileLevels[curUser.iProfile] >= tSettings.iMinLevel then
			return tCommands[Command](curUser, data)
		else
			curUser:SendMessage(tSettings.sBot, "You are not allowed to use this command!")
		end
		return 1
	end
end
-- ==================================================
--// End of Script
-- ==================================================