can some1 translate this to Lua5?

[aL1en]

-- regonly by bastya_elvtars
-- requested by aL1en

-- sorry 4 possible bugs, cannot test it and forgot lua a bit :)
-- disconnects unreg users if hub is set private
-- well, here is an array that contains allowed ppl. this is the safest.
-- command prefixes: + ! # ? (as usual)
-- ptokax>advanced>registered users only must be unmarked ;)
-- enjoy

-- // settings

userswhocansetregonly={ -- ppl who are allowed to use it

"aL1en",

}

-- the bot1s name:

Bot="TheKEY"

--- // end of settings, do not edit below


regO={}

regonly=0 -- for safety only

dofile("regonly.ini") -- loads settings

function Main() -- loads on script start
   for b=1,getn(userswhocansetregonly) do
      regO[userswhocansetregonly]=1 -- makes a metatable to use l8r
   end
end


function NewUserConnected(user) -- user connects
   if regonly==1 then
      if user.iProfile==-1 then
         user:SendData(Bot,"This hub is for registered users only.")
         user:Disconnect()
      end
   end
end

function DataArrival(user,data)
   if strsub(data,1,1)=="<" then
      data=strsub(data,1,strlen(data)-1)
      local _,_,cmd=strfind(data,"%b<>%s+[%+%!%#%?](%S+)")
      if cmd=="private" then
         if regO[user.sName] then
            if regonly~=1 then
               regonly=1
               save()
               user:SendData(Bot,"Hub is now private.")
            else
               user:SendData(Bot,"Hub is already private.")
            end
         else
            user:SendData(Bot,"You are not allowed to use this command.")
         end
      elseif cmd=="public" then
         if regO[user.sName] then
            if regonly~=0 then
               regonly=0
               save()
               user:SendData(Bot,"Hub is now public.")
            else
               user:SendData(Bot,"Hub is already public.")
            end
         else
            user:SendData(Bot,"You are not allowed to use this command.")
         end
      end
   end
end

function save()
   writeto("regonly.ini")
   write("regonly="..regonly)
   writeto()
end

[TTB]

Hi, here we go:

A. First you need to make a file called "regonly.dat" and put that in the scripts folder!
B. The table in this file should be this (copy paste this in the file "regonly.dat"):

Setting = {
	["regonly"] = 1,
}

C. This is the script u asked for (have fun), please report bugs:

-----------------------------------------------------------------------------
-- regonly by bastya_elvtars 
-- requested by aL1en 
-----------------------------------------------------------------------------
-- Changed to LUA5 on request by TTB (30-07-05)
-- Table in txt is serialized... ow my, I love that function!
-----------------------------------------------------------------------------
-- sorry 4 possible bugs, cannot test it and forgot lua a bit :) 
-- disconnects unreg users if hub is set private 
-- well, here is an array that contains allowed ppl. this is the safest. 
-- command prefixes: + ! # ? (as usual) 
-- ptokax>advanced>registered users only must be unmarked ;) 
-- enjoy 
-----------------------------------------------------------------------------

-- // settings 

-->> Who can reg set the regonly?
userswhocansetregonly={
"aL1en",
"[SU]TTB",
} 

-->> What is the name of your bot?
Bot="TheKEY" 

-->> What is the filename of the settings?
file = "regonly.dat"

--- // end of settings, do not edit below 
regO={} 

function Main() -- loads on script start
	local handle = io.open(file,"r")
	if (handle ~= nil) then
		dofile(file)
		handle:flush()
		handle:close()
	else
		SendToAll(Bot, "The file: "..file.." has not been found in the scripts folder!")
	end
	for b=1,table.getn(userswhocansetregonly) do 
		regO[userswhocansetregonly[b]]=1 -- makes a metatable to use l8r 
	end 
end 

function NewUserConnected(user) -- user connects 
	if Setting["regonly"] == 1 then 
		if user.iProfile==-1 then 
			user:SendData(Bot,"This hub is for registered users only.") 
			user:Disconnect() 
		end 
	end 
end 

function ChatArrival(user,data) 
	mijntabel = "Setting"
	data = string.sub(data,1,string.len(data)-1) 
	local _,_,cmd=string.find(data,"%b<>%s+[%+%!%#%?](%S+)") 
	if cmd=="private" then 
		if regO[user.sName] then 
			if Setting["regonly"] ~=1 then 
				Setting["regonly"] = 1
				WriteFile(Setting,mijntabel,file)
				user:SendData(Bot,"Hub is now private.") 
			else 
				user:SendData(Bot,"Hub is already private.") 
			end 
		else 
			user:SendData(Bot,"You are not allowed to use this command.") 
		end 
		return 1
	elseif cmd=="public" then 
		if regO[user.sName] then 
			if Setting["regonly"] ~= 0 then
				Setting["regonly"] = 0
				WriteFile(Setting,mijntabel,file)
				user:SendData(Bot,"Hub is now public.") 
			else 
				user:SendData(Bot,"Hub is already public.") 
			end 
		else 
			user:SendData(Bot,"You are not allowed to use this command.") 
		end 
		return 1
	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

[aL1en]

thanks TTB

[TTB]

YW!