Vip system

ps aqui les traigo un vip system:
Empezemos!
Primero Qe Nada Nos vamos A Actions.xlm y Agregamos Lo Siguiente:
Código:

Código:

<action actionid="5788" script="other/vip door.lua" />
<action itemid="9653" script="other/vip.lua"/>

Despues

Nos Vamos A data\actions\scripts\other Creamos 2 Documentos.lua y A Uno Lo Nombramos vip y A Otro vip door

Ya Creados Los Dos Ponemos Esto En "vip":
Spoiler:

Código:

function onUse(cid, item, fromPosition, itemEx, toPosition)

if getPlayerStorageValue(cid,11551) < 1 then
if getPlayerLevel(cid) > 249 then
getPlayerStorageValue(cid, 11551)
doCreatureSay(cid, "CONGRATULATIONS! You are now a VIP for 30 days! You can now enter the VIP-area and use unique features!. ", TALKTYPE_MONSTER)
setPlayerStorageValue(cid, 11551, (getPlayerStorageValue(cid,11551) + 30))
doRemoveItem(item.uid, 1)
else
doPlayerSendCancel(cid,"You need to be at least level 250 to use this.")
end
else
doPlayerSendCancel(cid,"You are already a donator.")
end   
return TRUE
end`

I Luego Al Otro Qe Creamos "vip door" y Pegamos Esto Dentro:

Spoiler:

Código:

function onUse(cid, item, fromPosition, itemEx, toPosition)
local cidPosition = getCreaturePosition(cid)
if (item.actionid == 5788 and getPlayerStorageValue(cid,11551) >= 1) then
if cidPosition.x < toPosition.x then
doTeleportThing(cid, {x=toPosition.x,y=toPosition.y,z=toPosition.z}, TRUE)
doCreatureSay(cid, "Welcome VIP Player!", TALKTYPE_ORANGE_1)
else
doTeleportThing(cid, {x=toPosition.x,y=toPosition.y,z=toPosition.z}, TRUE)
doCreatureSay(cid, "Welcome VIP Player!", TALKTYPE_ORANGE_1)
end
return TRUE
else
doCreatureSay(cid, "Sorry, Only Vip Can Pass To Vip-Area", TALKTYPE_ORANGE_1)
return TRUE
end
return FALSE
end

Ok Emos Acabado Con Lo De Actions !

Aora Nos vamos A Creaturescripts.xlm y Pegamos Esto:

Código:

Código:

 <event type="look" name="Look" event="script" value="vip.lua"/>

Luego en Data/creaturescrips/scripts Creamos Un Archivo Llamado vip.lua
y Colocamos Esto Dentro:

Spoiler:

Código:

 function onLook(cid, thing, position, lookDistance)
if isPlayer(thing.uid) == false then
return true
end

local storage = 11551
if getPlayerStorageValue(thing.uid, storage) == -1 then
doPlayerSendTextMessage(cid, 20, ""..getCreatureName(thing.uid).." isn't a vip player.")
else
doPlayerSendTextMessage(cid, 20, ""..getCreatureName(thing.uid).." is a vip player.")
end
return true
end

Luego Ai Mismo En Creature Scripts Buscamos Un Archivo Llamado "login.lua" [Oviamente Sin .lua] y Arrivita De Dnd Dise:
Código:

registerCreatureEvent(cid, "Idle")


Pegamos Esto:
Código:

Código:

  registerCreatureEvent(cid, "Look")

Emos Finalizado Con Creature Scripts Aora Nos Vamos A Globalevents ;D!

En globalevent.xlm Agregamos Esto:
Código:

Código:

 <globalevent name="vipEffect" interval="2" script="vipEffect.lua"/>

------------------------------------
Para Editar El Tiempo En Donde Dise "interval = "2" Le Cambias el 2 Por Los Segundos Qe Qieres Qe Salga
------------------------------------

Luego Nos Vamos a data/glovalevents/scrpts y Creamos Un Nuevo Archivo Llamado "vipEffect.lua" y Pegamos Esto Dentro:
Spoiler:

Código:

 function onThink(interval, lastExecution)
for _, name in ipairs(getOnlinePlayers()) do
local cid = getPlayerByName(name)
if getPlayerStorageValue(cid, 11551) >= 1 then
doSendMagicEffect(getPlayerPosition(cid), 27)
doSendAnimatedText(getPlayerPosition(cid), "VIP!", TEXTCOLOR_RED)
end
end
return true
end

Bueno amigos ps qui acaba el tutorial recuerden esto solo fue copy and paste solo lo traje a dark-tibia
creditos 100% a [Admin] Pollito de black tibia
cualkier duda comentelo

muy bueno!

esta todo muy claro!

repp+