Primeiramente eu queria dizer que é meu primero post então aceito sugestões e reclamações..

Vamos la:

primeiro vc faz um sala igual a essa, nao precisa ser identica:

Depois faça igual a foto:

agora vá até a pasta itens e abre itens.xml

adicione os tags:

item id="7633" name="Vip Stone">
<attribute key="description" value="De use neste item e abra o chest do lugar onde voce ira cair para virar VIP."/>
<item id="7632" name="Blue Orb">
<attribute key="description" value="Este item pode ser vendido ao npc vip seller por 100k."/>
<item id="5785" article="a" name="Vip Medal">
<attribute key="weight" value="800"/>
<attribute key="speed" value="20"/>
<attribute key="absorbPercentEnergy" value="2"/>
<attribute key="absorbPercentPoison" value="2"/>
<attribute key="absorbPercentFire" value="2"/>
<attribute key="absorbPercentPhysical" value="2"/>
<attribute key="absorbPercentIce" value="2"/>
<attribute key="absorbPercentDeath" value="2"/>
<attribute key="absorbPercentHoly" value="2"/>
<attribute key="armor" value="2"/>
<attribute key="slotType" value="ring"/>

na pasta action/action.xml, adicione :

<action itemid="7633" script="telecvip.lua" />
<action uniqueid="13541" script="vipchest.lua" />

na pasta movements/movements.xml adicione:

<movevent event="StepIn" actionid="13540" script="vip.lua" />

agora crie um arquivo lua na pasta actions/scripts e renomeie para vipchest.lua, abra, remova tudo e adicione

--
function onUse(cid, item, frompos, item2, topos)

if item.uid ==13541 then
queststatus = getPlayerStorageValue(cid,13540)
if queststatus == 1 then
doPlayerSendTextMessage(cid,22,"Você jah pegou sua recompensa.")

else
doPlayerSendTextMessage(cid,22,"Você Ganhou acesso vip permanente e uma Medal of Honor e uma Blue Orb de presente do GOD.")
doSendMagicEffect(topos,12)
coins_uid = doPlayerAddItem(cid,5785,1)
coins_uid = doPlayerAddItem(cid,7632,1)
setPlayerStorageValue(cid,13540,1)
end
return 0
end
return 1
end

crie tambem um arquivo lua na pasta movements/scripts , renomeie para vip, adicione:

function onStepIn(cid, item, pos)



-- teleports config
teleport1 ={x=200, y=200, z=7} 



if isPlayer(cid) then

if item.actionid == 13540 then

vip = getPlayerStorageValue(cid,13540)
if vip == -1 then
doPlayerSendCancel(cid,"Esta área é exclusiva para players vips.")


doTeleportThing(cid,teleport1)


else

end

end

end

end

teleport1 ={x=200, y=200, z=7} posição onde o player ira cair se nao tiver vip.

espero ter ajudado

se precisarem de ajuda: marcos_perseguini@hotmail.com

Legal mais esse script foi do ot slayer yurots você devia botar os creditos do zerosky, GOD Slayer

Aff eu não gostei não

Nota 0

Mal minha opnião

Eu também nao gostei prefiro npc vip que vende a vip...

E o sistema vip q eu uso e legal e simples.

Imagem ruim de ver .

Mais ta Bom ;D