isso não seria na seção de scripting?
Moderação, favor mover o topico...
Felltate
reportei o topico para que seja movido...
info
Grupo: Campones
Registrado: 06/07/09
Posts: 52
Reputação: +7
Char no Tibia: Aceito Todos Os Duelos

isso não seria na seção de scripting?
Moderação, favor mover o topico...
Felltate
reportei o topico para que seja movido...
info
Grupo: Barão
Registrado: 15/02/09
Posts: 203
Reputação: +13
Char no Tibia: Dom Diego De La Vega

Tópico Movido para a seção "Pedidos de Scripts."
info
Grupo: Campones
Registrado: 27/12/08
Posts: 17
Reputação: +1
Char no Tibia: Caos fast'bolter
Coloca em data/npc/script, salve como vip.lua
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
local node1 = keywordHandler:addKeyword({'vip'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'Se Você Quise Compra Vip So Fala { days } .'})
function creatureSayCallback(cid, type, msg)
p = 300000 -- Valor Da Premium account Em GP
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVbehavior == CONVERSATION_DEFAULT and 0 or cid
---------- MSGs ----------
if msgcontains(msg, 'premium') or msgcontains(msg, 'Premium') or msgcontains(msg, 'premium') or msgcontains(msg, 'Premium Accounts') or msgcontains(msg, 'days') then
selfSay('Pois Bem , Cada Dia De Vip Custa '..p..' GPs, Quantos Dias Você Deseja Comprar?', cid)
talkState[talkUser] = 1
---== compra por GPs ==---
elseif talkState[talkUser] == 1 then
if getNumber(msg) < 350 then
n = getNumber(msg)
if n ~= 0 then
if getPlayerMoney(cid) > p*n then
selfSay('Dias de Vip: {'..n..'} por {'..n*(p)..'} GPs?', cid)
talkState[talkUser] = 3
else
selfSay('Você Nao Tem Gold Suficientes Para Comprar {'..n..'} Dias De Vip.', cid)
talkState[talkUser] = 0
end
else
selfSay('Escolha Um Numero Acima De Zero.', cid)
talkState[talkUser] = 0
end
else
selfSay('Você Nao Pode Comprar Mais Que 350 Dias De Vip.', cid)
talkState[talkUser] = 0
end
elseif talkState[talkUser] == 3 then ---== GPs ==---
if msgcontains(msg, 'yes') or msgcontains(msg, 'sim') or msgcontains(msg, 'SIM') or msgcontains(msg, 'YES') then
if getPlayerPremiumDays(cid)+n <= 350 then
if (doPlayerRemoveMoney(cid, p*n) ~= TRUE) then
npcHandler:say('Voce Nao Tem Gold Suficientes!', cid)
talkState[talkUser] = 0
else
doPlayerAddPremiumDays(cid, n)
selfSay('Compra Efetuada Com Sucesso , Dias De Vip:{ '..n..' }.', cid)
talkState[talkUser] = 0
end
else
npcHandler:say('Voce Nao Pode Ter Mais Que 350 Dias De Vip!', cid)
talkState[talkUser] = 0
end
end
elseif msgcontains(msg, 'no') or msgcontains(msg, 'nao') or msgcontains(msg, 'não') or msgcontains(msg, 'NO') or msgcontains(msg, 'NAO') or msgcontains(msg, 'NÃO')then
selfSay('Tudo Bem.', cid)
talkState[talkUser] = 0
end
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())
-- function maded by Gesior--
function getNumber(txt) --return number if its number and is > 0, else return 0
x = string.gsub(txt,"%a","")
x = tonumber(x)
if x ~= nill and x > 0 then
return x
else
return 0
end
end
coloque em data/npc, salve como Mayron VIP Seller.xml
<?xml version="1.0" encoding="UTF-8"?><npc name="Mayron VIP Seller" script="data/npc/scripts/vip.lua" walkinterval="3000" floorchange="0" access="5" >
<health now="150" max="150"/>
<look type="332" head="78" body="86" legs="114" feet="116" addons="0" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Oi |PLAYERNAME|. Eu vendo { Vip }."/>
<parameter key="message_farewell" value="Volte Sempre."/>
</parameters>
</npc>
coloque em data/movements.xml
<movevent type="StepIn" uniqueid="13700" event="script" value="vipe.lua"/>
coloque em data/movements/script com nome de vipe.lua
-- Vip System by Zerofunction onStepIn(cid, item, position, fromPosition)
local config = {
msgDenied = "Vc nao e vip , compre no npc vip.",
msgWelcome = "Seja Bem Vindo a Area vip."
}
if getPlayerPremiumDays(cid) <= 0 then
doTeleportThing(cid, fromPosition, true)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.msgDenied)
doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE)
return true
end
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.msgWelcome)
return true
end
ESPERO QUE TENHA TE AJUDADO !!! CREDITOS ZERO
coloque o UID 13700 nos sqm que quiser ser só para vip... (300k por dia pode ser configurado) e coloque o npc tmb...
Podiam colocar um fixo de algum sistema vip (nao sei se ja tem) muitos usuários procuram por isso.
Editado Fevereiro 22 por fastfast
Ehh e pra 8.5
TSF 0.3.4 ? Vlwws
N funfou add aew largatofg@hotmail.com
info
Grupo: Campones
Registrado: 27/12/08
Posts: 17
Reputação: +1
Char no Tibia: Caos fast'bolter
Ehh e pra 8.5
TSF 0.3.4 ? Vlwws
N funfou add aew largatofg@hotmail.com
qual o erro que da? voce colocou o npc ? falou hi,vip,days,1,yes ? vc tinha 300k ? vc boto o unique id no chao 13700 pelo map editor? ... se fez isso era pra dar certo
Tipow eu fiz tudooooooooooo Mais quando eu coloko o NPC no Server e abro ele o NPC n tah lah mais no Mapa editor ele Fika la..
add aew e me ajuda
largatofg@hotmail.com
Editado Fevereiro 23 por Felltate
info
Grupo: Campones
Registrado: 10/01/10
Posts: 10
Reputação: 0
Gente me pelo amor d deus mermu eu presiso d um sitema vip 0.3.4, 8.5 e urgente ja to aguardando faz mt tempo gnt proucuro isso na net todos os dias e n acho... por favor um filho de deus me ajudee fikarei mt gratoo mermu..
Datalhes: Sistema vip Automatico d 30 dias ou + q fassa tudo quando a vip acabar ele voltar dp e um lugar q so vip passe.. mais c n tiver essas coisas n inporto pelo menos tendo o sitema vip tbom... vlwsssss Obrigado desd jah..
add:largatofg@hotmail.com
Editado Fevereiro 28 por Felltate