more scripts to convert to lua 5

[Loading]

hello ppl

i have 3 more scripts to made a conversion to lua 5

it is :

--## HUBSTAT RECODER BOT 
--## Pedido por 1OO_Nick 
--## Feito por nErBoS 
--## Comando: 
--##    !recorde   - Mostra o informa??o sobre o recorde 

sBot = "?Doom??" 

arrStat = {["SHARE"]=0,["USERS"]=0,["DATE"]=""} 
fStat = "stat.dat" 
arrUnit = {[0]="B",[1]="KB",[2]="MB",[3]="GB",[4]="TB"} 

--## Configura??o ##-- 

iUnidade = 4      -- Unidade para mostrar o share (0=Bytes, 1=KBytes, 2=MBytes, 3=GBytes, 4=TBytes) 

uLaterPtokax = 0   -- Escolhe 0 se tiveres a usar uma vers?o do Ptokax 0.3.3.0 ou superior 
         -- Escolhe 1 se tiveres a usar uma vers?o do Ptokax inferior a 0.3.3.0 

--## FIM ##-- 

function Main() 
   frmHub:RegBot(sBot) 
   LoadFromFile(fStat) 
end 

function OnExit() 
   SaveToFile(fStat,arrStat,"arrStat") 
end 

function NewUserConnected(user) 
   if (arrStat["SHARE"] < frmHub:GetCurrentShareAmount()) then 
      arrStat["SHARE"] = frmHub:GetCurrentShareAmount() 
      arrStat["DATE"] = GetTime() 
      if (uLaterPtokax == 1) then 
         OnExit() 
      end 
   end 
   if (arrStat["USERS"] < frmHub:GetUsersCount()) then 
      arrStat["USERS"] = frmHub:GetUsersCount() 
      arrStat["DATE"] = GetTime() 
      if (uLaterPtokax == 1) then 
         OnExit() 
      end 
   end 
end 

OpConnected = NewUserConnected 

function DataArrival(user,data) 
   if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(sBot)) == "$To: "..sBot) then 
      data = strsub(data,1,strlen(data)-1) 
      local s,e,cmd = strfind(data, "%b<>%s+(%S+)") 
      if (cmd == "!recorde") then 
         local sTmp = "Recorde do HUB:\r\n\r\n" 
         sTmp = sTmp.."Share Total: "..shareConversion().."\r\n" 
         sTmp = sTmp.."Total de Utilizadores no Hub: "..arrStat["USERS"].."\r\n\r\n" 
         sTmp = sTmp.."Data do recorde: "..arrStat["DATE"].."\r\n" 
         user:SendPM(sBot, sTmp) 
         return 1 
      end 
   end 
end 

function GetTime() 
   return "Dia "..date("%d").."/"..date("%m").."/20"..date("%y").." Hora: "..date("%H")..":"..date("%M")..":"..date("%S") 
end 

function shareConversion() 
   return format("%0.2f", arrStat["SHARE"]/(1024^iUnidade)).." "..arrUnit[iUnidade] 
end 

function Serialize(tTable, sTableName, sTab) 
   assert(tTable, "tTable equals nil"); 
   assert(sTableName, "sTableName equals nil"); 

   assert(type(tTable) == "table", "tTable must be a table!"); 
   assert(type(sTableName) == "string", "sTableName must be a string!"); 

   sTab = sTab or ""; 
   sTmp = "" 

   sTmp = sTmp..sTab..sTableName.." = {\n" 

   for key, value in tTable do 
      local sKey = (type(key) == "string") and format("[%q]",key) or format("[%d]",key); 

      if(type(value) == "table") then 
         sTmp = sTmp..Serialize(value, sKey, sTab.."\t"); 
      else 
         local sValue = (type(value) == "string") and format("%q",value) or tostring(value); 
         sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue 
      end 

      sTmp = sTmp..",\n" 
   end 

   sTmp = sTmp..sTab.."}" 
   return sTmp 
end 

function SaveToFile(file , table , tablename) 
   writeto(file) 
   write(Serialize(table, tablename)) 
   writeto() 
end 

function LoadFromFile(file) 
   if (readfrom(file) ~= nil) then 
      readfrom(file) 
      dostring(read("*all")) 
      readfrom() 
   end 
end

another one :

--Feito por nErBoS 
--Adicionado mais alguns perfis 

sBot = "?Lusomundo??" 

--## Usar Welcomes para os Nivies ##-- 

Reg = 1 
Vip = 1 
Operator = 1 
Master = 1 
Moderator = 1 
NetFounder = 1 

--1 activa, 0 desactiva 

