# Sistema De Vip Com Bug

Por Crazyskezi

outubro 24, 2012 em Scripts

Crazyskezi

Campones

INFOS

Grupo: Campones

Registrado: 07/10/12

Posts: 31

Char no Tibia: Thuuko Bigowa

Postado em outubro 24, 2012

Olá, Xtibianos.

Bom, Eu tenho Um sistema de vip, Que no caso peguei aqui no XTIBIA

# Problemas dele.

# 1º Dá pra comprar a VIP dele Sem O item. EX:

criei uma quest, do item vip...

Más Players Não precisam Fazer Quest. É só dizer !buyvip Que já vem o vip sem o item msm

:# Sistema De Vip Abaixo

function onSay(cid, item, position) if getPlayerStorageValue(cid,22451) >= 1 then return doPlayerSendCancel(cid,"Sorry you have vip") end doPlayerRemoveItem(cid,11192,9000) setPlayerStorageValue(cid,22451,1) doPlayerSendTextMessage(cid,27,"You received vip permanente") doSendMagicEffect(getPlayerPosition(cid),CONST_ME_POFF) return TRUE end

Movements

function onStepIn(cid,item,position,fromPosition)

if getPlayerStorageValue(cid,22451) <= 0 then

doTeleportThing(cid,fromPosition,false)

doPlayerSendTextMessage(cid,21,"Sorry you no have vip")

else

doPlayerSendTextMessage(cid,27,"Welcome in area vip")

end

return TRUE

end

Eu Acho que nessa parte

function onSay(cid, item, position) if getPlayerStorageValue(cid,22451) >= 1 then return doPlayerSendCancel(cid,"Sorry you have vip") end doPlayerRemoveItem(cid,11192,9000) setPlayerStorageValue(cid,22451,1) doPlayerSendTextMessage(cid,27,"You received vip permanente") doSendMagicEffect(getPlayerPosition(cid),CONST_ME_POFF) return TRUE end

Está faltando algo Como.

Ex : !Buyvip

Você nao tem o item para comprar o item

Só essa parte, O resto deixa como tá, Pois meu ot é exp 999.

Muito Grato ~~

+ REP para quem Ajudár !

+Rep o que custa Colega ? =)

SkyLigh

User X

Lorde

INFOS

Grupo: Lorde

Registrado: 23/07/12

Posts: 2183

Char no Tibia: Kissy

Postado em outubro 24, 2012

usa o talkaction assim

function onSay(cid, item, position)
if getPlayerStorageValue(cid,22451) >= 1 then return
doPlayerSendCancel(cid,"Sorry you have vip")
end
doPlayerRemoveItem(cid,11192,9000)
setPlayerStorageValue(cid,22451,1)
doPlayerSendTextMessage(cid,27,"You received vip permanente")
doSendMagicEffect(getPlayerPosition(cid),CONST_ME_POFF)
return TRUE
end
local id = 1234 -- id do item
if getPlayerItemCount(cid,id) then
doPlayerSendTextMessage(cid,27,"Sorry , you no have item")
return true
end

Att,
Kissy

Crazyskezi

Campones

INFOS

Grupo: Campones

Registrado: 07/10/12

Posts: 31

Char no Tibia: Thuuko Bigowa

Postado em outubro 24, 2012

Deu A msm coisa, Bom.. Se poder Me ajudar. Me ajudaria muito com um Sistema de vip por bau !!

+Rep o que custa Colega ? =)

SkyLigh

User X

Lorde

INFOS

Grupo: Lorde

Registrado: 23/07/12

Posts: 2183

Char no Tibia: Kissy

Postado em outubro 24, 2012

Oks .

http://www.xtibia.com/forum/topic/190384-vip-345-ajudem/page__p__1299738#entry1299738

Att,
Kissy

LuckOake

Marquês

INFOS

Grupo: Marquês

Registrado: 23/07/12

Posts: 1104

Gênero: Masculino

Char no Tibia: Luck Oake

Postado em outubro 24, 2012

Arrumei a talk pra você:

function onSay(cid, words)
local stor = 22451 -- Storage da VIP

if getPlayerStorageValue(cid, stor) >= 1 then
doPlayerSendCancel(cid, "Desculpe, você já é VIP.") return true
elseif not doPlayerRemoveItem(cid, 11192, 9000) then
doPlayerSendCancel(cid, "Desculpe, você não possui o item necessário para comprar VIP.") return true
end

setPlayerStorageValue(cid, stor, 1)
doPlayerSendTextMessage(cid, 27, "Você recebeu VIP permanente.")
doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
return true
end

E aqui o script do baú:

function onUse(cid, item)
local stor = 22451 -- Storage da VIP

if getPlayerStorageValue(cid, stor) >= 1 then
doPlayerSendCancel(cid, "Desculpe, você já é VIP.") return true
end

setPlayerStorageValue(cid, stor, 1)
doPlayerSendTextMessage(cid, 27, "Você recebeu VIP permanente.")
doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
return true
end

• Estagiário desde 26/08/2012
• Colaborador desde 30/09/2012
• Moderador desde 24/01/2013

• Saída da equipe: ??/??/2013

Meus scripts:

Movement - Vocation Weapon
Mod - Partner System
Mod - Characters Market System (In Game) -- Exclusivo
Mod - Caixa Eletrônico
Mod - Vampire System
Mod - Summon Boost System
Mod - Defend The Generator
Sistema - RadBr Banishment System -- Super Exclusivo
Sistema - Advanced Quiz System -- Exclusivo
Talk - Comprando Pontos de EXP
Talk - Stop Time
Talk - Calculadora Ingame
Talk - Perfect Reset System -- Exclusivo
Tutorial - Aprendendo a Scriptear

Crazyskezi

Campones

INFOS

Grupo: Campones

Registrado: 07/10/12

Posts: 31

Char no Tibia: Thuuko Bigowa

Postado em outubro 25, 2012

Arrumei a talk pra você:

function onSay(cid, words)
local stor = 22451 -- Storage da VIP

if getPlayerStorageValue(cid, stor) >= 1 then
doPlayerSendCancel(cid, "Desculpe, você já é VIP.") return true
elseif not doPlayerRemoveItem(cid, 11192, 9000) then
doPlayerSendCancel(cid, "Desculpe, você não possui o item necessário para comprar VIP.") return true
end

setPlayerStorageValue(cid, stor, 1)
doPlayerSendTextMessage(cid, 27, "Você recebeu VIP permanente.")
doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
return true
end

E aqui o script do baú:

function onUse(cid, item)
local stor = 22451 -- Storage da VIP

if getPlayerStorageValue(cid, stor) >= 1 then
doPlayerSendCancel(cid, "Desculpe, você já é VIP.") return true
end

setPlayerStorageValue(cid, stor, 1)
doPlayerSendTextMessage(cid, 27, "Você recebeu VIP permanente.")
doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
return true
end

hmm.. Irei analizar Obrigado

Se dér + Rep *-*

Arrumei a talk pra você:

function onSay(cid, words)
local stor = 22451 -- Storage da VIP

if getPlayerStorageValue(cid, stor) >= 1 then
doPlayerSendCancel(cid, "Desculpe, você já é VIP.") return true
elseif not doPlayerRemoveItem(cid, 11192, 9000) then
doPlayerSendCancel(cid, "Desculpe, você não possui o item necessário para comprar VIP.") return true
end

setPlayerStorageValue(cid, stor, 1)
doPlayerSendTextMessage(cid, 27, "Você recebeu VIP permanente.")
doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
return true
end

E aqui o script do baú:

function onUse(cid, item)
local stor = 22451 -- Storage da VIP

if getPlayerStorageValue(cid, stor) >= 1 then
doPlayerSendCancel(cid, "Desculpe, você já é VIP.") return true
end

setPlayerStorageValue(cid, stor, 1)
doPlayerSendTextMessage(cid, 27, "Você recebeu VIP permanente.")
doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
return true
end

hmm.. Irei analizar Obrigado

Se dér + Rep *-*

Não funfou

Arrumei a talk pra você:

function onSay(cid, words)
local stor = 22451 -- Storage da VIP

if getPlayerStorageValue(cid, stor) >= 1 then
doPlayerSendCancel(cid, "Desculpe, você já é VIP.") return true
elseif not doPlayerRemoveItem(cid, 11192, 9000) then
doPlayerSendCancel(cid, "Desculpe, você não possui o item necessário para comprar VIP.") return true
end

setPlayerStorageValue(cid, stor, 1)
doPlayerSendTextMessage(cid, 27, "Você recebeu VIP permanente.")
doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
return true
end

E aqui o script do baú:

function onUse(cid, item)
local stor = 22451 -- Storage da VIP

if getPlayerStorageValue(cid, stor) >= 1 then
doPlayerSendCancel(cid, "Desculpe, você já é VIP.") return true
end

setPlayerStorageValue(cid, stor, 1)
doPlayerSendTextMessage(cid, 27, "Você recebeu VIP permanente.")
doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
return true
end

hmm.. Irei analizar Obrigado

Se dér + Rep *-*

Arrumei a talk pra você:

function onSay(cid, words)
local stor = 22451 -- Storage da VIP

if getPlayerStorageValue(cid, stor) >= 1 then
doPlayerSendCancel(cid, "Desculpe, você já é VIP.") return true
elseif not doPlayerRemoveItem(cid, 11192, 9000) then
doPlayerSendCancel(cid, "Desculpe, você não possui o item necessário para comprar VIP.") return true
end

setPlayerStorageValue(cid, stor, 1)
doPlayerSendTextMessage(cid, 27, "Você recebeu VIP permanente.")
doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
return true
end

E aqui o script do baú:

function onUse(cid, item)
local stor = 22451 -- Storage da VIP

if getPlayerStorageValue(cid, stor) >= 1 then
doPlayerSendCancel(cid, "Desculpe, você já é VIP.") return true
end

setPlayerStorageValue(cid, stor, 1)
doPlayerSendTextMessage(cid, 27, "Você recebeu VIP permanente.")
doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
return true
end

hmm.. Irei analizar Obrigado

Se dér + Rep *-*

Não funfou

Agora Deu Muito Obrigado msm

+REP COLEGA !

+Rep o que custa Colega ? =)

SkyLigh

User X

Lorde

INFOS

Grupo: Lorde

Registrado: 23/07/12

Posts: 2183

Char no Tibia: Kissy

Postado em outubro 25, 2012

duvida sanada

reportado

Para um superior

Att,
Kissy