[Pedido] Comando Para Adicionar, Remover E Verificar Premmium Time

[felipejf 1]

Tipo do script: talkaction

Protocolo (versão do Tibia): 8.60

Servidor utilizado: TFS (trunk.r3884)

Nível de experiência: Medio

Adicionais/Informações: Preciso de um script que faça as seguintes funções.

 

 

 

 

Adicionar: usando o comando /addpacc + nome + dias ele adicionará a premmium time igual ao tibia RL.

Exemplo:

 

/addpacc TESTE, 30

Verificar dias de pacc: /checkpacc + nome, ele irá verificar a quantidade de dias que o player possui, e exibir.

/checkpacc TESTE

 

Remover dias de pacc: /removepacc + nome + dias, funcionara o oposto do adicionar, removendo a quantidade de dias do player.

/removepacc TESTE, 15

Gostaria que todos esses comando fossem somente para god's (access = 6)

[jhon992 371]

Vai em data/talkactions/scritps e duplica 3 arquivos, um renomeia para "addpremium", outro para "premiumcheck" e o ultimo "removepremium" todos sem as aspas.

 

Agora no arquivo "addpremium" cole isso:

function onSay(cid, words, param, channel)
if(param == '') then
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command param required.")
	return true
end

local t = string.explode(param, ",")

local player = getPlayerByNameWildcard(tostring(t[1]))
if(not isPlayer(player)) then
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player nao existe.")
	return true
end

local pos = getCreaturePosition(player)
local effect = 30
local days = tonumber(t[2])

doPlayerAddPremiumDays(player, days)
   doPlayerSendTextMessage(player, MESSAGE_STATUS_CONSOLE_BLUE, "Voce recebeu "..days.." dia(s) premium.")
doSendMagicEffect(pos, effect)	
return true
end

 

No arquivo "premiumcheck" cole isso:

function onSay(cid, words, param, channel)
if(param == '') then
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command param required.")
	return true
end

local player = getPlayerByNameWildcard(tostring(param))
if(not isPlayer(player)) then
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player nao existe.")
	return true
end

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, param.." possui "..getPlayerPremiumDays(player).." dias de premium restantes.")
return true
end

 

E no arquivo "removepremium" cole isso:

function onSay(cid, words, param, channel)
if(param == '') then
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command param required.")
	return true
end

local t = string.explode(param, ",")

local player = getPlayerByNameWildcard(tostring(t[1]))
if(not isPlayer(player)) then
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player nao existe.")
	return true
end

local pos = getCreaturePosition(player)
local effect = 30
local days = tonumber(t[2])

doPlayerRemovePremiumDays(player, days)
   doPlayerSendTextMessage(player, MESSAGE_STATUS_CONSOLE_BLUE, "Foi removido "..days.." dia(s) premium.")
doSendMagicEffect(pos, effect)	
return true
end

 

E por último vai em data/talkactions/talkactions.xml e cole as tags:

<talkaction words="/addpacc" access="6" event="script" value="addpremium.lua"/>
<talkaction words="/premiumcheck" access="6" event="script" value="premiumcheck.lua"/>
<talkaction words="/removepremium" access="6" event="script" value="removepremium.lua"/>

 

Acho que é isso aew, nem testei, qualquer erro me avisa!

Editado Fevereiro 26, 2012 por Jhon992

[felipejf 1]

Show de bola, funcionado perfeitamente.

So uma pergunta tem como quando add a vip para o player mandar uma msg para ele dizendo que a premmy foi ativada?

Seu te dei seu rep.

[jhon992 371]

Ja arrumei la emcima, só substituir o seu "addpremium" eo "removepremium".

[felipejf 1]

Obrigado.

Se souber como resolver esta outra duvida

Serve Save - XTibia - A sua comunidade de Tibia e OTserv

 

O cara tento ajudar mas não deu certo.

Editado Fevereiro 26, 2012 por Felipejf