--## Mensagens ##-- 

   --## Mensagens para REG ##-- 
   --## MSG de Entrada 
   regwlcin = { 
         "O User registado ? ? ? ? ? ? [USER] ? ? ? ? ? ? entra a correr em grande..... e cai.", 
         "O User registado ? ? ? ? ? ? [USER] ? ? ? ? ? ? entra em busca de slots." 
   } 
   --## MSG de Saida 
   regwlcout = { 
         "O User registado ? ? ? ? ? ? [USER] ? ? ? ? ? ? sai do nosso Hub sem deixar rasto.", 
         "O User registado ? ? ? ? ? ? [USER] ? ? ? ? ? ? sai com o saco cheio de downloads." 
   } 

   --## Mensagens para VIP ##-- 
   --## MSG de Entrada 
   vipwlcin = { 
         "O Vip ? ? ? ? ? ? [USER] ? ? ? ? ? ? est? ? espera do cham...pomi.", 
         "O Vip ? ? ? ? ? ? [USER] ? ? ? ? ? ? chega no seu Ferrari Enzo." 
   } 
   --## MSG de Saida 
   vipwlcout = { 
         "O Vip ? ? ? ? ? ? [USER] ? ? ? ? ? ? sai tocado com uma garrafa de champomi vazia.", 
         "O Vip ? ? ? ? ? ? [USER] ? ? ? ? ? ? sai com o seu Ferrari Enzo num reboque." 
   } 

   --## Mensagens para OP ##-- 
   --## MSG de Entrada 
   opwlcin = { 
      "O Operador ? ? ? ? ? ? [USER] ? ? ? ? ? ? entrou para ajudar.", 
      "O Operador ? ? ? ? ? ? [USER] ? ? ? ? ? ? entra e pede um caf?."      
   } 
   --## MSG de Saida 
   opwlcout = { 
      "O Operador ? ? ? ? ? ? [USER] ? ? ? ? ? ? trope?a gritando!, '?m******! ?dassssssss! ?Bebida! ?Gajas!.", 
      "O Operador ? ? ? ? ? ? [USER] ? ? ? ? ? ? diz, 'Ouve com aten??o ... S? vou dizer isto uma vez!." 
   } 

   --## Mensagens para MASTER ##-- 
   --## MSG de Entrada 
   masterwlcin = { 
         "O Master ? ? ? ? ? ? [USER] ? ? ? ? ? ? entrou para mandar.", 
         "O Master ? ? ? ? ? ? [USER] ? ? ? ? ? ? entra num tapete vermelho."      
   } 
   --## MSG de Saida 
   masterwlcout = { 
         "O Master ? ? ? ? ? ? [USER] ? ? ? ? ? ? sai com bolhas nos dedos depois de tanto kickar.", 
         "O Master ? ? ? ? ? ? [USER] ? ? ? ? ? ? sai enrolado no tapete vermelho."      
   } 

   --## Mensagens para MODERATOR ##-- 
   --## MSG de Entrada 
   modwlcin = { 
         "O Moderador ? ? ? ? ? ? [USER] ? ? ? ? ? ? entra a correr em grande..... e cai.", 
         "O Moderador ? ? ? ? ? ? [USER] ? ? ? ? ? ? entra em busca de slots." 
   } 
   --## MSG de Saida 
   modwlcout = { 
         "O Moderador ? ? ? ? ? ? [USER] ? ? ? ? ? ? sai do nosso Hub sem deixar rasto.", 
         "O Moderador ? ? ? ? ? ? [USER] ? ? ? ? ? ? sai com o saco cheio de downloads." 
   } 

   --## Mensagens para NETFOUNDER ##-- 
   --## MSG de Entrada 
   netfndwlcin = { 
         "O Fundador do Hub ? ? ? ? ? ? [USER] ? ? ? ? ? ? entra a correr em grande..... e cai.", 
         "O Fundador do Hub ? ? ? ? ? ? [USER] ? ? ? ? ? ? entra em busca de slots." 
   } 
   --## MSG de Saida 
   netfndwlcout = { 
         "O Fundador do Hub ? ? ? ? ? ? [USER] ? ? ? ? ? ? sai do nosso Hub sem deixar rasto.", 
         "O Fundador do Hub ? ? ? ? ? ? [USER] ? ? ? ? ? ? sai com o saco cheio de downloads." 
   } 

function Main() 
   frmHub:RegBot(sBot) 
end 

function NewUserConnected(user, data) 
   if (user.iProfile == 3 and Reg == 1) then 
      local regmsg = regwlcin[random(1, getn(regwlcin))] 
      regmsg, x = gsub(regmsg, "%b[]", user.sName) 
      SendToAll(sBot, regmsg) 
   elseif (user.iProfile == 2 and Vip == 1) then 
      local vipmsg = vipwlcin[random(1, getn(vipwlcin))] 
      vipmsg, x = gsub(vipmsg, "%b[]", user.sName) 
      SendToAll(sBot, vipmsg) 
   elseif (user.iProfile == 0 and Operator == 1) then 
      local mastermsg = masterwlcin[random(1, getn(masterwlcin))] 
      mastermsg, x = gsub(mastermsg, "%b[]", user.sName) 
      SendToAll(sBot, mastermsg) 
   elseif (user.iProfile == 5 and NetFounder == 1) then 
      local netfndmsg = netfndwlcin[random(1, getn(netfndwlcin))] 
      netfndmsg, x = gsub(netfndmsg, "%b[]", user.sName) 
      SendToAll(sBot, netfndmsg) 
   elseif (user.iProfile == 4 and Moderator == 1) then 
      local modmsg = modwlcin[random(1, getn(modwlcin))] 
      modmsg, x = gsub(modmsg, "%b[]", user.sName) 
      SendToAll(sBot, modmsg) 
   elseif (user.bOperator and Operator == 1) then 
      local opmsg = opwlcin[random(1, getn(opwlcin))] 
      opmsg, x = gsub(opmsg, "%b[]", user.sName) 
      SendToAll(sBot, opmsg) 
   end 
