PtokaX forum

Hi its possible convert this scrpit for ptokax 0.3.6.0 i ? 



--=[ Nome do Bot ]=--
sBot = "[!???] ??vdRip?"

--=[ Nome do OpChat ]=--
OpChatName = "[!???] ?Op Cha??"

--=[ Exep??es / Deixar entrar um internacional atrav?z do nick ]=--
excepcoes = {
["[PT]Sniffer"] = 4,
}

--=[ Ranges permitidas no Hub ]=--

arrIP = {
   ["127.0.0.1"] = "127.0.0.1", -- ? Test
}



function Main()
   frmHub:RegBot(sBot)
end

--=[ Mensagem ao user n?o constante na Range ]=-

function NewUserConnected(user)
   if (excepcoes[user.sName] == nil) and (isGoodIP(user.sIP) == nil) then
user:SendData(sBot, "??  Este Servidor/Hub apenas permite Ips que constem na nossa Base. Voce ir? ser redirecionado para um Servidor/Hub secund?rio para verifica??o de informa??o do seu provedor de Internet. Gratos pela Prefer?ncia.")
SendPmToOps(sBot, "?? Utilizador ["..user.sName.."] reenviado para SuperDvdRip.sytes.net devido a sua IpRange n?o constar na Base de Dados. ")
      user:SendData("$ForceMove SuperDvdRip.sytes.net")
user:Disconnect()
   end
end

OpConnected = NewUserConnected

function isGoodIP(sIP)
   sIP = ipToNumber(sIP)
   local iFirst,iLast
   for iFirst, iLast in pairs(arrIP) do
      if (sIP >= ipToNumber(iFirst) and sIP <= ipToNumber(iLast)) then
         return 1
      end
   end
   return nil
end

function ipToNumber(sIP)
   iAux = ""
   string.gsub(sIP,"(%d+)", function(w)
      w = tonumber(w)
      if (w < 10) then
         iAux = iAux.."00"..w
      elseif (w < 100) then
         iAux = iAux.."0"..w
      else
         iAux = iAux..w
      end
   end)
   return tonumber(iAux)
end


Nice script. But i want my script. Its because have redirect and exceptions.

Sory my bad inglish
Tankx

Script dont work :(

I just teste 3rd script you posted and don?t work. but dont send errors.
Today i test scipt 2 and Its working :)

Is not possible change my script for new ptokax?