Perfect Vip System 3.0

Por Vodkart

maio 25, 2010 em Mods, funções e outros

Vodkart

Sumus Validus

Herói

INFOS

Grupo: Herói

Registrado: 21/05/10

Posts: 3406

Gênero: Masculino

Postado em maio 25, 2010

Perfect Vip system 3.0

Última atualização: 14/08/12

Versão Testada:TFS 0.3.6 - 8.54 - 8.6 - 9.6

Créditos pelas modificações: Kydrai,Vodkart e Marcryzius

Oque Contém no Sistema vip 3.0?

-- Sistema de vip feita por Charcter e não pela account

-- Compra Vip pela talkaction (Comando !buyvip )

-- Tile para somente Players Vip passarem

-- verifica quantos dias de Vip o character ainda possui.

-- Administradores(GOD) podem adicionar e remover dias de Vip para characters.

-- Administradores(GOD) podem checkar dias de Vip dos Players.

-- Agora é feita pela DB

Comandos:

!buyvip -- compra "X" números de dias por "Y" preço.

!vipdays -- retorna quanto dias de vip o character Possui

/checkvip Nick -- retorna os dias de vip restante do jogador

/addvip Nick,days -- adiciona uma quantia pré definida para o jogador

/delvip Nick,days -- remove certos dias de vip do character de um jogador

Query

Primeiro passado execute essa query na sua DB:

ALTER TABLE `players` ADD `vipacess` INT(15) NOT NULL DEFAULT 0;

Agora vá em Data/lib/050-function e adicione essas funções:

function getCharacterAcess(cid)
local query = db.getResult("SELECT `vipacess` FROM `players` WHERE `id` = "..getPlayerGUID(cid))
if query:getID() ~= -1 then return query:getDataInt("vipacess") end
end
function getCharacterDays(cid)
local acess = math.ceil((getCharacterAcess(cid) - os.time())/(86400))
return acess <= 0 and 0 or acess
end
function HaveCharaterAcess(cid)
return getCharacterDays(cid) > 0 and true or false
end
function setAcessTime(cid, time)
return db.executeQuery("UPDATE `players` SET `vipacess` = "..time.." WHERE `id` = "..getPlayerGUID(cid))
end
function addCharacterAcess(cid, days)
local add = (days <= 0 and 1 or days)*86400
local time = getCharacterDays(cid) == 0 and (os.time() + add) or (getCharacterAcess(cid) + add)
return setAcessTime(cid, time)
end
function doRemoveCharacterAcess(cid, days)
local remove = days*86400
local time = getCharacterAcess(cid) - remove
return setAcessTime(cid, (time <= 0 and 1 or time))
end
function getVipAcessDate(cid)
if HaveCharaterAcess(cid) then return os.date("%d/%m/%y %X", getCharacterAcess(cid)) end
return false
end

Talkactions

agora em talkactions/scripts

vipsystemplayer.lua

function onSay(cid, words, param)  
if(words == "!buyvip") then
local days = 10
local price = 50000  
if not doPlayerRemoveMoney(cid, price) then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você precisa de "..price.." gp's para colocar vip.") return true
end
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Foram adicionados "..days.." dias de VIP no seu character.")  
addCharacterAcess(cid, days)
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem "..getCharacterDays(cid).." dias de VIP, ela acaba em "..getVipAcessDate(cid))     
elseif(words == "!vipdays") then
return doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem "..getCharacterDays(cid).." dias de VIP. "..(getCharacterDays(cid) > 0 and "ela acaba em "..getVipAcessDate(cid).."." or ""))  
end
return true
end

vipsystemgod.lua

function onSay(cid, words, param)  
if(words == "/checkvip") then  
if(param == '') then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command requires param.") return true
end
local player = getPlayerByName(param)  
if not isPlayer(player) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player "..player.." not found.") return true
end
return doPlayerPopupFYI(cid, "O jogador tem "..getCharacterDays(player).." dias de VIP no character.")  
elseif(words == "/addvip") then  
local t = string.explode(param, ",")  
if not tonumber(t[2]) then  
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.") return true
end  
	local player = getPlayerByNameWildcard(t[1])
	if(not player)then
			return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player not found.")
	end
addCharacterAcess(player, tonumber(t[2]))
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você adicionou "..tonumber(t[2]).." dias de VIP no player "..getCreatureName(player))	
doPlayerSendTextMessage(player, MESSAGE_INFO_DESCR, "Foram adicionados "..tonumber(t[2]).." dias de VIP no seu character.")	
elseif(words == "/delvip") then
local t = string.explode(param, ",")  
if not tonumber(t[2]) then  
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.") return true
end  
	local player = getPlayerByNameWildcard(t[1])
	if(not player)then
			return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player not found.")
	end
doRemoveCharacterAcess(player, tonumber(t[2]))
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você removeu "..tonumber(t[2]).." dias de VIP do jogador "..getCreatureName(player)..".")  
end
return true
end

