Pocion de invisibilidad

en el modulo InvUsuario en el sub userinvItem
abajo de

Select Case Obj.OBJType


ponen



Case eOBJType.otPOTSINVI
If UserList(UserIndex).flags.Muerto = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas muerto!! Solo podes usar items cuando estas vivo." & FONTTYPE_INFO)
Exit Sub
End If
If UserList(UserIndex).flags.Invisible = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Ya estas Invisible!! " & FONTTYPE_INFO)
Exit Sub
Else
UserList(UserIndex).flags.Invisible = 0
UserList(UserIndex).flags.Invisible = 1
Call SendData(ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).char.CharIndex & ",1")
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Te has echo invisible." & FONTTYPE_INFO)
Call QuitarUserInvItem(UserIndex, Slot, 1)
Call UpdateUserInv(False, UserIndex, Slot)
End If 'Athan Rlz




en el modulo declaracion
abajo de


otmancha


ponen


OtPOTSINVI = 37



despues en dat ponen

[OBJ]
Name=Pocion de invisibilidad
GrhIndex=
ObjType=37