RegToStay

[[HE]Newbie]

-- [ Can someon1 convert this to LUA5, Thnx ] --

-- By [UK]Madman
-- References - Lua Language Board

var = {["bot"] = "RegToStayBot", ["time"] = 1, ["command"] = "?notreg"} --time is in mins before redirect
times = {}
hubs =? { "Holland-Extreme1.no-ip.info:411", "nlgezel.hopto.org:411"} -- list of possible hubs

function Main()
frmHub:RegBot(var.bot)
SetTimer(60000*(tonumber(var.time)/4))
StartTimer()
end

function NewUserConnected(Curuser)
	if Curuser.iProfile == -1 then
	times[Curuser.sName] = var.time
	Curuser:SendData (var.bot, "You have to register to stay in this hub, you currently have: "..var.time.." mins to register!")
	end
end

function UserDisconnected (Curuser)
times[Curuser.sName] = Nil
end

function OnTimer()
	for key, value in times do
	value = value - (var.time/4)
	times[key] = value

		if value == 0 then tokick = GetItemByName(key)
			times[tokick] = nil
			tokick:SendData (var.bot, "You did not register, so are now being redirected!")
			tohub = random(getn(hubs))
			tokick:SendData("$ForceMove "..hubs[tohub])

	elseif value == (var.time - tonumber(var.time)/2) then towarn = GetItemByName(key)
	towarn:SendData (var.bot, "You have not registered, you will be redirected in: "..value.." mins unless you register!")
	end
end
end


function DataArrival(Curuser,data)
data = strsub(data, 1, strlen(data)-1)
	if strsub(data, 1, 1) == "<" then 
	s,e,cmd = strfind(data, "%b<>%s+(%S+)")
		if cmd == var.command and Curuser.bOperator then
		Curuser:SendPM (var.bot, "The following users are currently not regged:")
			for key, value in times do 
			Curuser:SendPM (var.bot, key.." Has approx "..value.." mins till being redirected!")
			end
		return 1
		end
	end
end

[Markitos]

--[[
 By [UK]Madman
References - Lua Language Board
Markitos: Now works with all prefixes - 30/03/06
-- Lua5/Lua 5.1 support - 30/03/06
]]--

var = {
["bot"] = "RegToStayBot", 
["time"] = 1, --time is in mins before redirect
["command"] = "notreg",
}
times = {}
hubs =  { "Holland-Extreme1.no-ip.info:411", "nlgezel.hopto.org:411"} -- list of possible hubs

function Main()
frmHub:RegBot(var.bot)
SetTimer(60000*(tonumber(var.time)/4))
StartTimer()
end

function NewUserConnected(Curuser)
	if Curuser.iProfile == -1 then
		times[Curuser.sName] = var.time
		Curuser:SendData (var.bot, "You have to register to stay in this hub, you currently have: "..var.time.." mins to register!")
	end
end

function UserDisconnected (Curuser)
times[Curuser.sName] = Nil
end

function OnTimer()
	for key, value in pairs(times) do
	value = value - (var.time/4)
	times[key] = value
		if value == 0 then tokick = GetItemByName(key)
			times[tokick] = nil
			tokick:SendData (var.bot, "You did not register, so are now being redirected!")
			tohub = random(table.getn(hubs))
			tokick:SendData("$ForceMove "..hubs[tohub])
				elseif value == (var.time - tonumber(var.time)/2) then towarn = GetItemByName(key)
					towarn:SendData (var.bot, "You have not registered, you will be redirected in: "..value.." mins unless you register!")
				end
		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 cmd == var.command and Curuser.bOperator then
		Curuser:SendPM (var.bot, "The following users are currently not regged:")
			for key, value in pairs(times) do
			Curuser:SendPM (var.bot, key.." Has approx "..value.." mins till being redirected!")
			end
		return 1
	end
end

[Markitos]

For what its worth simple scripts like this can easily be made 5.0/5.1
compatible with the same effort as is required to convert 4.x to 5.0.

Consider using the optimized table loops [ipairs for arrays, pairs for tables]
that are available in 5.0 and required for 5.1. In this way, the script may be used
in both LUA versions. There are a few other things to consider for 5.1 but loops
are the biggest consideration.

Food for thought

edited...