seria só de adicionar os dias de Vip pelo God certo?
eu postei ambas alternativas no topico.
http://www.xtibia.com/forum/topic/131398-perfect-vip-system-10/
vc pode escolhe os 2 modos com o comando !buyvip ou nao...
mais tudo bem vou lhe passar aqui...
vá em data/talkactions/scripts crie um arquivo.lua e renomeie para systemvip.lua
dentro coloque:
-- Script SYtem vip 1.0 --
function onSay(cid, words, param)
if(words == "!vipdays") then
local timenow = os.time()
local quantity = math.floor((getPlayerStorageValue(cid, 13540) - timenow)/(24 * 60 * 60))
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem ".. (quantity < 0 and 0 or quantity) .." dias de VIP no seu character.")
elseif(words == "/addvip") then
if getPlayerAccess(cid) == 5 then
local t = string.explode(param, ",")
if not t[2] then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.")
end
local player = getPlayerByName(t[1])
local days = t[2]
if not isPlayer(player) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player "..player.." not found.")
end
local daysvalue = days*3600*24
local storageplayer = getPlayerStorageValue(player, 13540)
local timenow = os.time()
local time = storageplayer <= 0 and (timenow + daysvalue) or (storageplayer + daysvalue)
doPlayerSendTextMessage(player, MESSAGE_INFO_DESCR, "Foram adicionados "..days.." dias de VIP no seu character.")
setPlayerStorageValue(player, 13540, time)
local quantity = math.floor((getPlayerStorageValue(player,13540) - timenow)/(3600*24))
doPlayerSendTextMessage(player, MESSAGE_INFO_DESCR, "Você tem "..quantity.." dias de VIP restantes.")
end
elseif(words == "/delvip") then
if getPlayerAccess(cid) == 5 then
local dec = MESSAGE_INFO_DESCR
if(param == "") then return TRUE,doPlayerSendTextMessage(cid,18,"Command param required.")end
local C,t = {},string.explode(param, ",")
C.pos = getPlayerPosition(cid)
C.uid = getCreatureByName(t[1])
C.time = ((tonumber(t[2]) == nil) and 1 or tonumber(t[2]))*3600*24 --Tempo da vip por dia.
C.days = (tonumber(t[2]) == nil) and 1 or tonumber(t[2]) --Dias de vip.
if(getPlayerStorageValue(C.uid,13540) < C.time)then
doPlayerSendTextMessage(cid,dec,'O jogador '..t[1]..' não possui '..C.days..' dias de vip.')
else
doPlayerSendTextMessage(cid,dec,'Você removeu '..C.days..' dias de vip do player '..t[1]..'.')
setPlayerStorageValue(C.uid,13540,getPlayerStorageValue(C.uid,13540)-C.time)
end
doSendMagicEffect(C.pos, math.random(28,30))
end
end
return TRUE
end
em talkactions.xml adicione a tag:
<talkaction words="!vipdays;/addvip;/delvip" script="systemvip.lua"/>
irá ser 3 comandos:
para player
!vipdays
para God
/addvip nick,dias
/delvip nick,dias




info
Grupo: Campones
Registrado: 16/09/08
Posts: 0
Reputação: 0
Char no Tibia: dragon
Tipo do script:sytemvip
Protocolo (versão do Tibia):8.54
Servidor utilizado:The Forgotten Server
Nível de experiência:médio
Adicionais/Informações:tipow vaii ser vip pra compra no site uqeria um script q acabasse em 30 dias e o modo de adicionar a vip com o GOD explo /addvip nick,30 Ajuda-me aii plix vlw...