convert
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

convert

Started by ?[-?Genius?-]?, 27 February, 2008, 13:53:29

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

?[-?Genius?-]?

Hi

Its possible convert this scripts for me plz?

Slot bot

--=[ Nome do Bot ]=-

botName = "[!???] ??vdRip?"
sOpChatName = "[!???] ?Op Cha??"


 	--=[ Comando ]=-
Command = "!slots"

	--=[ Codigo ]=--

function getid(Table, name)
	return table.foreachi(Table, function(id, item) if item.sName == name then return id end end) 
end 

function putitem(Table, item)
	if not item then
		return
	end 
	local id = getid(Table, item.sName) 
	if id then
		Table[id] = item 
	else
		table.insert(Table, item)
		id = Table.n 
	end
	return id 
end 

function OnTimer()
	local i = 1 while tabSlots[i] do 
		local Table = tabSlots[i] 
		if os.clock() >= Table.iClock + tmrSlots then 
			if Table.tItems.n == 0 then
				SendPmToNick(Table.sName, botName, " ? N?o a mais users com slots livres no ??vdRip? ? |")
			end 
			SendPmToNick(Table.sName, botName, " ? Feito ?|")
			table.remove(tabSlots, i) 
			if tabSlots.n == 0 then
			end 
		else i = i + 1
		end 
	end 
end 

function doSlots(user, nr, nick)
	user:SendPM(botName, " ? A procurar... ? |")
	SendPmToOps(sOpChatName, "	- = [  A enviar informa??o do comando !slots ao Utilizador  "..user.sName.."  ] =- ")
	SendToAll("$Search Hub:"..Command.." T?F?0?1?.|") 
	putitem(tabSlots, { sName = user.sName, iClock = os.clock(), iNR = nr, tItems = {n=0} }) 
end
 

tmrSlots = 5 

tabSlots = {n=0} 

function ChatArrival(user, data)
	if string.find(data, "%b<>%s+("..Command..").*|") then 
		s, e, nr = string.find(data, "%b<>%s+"..Command.."%s+([0-9]+)") 
		if s then
			nr = tonumber(nr)
		else
			nr = 1
		end 
		doSlots(user, nr)
		return 1 
	end 
end 


function SRArrival(user, data)
	local s, e, free, all = string.find(data, " (%d+)/(%d+)"..string.char(5)) 
	table.foreachi(tabSlots, function(id, item)
	if not getid(item.tItems, user.sName) then 
		putitem(item.tItems, { sName = user.sName, sValue = free.."/"..all }) 
		if (tonumber(free) >= item.iNR) then 
			SendPmToNick(item.sName, botName, " ? User ?	 ? "..user.sName.." ?	 	 ? "..free.."/"..all.." ?|") 
		end 
	end	end)
end 

function Main()
	frmHub:RegBot(botName)
	SetTimer(tmrSlots*1000) 
	StartTimer() 
end


slots hubs share

--=[ Nome do Bot ]=-

sBot= "--=( DvdRip )=--"

kb = 1024
mb = 1024 ^ 2
gb = 1024 ^ 3

	--=[ Configura??o ]=-

MinShare = 5120*mb -- in MBs
MinSlots = 3
MaxSlots = 5
--[ MaxHubs = 10 ]--

	--=[ User inumes ao Bot ]=-

tImmune = {  ["[SP]putnick"] = 1, ["[CV]dream[er]"] = 1, ["[NT]mmmm@work"] = 1, ["[VIP]HELDER-TUGA"] = 1, ["[NT]saburu"] = 1, ["[VDF]NKS"] = 1, ["[NT]SpyFakes"] = 1, ["[SP]reg"] = 1, ["[SP]C???????-x"] = 1, ["[SP]Guitas"] = 1, ["[NT]monika"] = 1, ["[NT]maryjoint"] = 1, ["[SP]Cypress"] = 1, ["[NV]Bills"] = 1,  ["[SP]Red"] = 1, ["[SP]estrela_cadente"] = 1, [""] = 1, ["[NT]Chucky"] = 1, ["[NT]Nitinha"] = 1, ["[NT]soniamartins"] = 1, ["[SP]user"] = 1, ["[SP]??ee?"] = 1, ["[SP]KillerIsDead"] = 1, ["![Hsrv]-diablo?"] = 1, ["[SP]Cyber_Cube?"] = 1, ["[SP]-?DiOsPiRo?-"] = 1, ["[SP]????????r??"] = 1, ["[SP]Nizi_Moon"] = 1, ["[NT]Algaman"] = 1, ["[SP]Nezinha"] = 1, ["[NT]zero-cool"] = 1, ["[SP]__MARS__"] = 1,} --##  -Operators Immune List (["nick"] = 1) ##-- 

	--=[ C?digo ]=-

