Pendiente del sacrificio [13.x]

aficionado Mensajes : 118 Edad : 25

Dejo este codigo para tener pendiente de sacrificio en su mod 13.x.

Función :

Al tener este objeto mágico equipado, ningún item se caerá, solo se destruira el pendiente

Todo proceso en el server!

Buscan:

Código:: Sub TirarTodosLosItems(ByVal UserIndex As Integer)
'***************************************************
'Author: Unknown
'Last Modification: 12/01/2010 (ZaMa)
'12/01/2010: ZaMa - Ahora los piratas no explotan items solo si estan entre 20 y 25
'*************Sub TirarTodosLosItems(ByVal UserIndex As Integer)**************************************

Dim i As Byte
Dim NuevaPos As WorldPos
Dim MiObj As Obj
Dim ItemIndex As Integer
Dim DropAgua As Boolean

With UserList(UserIndex)

Abajo ponen:

Código:: If .Invent.AnilloEqpObjIndex = SACRI Then
Call WriteConsoleMsg(UserIndex, "Pierdes tu pendiente, pero tu inventario sigue intacto", FontTypeNames.FONTTYPE_INFO)

Call QuitarObjetos(SACRI, 1, UserIndex)
Exit Sub
End If

Buscan:

Código:: Public Const LAUDMAGICO As Integer = 696

Abajo ponen:

Código:: Public Const SACRI As Integer = X ' reemplazar la X por el obj

Ahora en OBJ.dat

Ponen:

Código:: [OBJXXX] 'ultimo item +1 por ej ultimo item 995 , ponen 996
Name=Pendiente del Sacrificio
GrhIndex=XXX
Objtype=18
Valor=500000
Crucial=1

Fuente: Propia, lo acabo de terminar al código.

Y listo, testeado 100% funcional.

Administrador Mensajes : 28

Muy buen aporte pablo.

Para que mod? Alkon cual?

Suerte!

aficionado Mensajes : 72

Exelente aporte, se agradese.

Dijo que era para 13.x

Attm...
GoldFish

muy bueno che, segui asi!