Galera, qria saber como programa um npc para vender VIP, tentei fazer o meu mas não tá dando certo...

Abaixo o script

local focus = 0

local talk_start = 0

local target = 0

local following = false

local attacking = false

 

function onThingMove(creature, thing, oldpos, oldstackpos)

 

end

 

 

function onCreatureAppear(creature)

 

end

 

 

function onCreatureDisappear(cid, pos)

if focus == cid then

selfSay('Good bye then.')

focus = 0

talk_start = 0

end

end

 

 

function onCreatureTurn(creature)

 

end

 

 

function msgcontains(txt, str)

return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))

end

 

 

function onCreatureSay(cid, type, msg)

msg = string.lower(msg)

 

if ((string.find(msg, '(%a*)hi(%a*)')) and (focus == 0)) and getDistanceToCreature(cid) < 3 then

selfSay('Hail ' .. creatureGetName(cid) .. '! Você gostaria de comprar uma VIP?')

focus = cid

contador = 1

talk_start = os.clock()

end

 

if string.find(msg, '(%a*)hi(%a*)') and (focus ~= cid) and getDistanceToCreature(cid) < 3 then

selfSay('Espere ' .. creatureGetName(cid) .. '!')

end

 

if msgcontains(msg, 'vip') and focus == cid and contador == 1 then

selfSay('Você deseja comprar uma VIP por 500k?')

talk_start = os.clock()

end

 

if msgcontains(msg, 'yes') and focus == cid and contador == 1 then

if pay(cid,500000) then

setPlayerStorageValue(cid,13540,1)

selfSay('Você comprou uma VIP!')

talk_start = os.clock()

end

 

if string.find(msg, '(%a*)bye(%a*)') and focus == cid and getDistanceToCreature(cid) < 3 then

selfSay('Té mais ' .. creatureGetName(cid) .. '...')

focus = 0

talk_start = 0

end

 

end

 

 

function onCreatureChangeOutfit(creature)

 

end

 

 

function onThink()

if (os.clock() - talk_start) > 30 then

if focus > 0 then

selfSay('Adeus...')

end

focus = 0

contador = 0

end

end

Obrigado desde já

PS: postei na seção duvidas e bugs e me falaram q tava errado então vim postar aki

Po alguem ajuda ai =|

Olá,

Olha, eu nao entendo muito de Scripts não, mas...

Não custa tentar.

Tenta por isso:

doPlayerStorageValue(cid,13540, 1)

ou

setPlayerSetStorageValue(cid,13540,1)

em ves de:

setPlayerStorageValue(cid,13540,1)

PS: Peguei isso do Script de Promote...

doPlayerSetVocation(cid, getPlayerVocation(cid)+7)

selfSay('Você acaba de ser Promovido!')

Se não tiver funcionando, desculpa, é que eu não testei =/

axo q eu poso lhe ajudar

e uma cosia ali vc ta vendendo vip como c fose 1 iten !!

me manda msg com seu msn !! qero 1 mapper tmb !!

Num se esquece de postar o resultado aqui. Quevo ver como fica no final.