ZankuR
Director
Cantidad de envíos : 107
Fecha de inscripción : 19/07/2013
 | Tema: Items Solo Vip  Lun Ago 12, 2013 5:46 pm | |
| Lo saque de Un 11.5 Adaptado Para x.13VAMOS 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 | |
|
