Script Ping:

Crie um arquivo em data/talkactions/scripts/ chamado de verping.lua após isso adicione o seguinte código dentro dele:

	function onSay(cid, words, param, channel)

local mystical = ping.CheckPing(cid)
	doPlayerSendTextMessage(cid,22,"Ping aproximado --> ["..mystical.."].")
	return true
end

em data/talkactions/talkactions.xml adicione a seguinte tag:

<talkaction words="!ping" event="script" value="verping.lua"/>

em data/lib/ crie um arquivo chamado lib-ping.lua e coloque adicione este código:

ping = {
	_VERSION = "1.0";
	pinger = function()
		if not getPlayerLastPong then
			print('Error!')
			return false
		else 
			return true
		end
	end,
	CONST_WATING_RESPONSE = -3,
	CONST_DISCONECTED = -2,
}
 
		function ping.CheckPing(cid)
	local c = getPlayerLastPong(cid)
	local l = getPlayerLastPing(cid)
	local ping = math.floor((c-l))
		return ping
end
 
function ping.loop(cid,storage,f,...)
	if not isPlayer(cid) then
		return false
	end
	local p_ing = ping.CheckPing(cid)
	if p_ing ~= CONST_WATING_RESPONSE then
		if not tonumber(p_ing) then
			doPlayerSetStorageValue(cid,storage,ping.CONST_DISCONECTED)
			return
		else 
			doPlayerSetStorageValue(cid,storage,p_ing)
                        f(cid,storage,p_ing,...)
			return
		end
	end
	addEvent(ping.loop,100,cid,storage,f,...)
end
 
function ping.getPing(cid,storage,f,...)
	if ping.test() then
		doPlayerSetStorageValue(cid,storage,ping.CONST_WATING_RESPONSE)
		doPlayerSendPing(cid)
		ping.loop(cid,storage,f,...)
	end
end

 

Print demostrativo

Espero ter ajudado

Créditos:

Mock -- Criar as funções

Eu -- Por está postando

 

Editado Abril 9, 2016 10 anos por MySticaL
Edited (veja o histórico de edições)

 Parabéns, seu tópico de conteúdo foi aprovado!
 Muito obrigado pela sua contribuição, nós do Tibia King agradecemos.
 Seu conteúdo com certeza ajudará à muitos outros, você recebeu +1 REP.

 

 

Acho melhor você colocar melhores especificações, pois não acho que essa função exista na TFS 1.+, não sei na 0.4...

31 minutos atrás, Comedinha disse:

 Parabéns, seu tópico de conteúdo foi aprovado!
 Muito obrigado pela sua contribuição, nós do Tibia King agradecemos.
 Seu conteúdo com certeza ajudará à muitos outros, você recebeu +1 REP.

 

 

Acho melhor você colocar melhores especificações, pois não acho que essa função exista na TFS 1.+, não sei na 0.4...

Vo dar uma atualizada aqui.

Obrigado por compartilhar, bela função.

 

abraços

 

22 minutes ago, MySticaL said:

Vo dar uma atualizada aqui.

 

13 horas atrás, MySticaL disse:

Não vou deixar os créditos para o autor, por que não sei quem criou

Quem criou as funções foi o Mock.

Obrigado por compartilhar esse belo conteúdo conosco.

Editado Abril 9, 2016 10 anos por Wakon (veja o histórico de edições)