em talkactions.xml adicione as tags:

<talkaction words="!buyvip;!vipdays" event="script" value="vipsystemplayer.lua"/>
<talkaction words="/addvip;/delvip;/checkvip" access="4" event="script" value="vipsystemgod.lua"/>

Item Vip

item que adiciona vip no character

actions/script

addvipdays.lua

function onUse(cid, item, fromPosition, itemEx, toPosition)
local days = 15
addCharacterAcess(cid, (days <= 0 and 1 or days))
doRemoveItem(item.uid,1)
return doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem "..getCharacterDays(cid).." dias de VIP, ela acaba em "..getVipAcessDate(cid))
end

Actions.xml

<action itemid="ID DO SEU ITEM" script="addvipdays.lua"/>

Vip Door

actions/script

perfectvipdoor.lua

function onUse(cid, item, frompos, item2, topos)
if not HaveCharaterAcess(cid) then
return doPlayerSendTextMessage(cid,22,"Você precisa ser vip para passar aqui.")
end
doTransformItem(item.uid, item.itemid + 1)
doTeleportThing(cid, topos, true)
return true
end

actions.xml

<action actionid="7779" script="perfectvipdoor.lua"/>

Tile VIP

em movements/scripts crie um arquivo.lua e renomeie para

vipe.lua

function onStepIn(cid, item, position, fromPosition)
if item.actionid == 13700 and not HaveCharaterAcess(cid) then
doTeleportThing(cid, fromPosition, true)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"você não é vip.")
doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE)
return true
end
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"bem vindo.")
return true
end

Em movements.xml adicione a tag:

<movevent type="StepIn" actionid="13700" event="script" value="vipe.lua"/>

no seu piso coloque ACTIONID 13700

Fim Vip

em creaturescript/script

endvip.lua

function onLogin(cid)
if getCharacterDays(cid) > 0 then
setPlayerStorageValue(cid, 9898, 1)
elseif getPlayerStorageValue(cid, 9898) == 1 and getCharacterDays(cid) <= 0 then
doPlayerSetTown(cid, 1)
doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
doPlayerPopupFYI(cid, "Sua vip Account acabou.")
setPlayerStorageValue(cid, 9898, -1)
end
return true
end

em creaturescript.xml adicione a tag:

<event type="login" name="CheckVip" script="endvip.lua"/>

NatsuMcDonald

Cavaleiro

INFOS

Grupo: Cavaleiro

Registrado: 27/02/10

Posts: 159

Char no Tibia: Natsu McDonald

Postado em maio 25, 2010

Otimo script, topico bem organizado, otimo trabalho em equipe.

Voces estão de parabens =]

<!-- S4 League Rul3z --!>

matheus1000

Artesão

INFOS

Grupo: Artesão

Registrado: 14/05/10

Posts: 114

Postado em maio 26, 2010

Muito bom,

vou botar no meu Ot.

Valeu.

att,

MasterMathw

Voltando aos poucos.

GODHalf

Campones

INFOS

Grupo: Campones

Registrado: 12/05/10

Posts: 7

Char no Tibia: GOD half

Postado em maio 26, 2010

Opa, vê se você consegue me ajudar. Eu estou usando um sistema que adiciona vip pelo site. E como você comentou desse os.time() eu gostaria de saber se time() é a mesma coisa que os.time(). Porque eu configuro com os.time() e ele não retorna nenhum valor, já quando coloco apenas time() ele retonar um valor numérico grande.

Obrigado.

-----------------

EDIT:

Já resolvi o meu problema =)

Obrigado navamente!

Server Tibia Global Full Dedicado 24horas - Protocolo 8.60

http://www.mysticalserver.com

E-mail/MSN: mysticalserver@gmail.com

Orkut: http://www.orkut.com.br/Main#Profile?uid=18323793635275351493

Twitter: http://twitter.com/mysticalserver

Mais de 80 quests incluindo POI, Epic Mystical Quest, Labyrinth Quest (prêmio 5 dias de vip), Blue Legs Quest, Firewalker Quest, Inquisition, Annihilator, Arena Svargrond, Arena Zao Island, Mines, DH, Demon Oak.. todas 100%!

salatielk

Campones

INFOS

Grupo: Campones

Registrado: 23/05/10

Posts: 25

Char no Tibia: Lord Kallisto

Postado em maio 27, 2010

Aii MaN me dá um help aii :worriedsmiley:

OLha onde adiciono essa parte ?

em talkactions.xml adicione a tag:

<talkaction words="!vipdays;/addvip;/delvip" script="systemvip.lua"/>

Talkaction

<?xml version="1.0" encoding="UTF-8"?>

<!--<talkaction words="Gm" hide="yes" event="script" value="gm2.lua"/>

