¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



 
ÍndiceIndiceÚltimas imágenesBuscarRegistrarseConectarseReglamento
¿Quién está en línea?
En total hay 1 usuario en línea: 0 Registrados, 0 Ocultos y 1 Invitado

Ninguno

El record de usuarios en línea fue de 22 durante el Lun Jun 08, 2020 2:43 am
Mejores posteadores
Rango
Items Solo Vip Vote_lcapItems Solo Vip Voting_barItems Solo Vip Vote_rcap 
Habauc
Items Solo Vip Vote_lcapItems Solo Vip Voting_barItems Solo Vip Vote_rcap 
Trogclodita
Items Solo Vip Vote_lcapItems Solo Vip Voting_barItems Solo Vip Vote_rcap 
WhoTeR
Items Solo Vip Vote_lcapItems Solo Vip Voting_barItems Solo Vip Vote_rcap 
Tomm-
Items Solo Vip Vote_lcapItems Solo Vip Voting_barItems Solo Vip Vote_rcap 
ZankuR
Items Solo Vip Vote_lcapItems Solo Vip Voting_barItems Solo Vip Vote_rcap 
GM-PekeMixz
Items Solo Vip Vote_lcapItems Solo Vip Voting_barItems Solo Vip Vote_rcap 
LuciMoyo
Items Solo Vip Vote_lcapItems Solo Vip Voting_barItems Solo Vip Vote_rcap 
MwM
Items Solo Vip Vote_lcapItems Solo Vip Voting_barItems Solo Vip Vote_rcap 
Diclut s2 Lalaa♥
Items Solo Vip Vote_lcapItems Solo Vip Voting_barItems Solo Vip Vote_rcap 
Estadísticas
Tenemos 98 miembros registrados
El último usuario registrado es Stephelinmu

Nuestros miembros han publicado un total de 1289 mensajes en 264 argumentos.

 

 Items Solo Vip

Ir abajo 
AutorMensaje
ZankuR
Director
Director
ZankuR


Cantidad de envíos : 107
Fecha de inscripción : 19/07/2013

Items Solo Vip Empty
MensajeTema: Items Solo Vip   Items Solo Vip Icon_minitimeLun Ago 12, 2013 5:46 pm

Lo saque de Un 11.5 Adaptado Para x.13

VAMOS AL SERVIDOR Y BUSCAMOS :

Código:
NoSeCae As Integer
Debajo

Código:
EsDeVIP As Byte
Buscamos :

Código:
ObjData(Object).NoSeCae = val(Leer.GetValue("OBJ" & Object, "NoSeCae"))
Abajo ponemos :

Código:
ObjData(Object).EsDeVIP = val(Leer.GetValue("OBJ" & Object, "EsDeVIP"))
Ahora Buscamos :

Código:
If Obj.Newbie = 1 And Not EsNewbie(UserIndex) Then
        Call WriteConsoleMsg(UserIndex, "Solo los newbies pueden usar estos objetos.", FontTypeNames.FONTTYPE_INFO)
        Exit Sub
    End If
y abajo ponemos lo siguiente :

Código:
If Obj.EsDeVip = 1 And UserList(UserIndex).Stats.NivelVip = 0 Then
writeconsolemsg userindex, "¡Item exclusivo de VIPs!", FonttypeNames.Fonttype_INFO
Exit Sub
End If
¿Y como ponemos en el dat para que este dateado?

Vamos a dat y buscamos El objeto que ustedes quieran ponerle Vip y ponen esto :

Código:
EsDeVIP=1
esto es un plus despues si quieren ponerle el sistema vip saludos
Volver arriba Ir abajo
 
Items Solo Vip
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Hola solo queria presentarme
» NPC's interactúan con items abajo 11.5 Dx7/8
» [Aporte]Npc's interactuan con items abajo [11.5]
» Equipa items click derecho 11.5 dx7
» no agarrar items ni atacar estando invisible adaptado 11.5

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Talleres Taller Argentum :: Programación-
Cambiar a: