Para el Servidor
Programado por Mr Man
en Declaraciones busca
Abajo agrega
En FileIO busca
abajo agrega
en Comercio busca
Abajo colocar
En InvUsuario busca
Abajo agrega
GS > esta funcion fue cambiada porque estaba mal programada!!
Busca
Remplazalo por
Otro codigo extra por GS
En ComercioConUsuarios
Buscar
y agregar abajo
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
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