DoShareUnits = function(intSize) 
	if intSize ~= 0 then
		local tUnits = { "Bytes", "KB", "MB", "GB", "TB" }
		intSize = tonumber(intSize);
		local sUnits;
		for index = 1, table.getn(tUnits) do
			if(intSize < 1024) then sUnits = tUnits[index]; break; else intSize = intSize / 1024; end
		end
		return string.format("%0.1f %s",intSize, sUnits);
	else
		return "nothing"
	end
end

ConnectToMeArrival = function(curUser,data)
	if not curUser.bOperator then
		if not tImmune[curUser.sName] then
			if curUser.iShareSize < MinShare then
				return curUser:SendPM(sBot, "DvdRip:Hub.	--=( Boas, tens pouca partilha. O minimo ? de [ "..DoShareUnits(MinShare).." ]. Abra o seu espirito de partilha, e d? mais algum contributo. At? l? ficar? impossibilitado de efectuar downloads. )=--  --=( DvdRip.sytes.net )=--"),1
			elseif curUser.iSlots < MinSlots then
				return curUser:SendPM(sBot, "DvdRip:Hub.	--=( Boas, tens poucas slots abertas. O minimo ? de "..MinSlots.." slots. Abra 3 a 5 slots para puder efectuar downloads no Hub. )=--  --=( DvdRip.sytes.net )=--"),1
			elseif curUser.iSlots > MaxSlots then
				return curUser:SendPM(sBot, "DvdRip:Hub.	--=( Boas, tens muitas slots abertas. O m?ximo ? de "..MaxSlots.." slots. Abra 3 a 5 slots para puder efectuar downloads no Hub. )=--  --=( DvdRip.sytes.net )=--"),1
			--[ elseif (curUser.iNormalHubs + curUser.iRegHubs) > MaxHubs then ]--
				--[ return curUser:SendPM(sBot, "DvdRip:Hub.	--=( Boas, t?s ligado a demasiados Hubs. O limite maximo ? de "..MaxHubs..". Pf Desligue-se de alguns. At? l? fica impossibilitado de efectuar downloads. )=--  --=( DvdRip.sytes.net )=--"),1 ]--
			end
		end
	end
end 

RevConnectToMeArrival = ConnectToMeArrival


block CV downloads

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

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


	--=[ Configura??o ]=-

	--=[ Insere aqui os prefixos ]=-
 
sPrefix = { "[CV]" ,}

	--=[ Insere aqui as rangs dos users CV ]=-

arrIP = { 
   ["10.6.0.0"] = "10.6.0.30",
   ["84.90.0.0"] = "84.91.255.255",      --  Cabovisao,SA
   ["213.228.128.0"] = "213.228.191.255",   --  Cabovisao,SA
   ["217.129.0.0"] = "217.129.255.255",      --  Cabovisao,SA
}

	--=[ C?digo ]=-

function Main()
	frmHub:RegBot(sBot) 
end 

