BOM O MEU PEDIDO EO SEGUINTE EU QUERIA 1 SCRIPT DE 1 NPC QUE VENDESE ITEM VIP POR 1 CERTA MOEDA QUE SO DAR PRA SER ADIQUIRIDA PELO SHOP OW SEJA MEU SERVER E DE NTO EU QUERIA SABER SE TEM COMO ME PASSAREM A SCRIPT E JUNTO COM ISSO EU QUERIA SABER COMO CRIA ALGUM ITEM PARA SER ESSE ITEM QUE SO PODE SER GARANTIDO NO SHOP PARA TROKA POR ESSES ITENS VIP NO SERVER

 

 

OBS;MEU SERVER E DE NARUTO FAMOSO NTO !

Da uma olhada aqui, é quase a mesma coisa !

http://tibiaking.com/forum/topic/26978-ajuda-descobrir-qual-o-sistema-vip-no-meu-ot-nartuto/

Nao ta dando pra mostra os spoiler kra !

:S como não ? Ta vou te mandar sem os Spoiler !

 

 

Bom, se seu Server for sério não aconselho usar o Sistema vip, eu prefiro o Premium. Bom, vou mandar o Premium por NPC.

 

Vai em data/npc/script e cria Premium.lua e cola isso dentro:

 

  Citar

 

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVbehavior == CONVERSATION_DEFAULT and 0 or cid
-- Conversa Jogador/NPC
if(msgcontains(msg, 'offer') or msgcontains(msg, 'offer')) then
selfSay('Para Premium diga ( premium ) Para bencao diga ( bencao ) Para trocar de sexo diga ( trocar sexo ) Para trocar de cidade natal diga ( cidade natal ).', cid)
elseif(msgcontains(msg, 'premium') or msgcontains(msg, 'Premium')) then
selfSay('dialogo da premium - diga sim para comprar-', cid)
talkState[talkUser] = 1
elseif(msgcontains(msg, 'bencao') or msgcontains(msg, 'Bencao')) then
selfSay('Com bencao reduz sua penalidade quando morto ( perde menos XP skills etc..) ela custa apenas 3 Diamonds.Deseja ter a Bencao??', cid)
talkState[talkUser] = 2
elseif(msgcontains(msg, 'trocar sexo') or msgcontains(msg, 'trocar sexo')) then
selfSay('Para trocar de sexo sao nescessarios 5 Diamonds. Deseja mudar seu sexo??', cid)
talkState[talkUser] = 3
elseif(msgcontains(msg, 'cidade natal') or msgcontains(msg, 'cidade natal')) then
selfSay('deseja trocar de cidade natal? custa apenas 1 Diamonds. Deseja trocar Cidade Natal??', cid)
talkState[talkUser] = 4
-- Confirmação da Compra
elseif(msgcontains(msg, 'sim') and talkState[talkUser] == 1) then
if(doPlayerRemoveItem(cid, 3956, 10) == true) then
selfSay('Parabens, Premium de 30 dias!', cid)
doPlayerAddPremiumDays(cid, 30)
talkState[talkUser] = 0
else
selfSay('Voce nao tem Diamonds suficientes.', cid)
talkState[talkUser] = 0
end
elseif(msgcontains(msg, 'sim') and talkState[talkUser] == 2) then
if getPlayerBlessing(cid, 1) and getPlayerBlessing(cid, 2) and getPlayerBlessing(cid, 3) and getPlayerBlessing(cid, 4) and getPlayerBlessing(cid, 5) then
selfSay('Voce ja esta usando bencao!', cid)
else
if(doPlayerRemoveItem(cid, 102, 3) == true) then
selfSay('Thanks!', cid)
doPlayerAddBlessing(cid, 1)
doPlayerAddBlessing(cid, 2)
doPlayerAddBlessing(cid, 3)
doPlayerAddBlessing(cid, 4)
doPlayerAddBlessing(cid, 5)
talkState[talkUser] = 0
else
selfSay('Voce nao tem Diamonds suficientes.', cid)
talkState[talkUser] = 0
end
end
elseif(msgcontains(msg, 'yes') and talkState[talkUser] == 3) then
if(doPlayerRemoveItem(cid, 2145, 5) == true) then
selfSay('Thanks!', cid)
if(getPlayerSex(cid) == PLAYERSEX_FEMALE) then
doPlayerSetSex(cid, PLAYERSEX_MALE)
else
doPlayerSetSex(cid, PLAYERSEX_FEMALE)
end
talkState[talkUser] = 0
else
selfSay('Você nao tem Diamonds suficientes.', cid)
talkState[talkUser] = 0
end
elseif(msgcontains(msg, 'sendas') and talkState[talkUser] == 4) then
if(doPlayerRemoveItem(cid, 2145, 5) == true) then
selfSay('Thanks!', cid)
doPlayerSetTown(cid, 2)
talkState[talkUser] = 0
else
selfSay('Você nao tem Diamonds suficientes.', cid)
talkState[talkUser] = 0
end
elseif(msgcontains(msg, 'falador') and talkState[talkUser] == 4) then
if(doPlayerRemoveItem(cid, 2145, 5) == true) then
selfSay('Thanks!', cid)
doPlayerSetTown(cid, 1)
talkState[talkUser] = 0
else
selfSay('Você não tem Dimond suficientes.', cid)
talkState[talkUser] = 0
end
end
return TRUE
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

 

 

Agora vai em data/NPC e cria um Premium.XML e cola isso dentro:

 

  Citar

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Kyler" script="premium.lua" walkinterval="3000" floorchange="0" access="5" >
<health now="150" max="150"/>
<look type="251" head="0" body="114" legs="114" feet="0"/>
<parameters>
<parameter key="message_greet" value="Bem-vindo, aqui voce pode comprar Premium , mudar de sexo e comprar bencao. Para ver as ofertas diga 'offer' "/>
<parameter key="message_farewell" value="Ate a proxima."/>
</parameters>
</npc>

 

 

Type ( Roupa ) do NPC, explicando de um modo Simples.

 

Agora vamos fazer o Tile Premium. Vai em movements/scripts e cria um PremiumTile.lua e cola isso dentro:

 

  Citar

vips = {} vips.__index = vips

function vips.moveBack(cid, fromPosition, text) doTeleportThing(cid, fromPosition, TRUE) doPlayerSendCancel(cid, text)
end

function onStepIn(cid, item, position, fromPosition)

if item.actionid == 65535 then if(getPlayerPremiumDays(cid) < 1) then
vips.moveBack(cid, fromPosition, "apenas vips podem passar.")
end
end
end

 

 

ActionID 

 

Agora vai em Movements.XML e cola esta tag:

 

  <movevent type="StepIn" actionid="65535" event="script" value="PremiumTile.lua"/>

 

 

OBS: O ActionID que está no Movements tem que ser o mesmo do XML. Ai para fazer a área vip é só ir no seu Map Editor dar 2 cliques no tile ou nos tiles que quer por como área premium e colocar a actionid que você colocou no Movements. Qualquer Duvida Posta ae ! Tenta ae e não esquece do REP+

ops acabei fazendo depois desculpa 

so pra avisar caso queira mudar pro seu dinheiro vip muda aki

if(doPlayerRemoveItem(cid, 2145, 5)

azu id do seu dinheiro vip

vermelho quantia necessaria

Editado Julho 23, 2013 11 anos por leessandro (veja o histórico de edições)