[Aportes indexados] Objetos Preciados, invendibles

Estado
Cerrado para nuevas respuestas.

^[GS]^

GS-Zone Admin
Administrador
Para el Servidor
Programado por Mr Man

en Declaraciones busca
Código:
'Tipos de objetos
Public Type ObjData
    
    Name As String 'Nombre del obj
 
Abajo agrega
Código:
 Preciado As Byte ' Tales
En FileIO busca
Código:
    If ObjData(Object).SubTipo = OBJTYPE_CASCO Then
        ObjData(Object).CascoAnim = val(Leer.DarValor("OBJ" & Object, "Anim"))
        ObjData(Object).LingH = val(Leer.DarValor("OBJ" & Object, "LingH"))
        ObjData(Object).LingP = val(Leer.DarValor("OBJ" & Object, "LingP"))
        ObjData(Object).LingO = val(Leer.DarValor("OBJ" & Object, "LingO"))
        ObjData(Object).SkHerreria = val(Leer.DarValor("OBJ" & Object, "SkHerreria"))
    End If
 
abajo agrega
Código:
    ObjData(Object).Preciado = val(Leer.DarValor("OBJ" & Object, "Preciado"))
en Comercio busca
Código:
If ObjData(obji).Newbie = 1 Then
    Call SendData(ToIndex, UserIndex, 0, "||No comercio objetos para newbies." & FONTTYPE_INFO)
    Exit Sub
End If
Abajo colocar
Código:
If ObjData(obji).Preciado = 1 Then
    Call SendData(ToIndex, UserIndex, 0, "||Ese objeto tiene un valor incalculable, no te lo puedo comprar." & FONTTYPE_INFO)
    Exit Sub
End If
En InvUsuario busca
Código:
        Call MakeObj(ToMap, 0, Map, Obj, Map, X, Y)
        Call QuitarUserInvItem(UserIndex, Slot, num)
        Call UpdateUserInv(False, UserIndex, Slot)
Abajo agrega
Código:
        If ObjData(Obj.ObjIndex).Preciado = 1 Then
            Call SendData(ToIndex, UserIndex, 0, "||El objeto es muy pesado para ser tirado!!!" & FONTTYPE_TALK)
            Exit Sub
        End If
GS > esta funcion fue cambiada porque estaba mal programada!!
Busca
Código:
ItemSeCae = (ObjData(Index).Real <> 1 Or ObjData(Index).NoSeCae = 0) And _
            (ObjData(Index).Caos <> 1 Or ObjData(Index).NoSeCae = 0) And _
            ObjData(Index).ObjType <> OBJTYPE_LLAVES And _
            ObjData(Index).ObjType <> OBJTYPE_BARCOS And _
            ObjData(Index).NoSeCae = 0
Remplazalo por
Código:
ItemSeCae = (ObjData(Index).Real <> 1 Or ObjData(Index).NoSeCae = 0) And _
            (ObjData(Index).Caos <> 1 Or ObjData(Index).NoSeCae = 0) And _
            ObjData(Index).ObjType <> OBJTYPE_LLAVES And _
            ObjData(Index).ObjType <> OBJTYPE_BARCOS And _
            ObjData(Index).NoSeCae = 0[color=red] And ObjData(Index).Preciado = 0[/color]
Otro codigo extra por GS

En ComercioConUsuarios

Buscar
Código:
If ObjCant <= 0 Or ObjInd <= 0 Then Exit Sub
y agregar abajo
Código:
If ObjData(ObjInd).Preciado = 1 Then Exit Sub
 
Estado
Cerrado para nuevas respuestas.
Arriba