<!-- <talkaction words="God" hide="yes" event="script" value="god2.lua"/>

</talkactions>

:up:

matheus1000

Artesão

INFOS

Grupo: Artesão

Registrado: 14/05/10

Posts: 114

Postado em maio 27, 2010

KaLListo0,

bote em talkactions.

att,

MasterMathw

Voltando aos poucos.

salatielk

Campones

INFOS

Grupo: Campones

Registrado: 23/05/10

Posts: 25

Char no Tibia: Lord Kallisto

Postado em maio 27, 2010

KaLListo0,

bote em talkactions.

Cara eu sei que é pra por em talkactions mais eu coloquei a minha Talkactions.xml ali em spoilier ja pra me falarem em que lugar da talkactions eu tenho que por

caso você não tenha percebido

<?xml version="1.0" encoding="UTF-8"?>

<!--<talkaction words="Gm" hide="yes" event="script" value="gm2.lua"/>

<!-- <talkaction words="God" hide="yes" event="script" value="god2.lua"/>

</talkactions>

Vodkart

Sumus Validus

Herói

INFOS

Grupo: Herói

Registrado: 21/05/10

Posts: 3406

Gênero: Masculino

Postado em maio 27, 2010

conteudo velho retirado.

matheus1000

Artesão

INFOS

Grupo: Artesão

Registrado: 14/05/10

Posts: 114

Postado em maio 27, 2010

Não precisa ser em Players, mas fica mais organizado.

Se você botar em outro lugar ( exemplo; God ) não vai fazer a mínima diferença.

att,

MasterMathw

Voltando aos poucos.

Vodkart

Sumus Validus

Herói

INFOS

Grupo: Herói

Registrado: 21/05/10

Posts: 3406

Gênero: Masculino

Postado em maio 27, 2010

eu sei que não precisa

porque o script em si tem a funçao

if getPlayerAccess(cid) == 5 then

que distingue um acesso do outro

brunozd

Campones

INFOS

Grupo: Campones

Registrado: 06/03/08

Posts: 12

Char no Tibia: [ADM] Spartakus

Postado em junho 06, 2010

O amigo é o seguint vou explikar o q ta acontecendo:

meu ot o portal onde leva pra area vip é cercado de chao com uid: 29000, intaum o q eu fis foi no seu script substituir onde tem 13540 por 29000 . até certa parte deu tudo certu fala qntos dias tem qnto eu kero add qnto eu kero rmv, mais qndo eu removo os dias de alguem depois q removo tudo o player ainda entra na area vip... intaum eu keria q vc me ajudasse a arrumar isso;/ ajuda ae galera, pq eu achu q qndo acabar automaticament tbm isso vai acontecer tbm dai tipo é como se o player fosse vip eterno ;/! ajudem plz

zani123

http://HeroesOT.com

Barão

INFOS

Grupo: Barão

Registrado: 07/03/08

Posts: 231

Gênero: Masculino

Postado em junho 06, 2010

Gostei do tópico, bem detalhado.

Ainda não testei o script, mas deve ser bom esse sistema de vip...

Surpreenda-se no melhor server. Crie sua conta e ganhe dois dias VIP e Triple EXP até os 15 resets. Junte sua team, crie uma guild e venha para a war!

http://www.TheHeroesOfTime.com

Vodkart

Sumus Validus

Herói

INFOS

Grupo: Herói

Registrado: 21/05/10

Posts: 3406

Gênero: Masculino

Postado em junho 06, 2010

O amigo é o seguint vou explikar o q ta acontecendo:

meu ot o portal onde leva pra area vip é cercado de chao com uid: 29000, intaum o q eu fis foi no seu script substituir onde tem 13540 por 29000 . até certa parte deu tudo certu fala qntos dias tem qnto eu kero add qnto eu kero rmv, mais qndo eu removo os dias de alguem depois q removo tudo o player ainda entra na area vip... intaum eu keria q vc me ajudasse a arrumar isso;/ ajuda ae galera, pq eu achu q qndo acabar automaticament tbm isso vai acontecer tbm dai tipo é como se o player fosse vip eterno ;/! ajudem plz

é porque o script do tile(piso) não deve ter a função os.time então quando ele faz a checkagem da storage,e não dos dias.

brunozd

Campones

INFOS

Grupo: Campones

Registrado: 06/03/08

Posts: 12

Char no Tibia: [ADM] Spartakus

Postado em junho 07, 2010

Para ser mais diretoo!

O que devo Fazer Para que Fike Tudo funcionando certu? Como Eu arrumo o Tile? Para qndo acabar a Vip o player nao passe mais?

matheusrp

Campones

INFOS

Grupo: Campones

Registrado: 26/10/06

Posts: 15

Postado em junho 07, 2010

Cara, como que eu ponho a vip na acc inteira? valeu ai se puder me ajudar. Obrigado

Att~ Matheus.