removido

local function pegarNome(name)
return string.sub(name, 7)
end

function onLogin(cid) 
local name = getCreatureName(cid)
local nome = getPlayerGUID(cid)

if isVip(cid) then
	if string.sub(name, 1,6) == "[VIP] " then
		return true
	else
		db.executeQuery("UPDATE `players` SET `name` = '[VIP] "..name.."' WHERE `id`= " .. nome .. ";")
		doPlayerSendTextMessage(cid,19,"Você vai kikado em 10 segundos para atualizar o nome. ")
		addEvent(doRemoveCreature,10000,cid)
		if getPlayerPromotionLevel(cid) ~= 3 then
			setPlayerPromotionLevel(cid, 3)
		end
	end
else
	if string.sub(name, 1,6) == "[VIP] " then
		db.executeQuery("UPDATE `players` SET `name` = '"..pegarNome(getCreatureName(cid)).."' WHERE `id`= " .. nome .. ";")
		doPlayerSendTextMessage(cid,19,"Voce ira ser kikado em 10 segundo para por [VIP]. Logue sua conta novament.")
		addEvent(doRemoveCreature,10000,cid)
	end
end
return true
end

Não testado.

nao deu certo. Nao promove certo fica

He is .

meu vocations.xml e 031-vocations.lua ta configurado certo :X

Esse é o problema, você havia citado uma 3ª promotion e na verdade, você quis dizer a 2ª.

local function pegarNome(name)
       return string.sub(name, 7)
end

function onLogin(cid) 
       local name = getCreatureName(cid)
       local nome = getPlayerGUID(cid)

       if isVip(cid) then
               if string.sub(name, 1,6) == "[VIP] " then
                       return true
               else
                       db.executeQuery("UPDATE `players` SET `name` = '[VIP] "..name.."' WHERE `id`= " .. nome .. ";")
                       doPlayerSendTextMessage(cid,19,"Você vai kikado em 10 segundos para atualizar o nome. ")
                       addEvent(doRemoveCreature,10000,cid)
                       if getPlayerPromotionLevel(cid) ~= 2 then
                               setPlayerPromotionLevel(cid, 2)
                       end
               end
       else
               if string.sub(name, 1,6) == "[VIP] " then
                       db.executeQuery("UPDATE `players` SET `name` = '"..pegarNome(getCreatureName(cid)).."' WHERE `id`= " .. nome .. ";")
                       doPlayerSendTextMessage(cid,19,"Voce ira ser kikado em 10 segundo para por [VIP]. Logue sua conta novament.")
                       addEvent(doRemoveCreature,10000,cid)
               end
       end
       return true
end

coloca pra quando a vip acabar a promotion volta tb?

local function pegarNome(name)
       return string.sub(name, 7)
end

function onLogin(cid) 
local name = getCreatureName(cid)
local nome = getPlayerGUID(cid)

if isVip(cid) then
		if string.sub(name, 1,6) == "[VIP] " then
				return true
		else
				db.executeQuery("UPDATE `players` SET `name` = '[VIP] "..name.."' WHERE `id`= " .. nome .. ";")
				doPlayerSendTextMessage(cid,19,"Você vai kikado em 10 segundos para atualizar o nome. ")
				addEvent(doRemoveCreature,10000,cid)
				local p = getPlayerPromotionLevel(cid)
				if p ~= 3 then
						setPlayerStorageValue(cid, 2537, p)
						setPlayerPromotionLevel(cid, 3)
				end
		end
else
		if string.sub(name, 1,6) == "[VIP] " then
				db.executeQuery("UPDATE `players` SET `name` = '"..pegarNome(getCreatureName(cid)).."' WHERE `id`= " .. nome .. ";")
				doPlayerSendTextMessage(cid,19,"Voce ira ser kikado em 10 segundo para por [VIP]. Logue sua conta novament.")
				addEvent(doRemoveCreature,10000,cid)
				setPlayerPromotionLevel(cid, getPlayerStorageValue(cid, 2537)
		end
end
return true
end

deu error

[Error - luainterfase::loadFile] .../vipname.lua28: '>' expected <to close '<' at line 27 > near 'end'
[Warning - Event::loadScript] Cannot load script ../vipname.lua
data/..../vipname.lua28: '>' expected <to close '<' at line 27> near 'end'

como arruma?

Esqueci de fechar o parentêsis.

local function pegarNome(name)
       return string.sub(name, 7)
end

function onLogin(cid) 
local name = getCreatureName(cid)
local nome = getPlayerGUID(cid)

if isVip(cid) then
		if string.sub(name, 1,6) == "[VIP] " then
				return true
		else
				db.executeQuery("UPDATE `players` SET `name` = '[VIP] "..name.."' WHERE `id`= " .. nome .. ";")
				doPlayerSendTextMessage(cid,19,"Você vai kikado em 10 segundos para atualizar o nome. ")
				addEvent(doRemoveCreature,10000,cid)
				local p = getPlayerPromotionLevel(cid)
				if p ~= 3 then
						setPlayerStorageValue(cid, 2537, p)
						setPlayerPromotionLevel(cid, 3)
				end
		end
else
		if string.sub(name, 1,6) == "[VIP] " then
				db.executeQuery("UPDATE `players` SET `name` = '"..pegarNome(getCreatureName(cid)).."' WHERE `id`= " .. nome .. ";")
				doPlayerSendTextMessage(cid,19,"Voce ira ser kikado em 10 segundo para por [VIP]. Logue sua conta novament.")
				addEvent(doRemoveCreature,10000,cid)
				setPlayerPromotionLevel(cid, getPlayerStorageValue(cid, 2537))
		end
end
return true
end

vlw :smile_positivo:

muda

                                        if p ~= 3 then
                                                       setPlayerStorageValue(cid, 2537, p)
                                                       setPlayerPromotionLevel(cid, 3)

pra

                                        if p ~= 2 then
                                                       setPlayerStorageValue(cid, 2537, p)
                                                       setPlayerPromotionLevel(cid, 2)

segunda promotion nao terceira :X

DUVIDA SANADA . REPORTADO PARA TRANCAR O TOPICO..

o eu presisava valeu ae