[Aportes indexados] Pendiente del sacrificio

Estado
Cerrado para nuevas respuestas.

NicoNZ

Destructor Lvl 6
[SERVER] Pendiente del sacrificio

Mediante este objeto, al morir no pierdes el inventario, sólo este objeto por lo que está bastante bien el código...
(Idea sacada de ImperiumAo)
CODIGO CREADO POR Chots, robado x Sorin, y arreglado x NicoNZ

Abajo de:

[vb]
Sub TirarTodosLosItems(ByVal UserIndex As Integer)[/vb]

Pone:

[vb]
If UserList(UserIndex).Invent.HerramientaEqpObjIndex = PENDIENTE Then
Call SendData(ToIndex, UserIndex, 0, "||Has Perdido tu Pendiente del Sacrificio" & FONTTYPE_INFO)
    Dim MiObjAsD As Obj
    MiObjAsD.Amount = 1
    MiObjAsD.ObjIndex = NUMERO DE ITEM DEL PENDIENTE
    Call TirarItemAlPiso(UserList(UserIndex).Pos, MiObjAsD)
    Call QuitarObjetos(MiObjAsD, 1, UserIndex)
Exit Sub
 [/vb]

Abajo de:

[vb]
Public Const LAUDMAGICO = 696[/vb]

Agrega:

[vb]
Public Const PENDIENTE = NUMERO DE ITEM DEL PENDIENTE[/vb]


Despues creas el Item

Código:
[OBJXXX]
Name=Pendiente de Sacrificio
GrhIndex= NUMERO
Objtype=18
Valor= NUMERO
Anim= NUMERO
Crucial=1
 

weno, este codigo lo saque de game mod, pero se q lo creo chots. y sorin se hizo el programador y robo un par de codigos mas de este foro, pero we.

Esta testeado y funca.
 

DarkThom

Oráculo Lvl 3
No me sorprendre el robo de codigos de un foro para postearlo en otro ,. Hablo en General , de Gs-Zone a Slk de SLk a Gs-Zone y asi
 
Estado
Cerrado para nuevas respuestas.
Arriba