PtokaX forum

hi ppl

i converted this script to lua5 :

--Feito por nErBoS
--Adicionado mais alguns perfis
--Converted to LUA 5 by [PT]Loading 03/07/05

sBot = "?Bop2Bop??"

--## 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[math.random(1, table.getn(regwlcin))]
      regmsg, x = string.gsub(regmsg, "%b[]", user.sName)
      SendToAll(sBot, regmsg)
   elseif (user.iProfile == 2 and Vip == 1) then
      local vipmsg = vipwlcin[math.random(1, table.getn(vipwlcin))]
      vipmsg, x = string.gsub(vipmsg, "%b[]", user.sName)
      SendToAll(sBot, vipmsg)
   elseif (user.iProfile == 0 and Operator == 1) then
      local mastermsg = masterwlcin[math.random(1, table.getn(masterwlcin))]
      mastermsg, x = string.gsub(mastermsg, "%b[]", user.sName)
      SendToAll(sBot, mastermsg)
   elseif (user.iProfile == 5 and NetFounder == 1) then
      local netfndmsg = netfndwlcin[math.random(1, table.getn(netfndwlcin))]
      netfndmsg, x = string.gsub(netfndmsg, "%b[]", user.sName)
      SendToAll(sBot, netfndmsg)
   elseif (user.iProfile == 4 and Moderator == 1) then
      local modmsg = modwlcin[math.random(1, table.getn(modwlcin))]
      modmsg, x = string.gsub(modmsg, "%b[]", user.sName)
      SendToAll(sBot, modmsg)
   elseif (user.bOperator and Operator == 1) then
      local opmsg = opwlcin[math.random(1, table.getn(opwlcin))]
      opmsg, x = string.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[math.random(1, table.getn(regwlcout))]
      regmsg, x = string.gsub(regmsg, "%b[]", user.sName)
      SendToAll(sBot, regmsg)
   elseif (user.iProfile == 2 and Vip == 1) then
      local vipmsg = vipwlcout[math.random(1, table.getn(vipwlcout))]
      vipmsg, x = string.gsub(vipmsg, "%b[]", user.sName)
      SendToAll(sBot, vipmsg)
   elseif (user.iProfile == 0 and Operator == 1) then
      local mastermsg = masterwlcout[math.random(1, table.getn(masterwlcout))]
      mastermsg, x = string.gsub(mastermsg, "%b[]", user.sName)
      SendToAll(sBot, mastermsg)
   elseif (user.iProfile == 4 and Moderator == 1) then
      local modmsg = modwlcout[math.random(1, table.getn(modwlcout))]
      modmsg, x = string.gsub(modmsg, "%b[]", user.sName)
      SendToAll(sBot, modmsg)
   elseif (user.iProfile == 5 and NetFounder == 1) then
      local netfndmsg = netfndwlcout[math.random(1, table.getn(netfndwlcout))]
      netfndmsg, x = string.gsub(netfndmsg, "%b[]", user.sName)
      SendToAll(sBot, netfndmsg)
   elseif (user.bOperator and Operator == 1) then
      local opmsg = opwlcout[math.random(1, table.getn(opwlcout))]
      opmsg, x = string.gsub(opmsg, "%b[]", user.sName)
      SendToAll(sBot, opmsg)
   end
end

OpDisconnected = UserDisconnected

have fun

tnks man for your support

but i am a newbie in this programing

if you now sommething to help me to make this better
tel me

bet regards

Loading