end 

OpConnected = NewUserConnected 

function UserDisconnected(user, data) 
   if (user.iProfile == 3 and Reg == 1) then 
      local regmsg = regwlcout[random(1, getn(regwlcout))] 
      regmsg, x = gsub(regmsg, "%b[]", user.sName) 
      SendToAll(sBot, regmsg) 
   elseif (user.iProfile == 2 and Vip == 1) then 
      local vipmsg = vipwlcout[random(1, getn(vipwlcout))] 
      vipmsg, x = gsub(vipmsg, "%b[]", user.sName) 
      SendToAll(sBot, vipmsg) 
   elseif (user.iProfile == 0 and Operator == 1) then 
      local mastermsg = masterwlcout[random(1, getn(masterwlcout))] 
      mastermsg, x = gsub(mastermsg, "%b[]", user.sName) 
      SendToAll(sBot, mastermsg) 
   elseif (user.iProfile == 4 and Moderator == 1) then 
      local modmsg = modwlcout[random(1, getn(modwlcout))] 
      modmsg, x = gsub(modmsg, "%b[]", user.sName) 
      SendToAll(sBot, modmsg) 
   elseif (user.iProfile == 5 and NetFounder == 1) then 
      local netfndmsg = netfndwlcout[random(1, getn(netfndwlcout))] 
      netfndmsg, x = gsub(netfndmsg, "%b[]", user.sName) 
      SendToAll(sBot, netfndmsg) 
   elseif (user.bOperator and Operator == 1) then 
      local opmsg = opwlcout[random(1, getn(opwlcout))] 
      opmsg, x = gsub(opmsg, "%b[]", user.sName) 
      SendToAll(sBot, opmsg) 
   end 
end 

OpDisconnected = UserDisconnected

another one :

-- A simple logon logger by piglja - 25/04/03 
-- Updated and modifyed a bit by piglja - 28/04/03 
-- A bug by piglja fixed by piglja;P - 28/04/03 
-- An update that Ops are logged too and disconnect are logged by piglja - 28/04/03 

file_logon = "logon.txt" 

function NewUserConnected(user) 
description,speed,email,share=MyInfoString(user.sMyInfoString) 
local share2 = share / (1024*1024*1024) 
ip = user.sIP 
appendto(file_logon) 
write("-->> "..user.sName..","..date("%d").."."..date("%m").."."..date("%y").." - "..date("%H")..":"..date("%M").." - with:"..speed.." IP "..ip..", e-mail "..email.." with "..share2.."Gb \r\n") 
writeto() 
end 

function OpConnected(user) 
description,speed,email,share=MyInfoString(user.sMyInfoString) 
local share2 = share / (1024*1024*1024) 
ip = user.sIP 
appendto(file_logon) 
write("-->> "..user.sName..","..date("%d").."."..date("%m").."."..date("%y").." - "..date("%H")..":"..date("%M").." - with:"..speed.." IP "..ip..", e-mail "..email.." with "..share2.."Gb \r\n") 
writeto() 
end 

function UserDisconnected(user) 
description,speed,email,share=MyInfoString(user.sMyInfoString) 
local share2 = share / (1024*1024*1024) 
ip = user.sIP 
appendto(file_logon) 
write("<<-- "..user.sName..","..date("%d").."."..date("%m").."."..date("%y").." - "..date("%H")..":"..date("%M").." - with:"..speed.." IP "..ip..", e-mail "..email.." with "..share2.."Gb \r\n") 
writeto() 
end 

function OpDisconnected(user) 
description,speed,email,share=MyInfoString(user.sMyInfoString) 
local share2 = share / (1024*1024*1024) 
ip = user.sIP 
appendto(file_logon) 
write("<<-- "..user.sName..","..date("%d").."."..date("%m").."."..date("%y").." - "..date("%H")..":"..date("%M").." - with:"..speed.." IP "..ip..", e-mail "..email.." with "..share2.."Gb \r\n") 
writeto() 
end 

function MyInfoString(data) 
s,e,description,speed,email,share = strfind(data, "$MyINFO $ALL ([^$]+)$ $([^$]*)$([^$]*)$([^$]+)") 
if speed~=nil then 
speed = strsub(speed,1,strlen(speed)-1) 
end 
return description,speed,email,share 
end

please help me to convert this
i tried to convert myself but i made shit.... :)

best regards Loading

[jiten]

Have you searched the forum before requesting for them? Guess not...
Anyway, for the first script, search for "Record Bot"; the second one for "Logonmsg" and for the last one for "Connecting Logger" or "Stat-Logger".

Best regards

[htb222]

lol. I sugest to search the forum before you ask something. All the script have been translated in lua 5