function NewUserConnected(user) 
	if (CheckUserPrefix(user) == nil) and not (isGoodIP(user.sIP) == nil) then 
		user:SendPM(sBot, "\r\n \r\n                                ???? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ???? \r\n                                                                      ?? ?? ? ?? v ?? d ?? R ?? i ?? P ?? ?? \r\n                                ???? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ???? \r\n \r\n                                  Boas caro utilizador. \r\n                                  Vimos por este meio informar que foram postam novas regras em vigor no Hub. \r\n                                  Ter? que acrescentar o prefixo [CV] no seu nickname para puder efectuar  \r\n                                  downloads no Hub. \r\n \r\n                                  Ex: [CV]user \r\n \r\n                                  Estar? a perguntar a si mesmo porque temos tal regras no hub. Mas eu explico. \r\n                                  Todos sabemos que temos uns fornecedores de Internet [ ISP?s ] muito fatelas, \r\n                                  pagamos servi?os que n?o uzamos entre outras injusti?as. \r\n                                  No caso do Fornecedor SAPO Adsl ? bastante grave porque todos os downloads  \r\n                                  que eles fazem dos utilizadores CaboVis?o ou Telepac contam como internacional. \r\n                                  Dai existir tal regra. Se todos os Utilizadores usarem uma TAG a mencionar o \r\n                                  Fornecedor de Internet [ ISP ] que utiliza, os users podem gerir os seus  \r\n                                  downloads e tb ter certezas da fonte dos mesmos. \r\n                                  Esta regra ? para ser aplicada.  \r\n                                  Aviza-mos que quem n?o a cumprir ser? Banido do Hub. \r\n                                  Colabore. N?o custa nada!! \r\n \r\n                                  Bons  downloads \r\n \r\n                                ???? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ???? \r\n                                                                      ?? ?? ? ?? v ?? d ?? R ?? i ?? P ?? ?? \r\n                                ???? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ???? \r\n")
		SendPmToOps(sOpChatName, "	- = [  O utilizador  [ "..user.sName.." ]  com o Ip  [ "..user.sIP.." ]  foi requesitado a usar a TAG [CV]  ] = -")
	end 
end 

OpConnected = NewUserConnected 

function ConnectToMeArrival(user,data)
	if (CheckUserPrefix(user) == nil) and (isGoodIP(user.sIP) ~= nil) then 
		user:SendData(sBot, "\r\n \r\n                                ???? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ???? \r\n                                                                      ?? ?? ? ?? v ?? d ?? R ?? i ?? P ?? ?? \r\n                                ???? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ???? \r\n \r\n                                  Boas caro utilizador. \r\n                                  Vimos por este meio informar que foram postam novas regras em vigor no Hub. \r\n                                  Ter? que acrescentar o prefixo [CV] no seu nickname para puder efectuar  \r\n                                  downloads no Hub. \r\n \r\n                                  Ex: [CV]user \r\n \r\n                                  Estar? a perguntar a si mesmo porque temos tal regras no hub. Mas eu explico. \r\n                                  Todos sabemos que temos uns fornecedores de Internet [ ISP?s ] muito fatelas, \r\n                                  pagamos servi?os que n?o uzamos entre outras injusti?as. \r\n                                  No caso do Fornecedor SAPO Adsl ? bastante grave porque todos os downloads  \r\n                                  que eles fazem dos utilizadores CaboVis?o ou Telepac contam como internacional. \r\n                                  Dai existir tal regra. Se todos os Utilizadores usarem uma TAG a mencionar o \r\n                                  Fornecedor de Internet [ ISP ] que utiliza, os users podem gerir os seus  \r\n                                  downloads e tb ter certezas da fonte dos mesmos. \r\n                                  Esta regra ? para ser aplicada.  \r\n                                  Aviza-mos que quem n?o a cumprir ser? Banido do Hub. \r\n                                  Colabore. N?o custa nada!! \r\n \r\n                                  Bons  downloads \r\n \r\n                                ???? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ???? \r\n                                                                      ?? ?? ? ?? v ?? d ?? R ?? i ?? P ?? ?? \r\n                                ???? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ??????? ?? ?? ?? ??? ???? \r\n")
		return 1
	end
end

RevConnectToMeArrival = ConnectToMeArrival

function CheckUserPrefix(user)
	for key,pre in pairs(sPrefix) do 
		if string.find(string.lower(user.sName), string.lower(pre),1,1) then 
			return 1 
		end 
	end 
end

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

SMF spam blocked by CleanTalk