Comparte
Ver el tema anteriorIr abajoVer el tema siguiente
avatar
Aportador
Mensajes Mensajes : 98
Ver perfil de usuario

Un Vip System Buenisimo

el Sáb Sep 24, 2011 6:44 pm
Bueno Lo Importante Para qe sirve Este Script?

R= Es Facil Vip System [COMPLETO!] Por 30 dias.


Para Qe Sirva Con Vercion 8.7+ ASer TODO y Ir ASta Abajo

Funciones!:



*Effecto Vip
*Dise Si Es Vip O No Al Darle Look [Ejemplo:
Si Es Vip Dira Esto:
God Pollito is a vip player

Si No Es Dira Esto:
God Pollito isn't a vip player]

*Puerta Vip


Imagenes!

Spoiler:

Effecto Vip:


Al Darle Look:




Empezemos!
Primero Qe Nada Nos vamos A Actions.xlm y Agregamos Lo Siguiente:
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:

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:

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 Very Happy!

Aora Nos vamos A Creaturescripts.xlm y Pegamos Esto:


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:

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:

   registerCreatureEvent(cid, "Look")


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

En globalevent.xlm Agregamos Esto:
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:


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



Y Eso Fue Todo Espero Les Guste Denme Rep++ Cualqier Duda Por Pm

Vercion 8.7+ AQI:

Nos Vamos a data\actions\scripts\other i Abrimos El Vip.lua i reemplazamos por esto:
Código:

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

if getPlayerStorageValue(cid,11551) < 1 then
if getPlayerLevel(cid) > 249 then
getPlayerStorageValue(cid, 11551)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "CONGRATULATIONS! You are now a VIP for 30 days! You can now enter the VIP-area and use unique features!.")
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

Como Ponerlo En Accion Very Happy!:

Bueno aqi les van los pasos Para Poner la puerta vip:

1.- Abrir RME
2.- Seleccionas La Puerta VIP
3.- Ponerle ActionId 5788

Ok Aora Los Pasos Para Modificar La Medalla i Dar Vip:

1.- Ir A Items.xlm
2.- Buscar esto(en caso de no estar ud agregen):

Código:

<item id="9653" article="a" name="Vip Medal"/>
IMPORTANTE SI UDS LO AGREGARAN .-
tiene qe ser bajo esto:

Código:

<item id="9654" article="a" name="slain vampire bride">
      <attribute key="containerSize" value="10" />
      <attribute key="decayTo" value="9658" />
      <attribute key="duration" value="900" />
      <attribute key="corpseType" value="blood" />
   </item>
3.- Guardar Cambios y Re-Abrir El Ot
4.- Entrar Con El God I Decir /i VIP Medal
5.- Darsela Al Player
6.- Disfrutar la Vip



Creditos 100% Admin Pollitp de BT

El autor de este mensaje ha sido baneado del foro - Ver el mensaje

Ver el tema anteriorVolver arribaVer el tema siguiente
Permisos de este foro:
No puedes responder a temas en este foro.