PtokaX forum

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

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

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