GS-Zone
Facebook Twitter

Al Morir Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

20

Nota » 10 Ene 2012 21:59

Bueno tengo un problema :S, perdón por los posts que hago que seguramente son una boludes pero ami me cuesta y soy media bruta xD. bueno lo que me sucede es que AL MORIR, el usuario sigue normal, osea muere todo bien pero no se hace Fantasmita,, .. :S,, queda el cuerpo con los items ekipados pero en el inv creo que no estan ekipados, es como que MUERE pero no se hace fantasmita , alguno me podria ayudar pliz.

El mod del servidor es Twist.

Les dejo todo el Userdie.

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub UserDie(ByVal UserIndex As Integer)
  2. Call SendData(SendTarget.ToIndex, UserIndex, 0, "ICEDIE")
  3. On Error GoTo ErrorHandler
  4.  
  5.     'Sonido
  6.     If UCase$(UserList(UserIndex).Genero) = "MUJER" Then
  7.         Call SonidosMapas.ReproducirSonido(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, e_SoundIndex.MUERTE_MUJER)
  8.     Else
  9.         Call SonidosMapas.ReproducirSonido(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, e_SoundIndex.MUERTE_HOMBRE)
  10.     End If
  11.    
  12.     'Quitar el dialogo del user muerto
  13.     Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "QDL" & UserList(UserIndex).char.CharIndex)
  14.    
  15.     UserList(UserIndex).Stats.MinHP = 0
  16.     UserList(UserIndex).Stats.MinSta = 0
  17.     UserList(UserIndex).flags.AtacadoPorNpc = 0
  18.     UserList(UserIndex).flags.AtacadoPorUser = 0
  19.     UserList(UserIndex).flags.Envenenado = 0
  20.     UserList(UserIndex).flags.Muerto = 1
  21.     If UserList(Pareja.Jugador1).flags.Muerto = 1 Then
  22.          Call WarpUserChar(Pareja.Jugador1, 1, 50, 51)
  23.                      Call WarpUserChar(Pareja.Jugador2, 1, 50, 52)
  24.                  UserList(Pareja.Jugador1).flags.EnPareja = False
  25.                  UserList(Pareja.Jugador1).flags.EsperaPareja = False
  26.                      UserList(Pareja.Jugador1).flags.SuPareja = 0
  27.                  HayPareja = False
  28.          Call SendData(SendTarget.ToAll, 0, 0, "||El usuario " & UserList(Pareja.Jugador2).name & " derrotó a " & UserList(Pareja.Jugador1).name & FONTTYPE_DESAFIO)
  29.         End If
  30.             If UserList(Pareja.Jugador2).flags.Muerto = 1 Then
  31.          Call WarpUserChar(Pareja.Jugador2, 1, 50, 50)
  32.                      Call WarpUserChar(Pareja.Jugador2, 1, 50, 50)
  33.                  UserList(Pareja.Jugador2).flags.EnPareja = False
  34.                  UserList(Pareja.Jugador2).flags.EsperaPareja = False
  35.                      UserList(Pareja.Jugador1).flags.SuPareja = 0
  36.                  HayPareja = False
  37.          Call SendData(SendTarget.ToAll, 0, 0, "||El usuario " & UserList(Pareja.Jugador1).name & " derrotó a " & UserList(Pareja.Jugador2).name & FONTTYPE_DESAFIO)
  38.         End If
  39.        
  40.        
  41.             If UserList(Pareja.Jugador2).flags.Muerto = 1 Then
  42.            Call WarpUserChar(Pareja.Jugador1, 1, 50, 51)
  43.                        Call WarpUserChar(Pareja.Jugador2, 1, 50, 52)
  44.                UserList(Pareja.Jugador2).flags.EnPareja = False
  45.                    UserList(Pareja.Jugador2).flags.EsperaPareja = False
  46.                    UserList(Pareja.Jugador2).flags.SuPareja = 0
  47.                    HayPareja = False
  48.                    
  49.         End If
  50.    
  51.     If UserList(UserIndex).Pos.Map = 2 Then 'mapa de duelo para que sea sacado
  52.         Call WarpUserChar(UserIndex, 1, 64, 50, True)
  53.         Call SendData(ToIndex, UserIndex, 0, "||Has perdido el Desafio." & FONTTYPE_SERVER)
  54.     End If
  55.    
  56.     Dim AN As Integer
  57.    
  58.     AN = UserList(UserIndex).flags.AtacadoPorNpc
  59.    
  60.     If AN > 0 Then
  61.         Npclist(AN).Movement = Npclist(AN).flags.OldMovement
  62.         Npclist(AN).Hostile = Npclist(AN).flags.OldHostil
  63.         Npclist(AN).flags.AttackedBy = ""
  64.     End If
  65.    
  66.     '<<<< Paralisis >>>>
  67.     If UserList(UserIndex).flags.Paralizado = 1 Then
  68.         UserList(UserIndex).flags.Paralizado = 0
  69.         Call SendData(SendTarget.ToIndex, UserIndex, 0, "PARADOK")
  70.        
  71.     End If
  72.    
  73.     '<<< Estupidez >>>
  74.     If UserList(UserIndex).flags.Estupidez = 1 Then
  75.         UserList(UserIndex).flags.Estupidez = 0
  76.         Call SendData(SendTarget.ToIndex, UserIndex, 0, "NESTUP")
  77.     End If
  78.    
  79.     '<<<< Descansando >>>>
  80.     If UserList(UserIndex).flags.Descansar Then
  81.         UserList(UserIndex).flags.Descansar = False
  82.         Call SendData(SendTarget.ToIndex, UserIndex, 0, "DOK")
  83.     End If
  84.    
  85.     '<<<< Meditando >>>>
  86.     If UserList(UserIndex).flags.Meditando Then
  87.         UserList(UserIndex).flags.Meditando = False
  88.         Call SendData(SendTarget.ToIndex, UserIndex, 0, "MEDOK")
  89.     End If
  90.    
  91.     '<<<< Invisible >>>>
  92.     If UserList(UserIndex).flags.Invisible = 1 Or UserList(UserIndex).flags.Oculto = 1 Then
  93.         UserList(UserIndex).flags.Oculto = 0
  94.         UserList(UserIndex).flags.Invisible = 0
  95.         'no hace falta encriptar este NOVER
  96.         Call SendData(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, "NOVER" & UserList(UserIndex).char.CharIndex & ",0")
  97.     End If
  98.    
  99.     If TriggerZonaPelea(UserIndex, UserIndex) <> TRIGGER6_PERMITE Then
  100.         ' << Si es newbie no pierde el inventario >>
  101.         If Not EsNewbie(UserIndex) Or Criminal(UserIndex) Then
  102.             Call TirarTodo(UserIndex)
  103.         Else
  104.             If EsNewbie(UserIndex) Then Call TirarTodosLosItemsNoNewbies(UserIndex)
  105.         End If
  106.     End If
  107.    
  108.     ' DESEQUIPA TODOS LOS OBJETOS
  109.     'desequipar armadura
  110.     If UserList(UserIndex).Invent.ArmourEqpObjIndex > 0 Then
  111.         Call Desequipar(UserIndex, UserList(UserIndex).Invent.ArmourEqpSlot)
  112.     End If
  113.     'desequipar arma
  114.     If UserList(UserIndex).Invent.WeaponEqpObjIndex > 0 Then
  115.         Call Desequipar(UserIndex, UserList(UserIndex).Invent.WeaponEqpSlot)
  116.     End If
  117.     'desequipar casco
  118.     If UserList(UserIndex).Invent.CascoEqpObjIndex > 0 Then
  119.         Call Desequipar(UserIndex, UserList(UserIndex).Invent.CascoEqpSlot)
  120.     End If
  121.     'desequipar herramienta
  122.     If UserList(UserIndex).Invent.HerramientaEqpObjIndex > 0 Then
  123.         Call Desequipar(UserIndex, UserList(UserIndex).Invent.HerramientaEqpSlot)
  124.     End If
  125.     'desequipar municiones
  126.     If UserList(UserIndex).Invent.MunicionEqpObjIndex > 0 Then
  127.         Call Desequipar(UserIndex, UserList(UserIndex).Invent.MunicionEqpSlot)
  128.     End If
  129.     'desequipar escudo
  130.     If UserList(UserIndex).Invent.EscudoEqpObjIndex > 0 Then
  131.         Call Desequipar(UserIndex, UserList(UserIndex).Invent.EscudoEqpSlot)
  132.     End If
  133.    
  134.     ' << Reseteamos los posibles FX sobre el personaje >>
  135.     If UserList(UserIndex).char.loops = LoopAdEternum Then
  136.         UserList(UserIndex).char.FX = 0
  137.         UserList(UserIndex).char.loops = 0
  138.     End If
  139.    
  140.     ' << Restauramos el mimetismo
  141.     If UserList(UserIndex).flags.Mimetizado = 1 Then
  142.         UserList(UserIndex).char.Body = UserList(UserIndex).CharMimetizado.Body
  143.         UserList(UserIndex).char.Head = UserList(UserIndex).CharMimetizado.Head
  144.         UserList(UserIndex).char.CascoAnim = UserList(UserIndex).CharMimetizado.CascoAnim
  145.         UserList(UserIndex).char.ShieldAnim = UserList(UserIndex).CharMimetizado.ShieldAnim
  146.         UserList(UserIndex).char.WeaponAnim = UserList(UserIndex).CharMimetizado.WeaponAnim
  147.         UserList(UserIndex).Counters.Mimetismo = 0
  148.         UserList(UserIndex).flags.Mimetizado = 0
  149.     End If
  150.    
  151.     '<< Cambiamos la apariencia del char >>
  152.     If UserList(UserIndex).flags.Navegando = 0 Then
  153.         UserList(UserIndex).char.Body = iCuerpoMuerto
  154.         UserList(UserIndex).char.Head = iCabezaMuerto
  155.         UserList(UserIndex).char.ShieldAnim = NingunEscudo
  156.         UserList(UserIndex).char.WeaponAnim = NingunArma
  157.         UserList(UserIndex).char.CascoAnim = NingunCasco
  158.     Else
  159.         UserList(UserIndex).char.Body = iFragataFantasmal ';)
  160.     End If
  161.    
  162.     Dim i As Integer
  163.     For i = 1 To MAXMASCOTAS
  164.        
  165.         If UserList(UserIndex).MascotasIndex(i) > 0 Then
  166.                If Npclist(UserList(UserIndex).MascotasIndex(i)).Contadores.TiempoExistencia > 0 Then
  167.                     Call MuereNpc(UserList(UserIndex).MascotasIndex(i), 0)
  168.                Else
  169.                     Npclist(UserList(UserIndex).MascotasIndex(i)).MaestroUser = 0
  170.                     Npclist(UserList(UserIndex).MascotasIndex(i)).Movement = Npclist(UserList(UserIndex).MascotasIndex(i)).flags.OldMovement
  171.                     Npclist(UserList(UserIndex).MascotasIndex(i)).Hostile = Npclist(UserList(UserIndex).MascotasIndex(i)).flags.OldHostil
  172.                     UserList(UserIndex).MascotasIndex(i) = 0
  173.                     UserList(UserIndex).MascotasType(i) = 0
  174.                End If
  175.         End If
  176.        
  177.     Next i
  178.    
  179.     UserList(UserIndex).NroMacotas = 0
  180.    
  181.     If Criminal(UserIndex) Then
  182.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "Z33")
  183.     Else
  184.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "Z34")
  185.     End If
  186.    
  187.     'If MapInfo(UserList(UserIndex).Pos.Map).Pk Then
  188.     '        Dim MiObj As Obj
  189.     '        Dim nPos As WorldPos
  190.     '        MiObj.ObjIndex = RandomNumber(554, 555)
  191.     '        MiObj.Amount = 1
  192.     '        nPos = TirarItemAlPiso(UserList(UserIndex).Pos, MiObj)
  193.     '        Dim ManchaSangre As New cGarbage
  194.     '        ManchaSangre.Map = nPos.Map
  195.     '        ManchaSangre.X = nPos.X
  196.     '        ManchaSangre.Y = nPos.Y
  197.     '        Call TrashCollector.Add(ManchaSangre)
  198.     'End If
  199.    
  200.     '<< Actualizamos clientes >>
  201.     Call ChangeUserChar(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, val(UserIndex), UserList(UserIndex).char.Body, UserList(UserIndex).char.Head, UserList(UserIndex).char.Heading, NingunArma, NingunEscudo, NingunCasco)
  202.     Call SendUserStatsBox(UserIndex)
  203.     Call SendUserHitBox(UserIndex)
  204.     Call EnviarDopa(UserIndex)
  205.    
  206.    
  207.     '<<Castigos por party>>
  208.     If UserList(UserIndex).PartyIndex > 0 Then
  209.         Call mdParty.ObtenerExito(UserIndex, UserList(UserIndex).Stats.ELV * -10 * mdParty.CantMiembros(UserIndex), UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)
  210.     End If
  211. Exit Sub
  212.  
  213. If UserList(UserIndex).flags.EnDuelo = True Then
  214. UserList(UserIndex).flags.EnDuelo = False
  215. Call WarpUserChar(UserIndex, 1, 50, 50)
  216. Call SendData(SendTarget.ToAll, 0, 0, "||Duelos> " & UserList(UserIndex).name & " ha sido vencido." & FONTTYPE_TALK)
  217. Exit Sub
  218. End If
  219. Exit Sub
  220.  
  221. ErrorHandler:
  222.     Call LogError("Error en SUB USERDIE. Error: " & Err.Number & " Descripción: " & Err.Description)
  223. End Sub
Última edición por Ilaisa el 10 Ene 2012 22:11, editado 1 vez en total

Imagen

Ilaisa
Ilaisa
<Aprendiendo a Programar>
227
Newbie [4]
Registrado: Diciembre 2011
Mensajes: 128
Arriba

Nota » 10 Ene 2012 22:03

Mmm que raro xD

Que mod es tu ao ?

Imagen
miqueas150
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13
Arriba

Nota » 10 Ene 2012 22:04

postea todo el sub userdie de tu servidor

mica.khalem@gmail.com

•Parra escribió:Pf que locura xD ...
Que has hecho? xD


Imagen


FAN DE BLIZZARD
Khalem
God is gay
343
Administrador
Registrado: 5 Años de membresía!
Ubicación: Capital Federal
Mensajes: 3003
Aportes: 18
Premios: 1
Mister Programador AO (1)
Arriba

Nota » 10 Ene 2012 23:13

El error puede estar en esto:

If UserList(UserIndex).flags.Navegando = 0 Then
UserList(UserIndex).char.Body = iCuerpoMuerto
UserList(UserIndex).char.Head = iCabezaMuerto
UserList(UserIndex).char.ShieldAnim = NingunEscudo
UserList(UserIndex).char.WeaponAnim = NingunArma
UserList(UserIndex).char.CascoAnim = NingunCasco

Fijate si está bien el body y la head.

Imagen
Santty.-
¡Vamo' la vela de mi corazón!
617
Dragon Ancestral [5]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 4116
Aportes: 20
Premios: 2
Campeón de Gráfica AO (1) Embajador (1)
Arriba

Nota » 11 Ene 2012 00:27

La verdad que no tengo idea, el servidor viene Libre de Bugs, tocaste algo referido a eso? O un Sistema de Monturas / Alas?

Feer es mi fan, por eso me tiene en su firma jakjka
Pobrecito

Imagen
Alkair
-Rezniaq
730
Destructor de Mentes [11]
Registrado: Septiembre 2011
Ubicación: Zárate
Mensajes: 1035
Aportes: 20
Arriba

Nota » 11 Ene 2012 01:09

Nono, no modifique nada de eso, antes me andaba y no toque nada :S solamente modifique una cosa para poder loguiar que es en Proyecto, Opciones, Compilar y abajo dice algo y decia 1 y le puse 0 No creo que sea algo de eso .. porque si dice 1 ahi no puedo loguiar , no podia loguiar

Imagen

Ilaisa
Ilaisa
<Aprendiendo a Programar>
227
Newbie [4]
Registrado: Diciembre 2011
Mensajes: 128
Arriba

Nota » 11 Ene 2012 01:14

iCuerpoMuerto
iCabezaMuerto

Fijate si tenes esas 2 declaraciones y si las tenes postealas

Imagen
miqueas150
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13
Arriba

Nota » 11 Ene 2012 02:22

Sisi las tengo, aca se las paso:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. '%%%%%%%%%% CONSTANTES DE INDICES %%%%%%%%%%%%%%%
  2. Public Const iCuerpoMuerto As Integer = 8
  3. Public Const iCabezaMuerto As Integer = 500


Las dos variables miqueas

Imagen

Ilaisa
Ilaisa
<Aprendiendo a Programar>
227
Newbie [4]
Registrado: Diciembre 2011
Mensajes: 128
Arriba

Nota » 11 Ene 2012 02:27

Este sub aakjakaak
Fijate remplazandolo por este

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Sub UserDie(ByVal UserIndex As Integer)
  2.  
  3. On Error GoTo ErrorHandler
  4.  Call SendData(SendTarget.ToIndex, UserIndex, 0, "ICEDIE")
  5.     'Sonido
  6.     If UCase$(userList(UserIndex).Genero) = "MUJER" Then
  7.         Call SonidosMapas.ReproducirSonido(SendTarget.ToPCArea, UserIndex, userList(UserIndex).Pos.Map, e_SoundIndex.MUERTE_MUJER)
  8.     Else
  9.         Call SonidosMapas.ReproducirSonido(SendTarget.ToPCArea, UserIndex, userList(UserIndex).Pos.Map, e_SoundIndex.MUERTE_HOMBRE)
  10.     End If
  11.    
  12.     'Quitar el dialogo del user muerto
  13.     Call SendData(SendTarget.ToPCArea, UserIndex, userList(UserIndex).Pos.Map, "QDL" & userList(UserIndex).Char.CharIndex)
  14.    
  15.     userList(UserIndex).Stats.MinHP = 0
  16.     userList(UserIndex).Stats.MinSta = 0
  17.     userList(UserIndex).flags.AtacadoPorNpc = 0
  18.     userList(UserIndex).flags.AtacadoPorUser = 0
  19.     userList(UserIndex).flags.Envenenado = 0
  20.     userList(UserIndex).flags.muerto = 1
  21.     If userList(Pareja.Jugador1).flags.muerto = 1 Then
  22.          Call WarpUserChar(Pareja.Jugador1, 1, 50, 51)
  23.                      Call WarpUserChar(Pareja.Jugador2, 1, 50, 52)
  24.                  userList(Pareja.Jugador1).flags.EnPareja = False
  25.                  userList(Pareja.Jugador1).flags.EsperaPareja = False
  26.                      userList(Pareja.Jugador1).flags.SuPareja = 0
  27.                  HayPareja = False
  28.          Call SendData(SendTarget.ToAll, 0, 0, "||El usuario " & userList(Pareja.Jugador2).Name & " derrotó a " & userList(Pareja.Jugador1).Name & FONTTYPE_DESAFIO)
  29.         End If
  30.             If userList(Pareja.Jugador2).flags.muerto = 1 Then
  31.          Call WarpUserChar(Pareja.Jugador2, 1, 50, 50)
  32.                      Call WarpUserChar(Pareja.Jugador2, 1, 50, 50)
  33.                  userList(Pareja.Jugador2).flags.EnPareja = False
  34.                  userList(Pareja.Jugador2).flags.EsperaPareja = False
  35.                      userList(Pareja.Jugador1).flags.SuPareja = 0
  36.                  HayPareja = False
  37.          Call SendData(SendTarget.ToAll, 0, 0, "||El usuario " & userList(Pareja.Jugador1).Name & " derrotó a " & userList(Pareja.Jugador2).Name & FONTTYPE_DESAFIO)
  38.         End If
  39.        
  40.        
  41.             If userList(Pareja.Jugador2).flags.muerto = 1 Then
  42.            Call WarpUserChar(Pareja.Jugador1, 1, 50, 51)
  43.                        Call WarpUserChar(Pareja.Jugador2, 1, 50, 52)
  44.                userList(Pareja.Jugador2).flags.EnPareja = False
  45.                    userList(Pareja.Jugador2).flags.EsperaPareja = False
  46.                    userList(Pareja.Jugador2).flags.SuPareja = 0
  47.                    HayPareja = False
  48.                    
  49.         End If
  50.    
  51.     If userList(UserIndex).Pos.Map = 2 Then 'mapa de duelo para que sea sacado
  52.         Call WarpUserChar(UserIndex, 1, 64, 50, True)
  53.         Call SendData(ToIndex, UserIndex, 0, "||Has perdido el Desafio." & FONTTYPE_SERVER)
  54.     End If
  55.    
  56.     Dim AN As Integer
  57.    
  58.     AN = userList(UserIndex).flags.AtacadoPorNpc
  59.    
  60.     If AN > 0 Then
  61.         Npclist(AN).Movement = Npclist(AN).flags.OldMovement
  62.         Npclist(AN).Hostile = Npclist(AN).flags.OldHostil
  63.         Npclist(AN).flags.AttackedBy = ""
  64.     End If
  65.    
  66.     '<<<< Paralisis >>>>
  67.     If userList(UserIndex).flags.Paralizado = 1 Then
  68.         userList(UserIndex).flags.Paralizado = 0
  69.         Call SendData(SendTarget.ToIndex, UserIndex, 0, "PARADOK")
  70.        
  71.     End If
  72.    
  73.     '<<< Estupidez >>>
  74.     If userList(UserIndex).flags.Estupidez = 1 Then
  75.         userList(UserIndex).flags.Estupidez = 0
  76.         Call SendData(SendTarget.ToIndex, UserIndex, 0, "NESTUP")
  77.     End If
  78.    
  79.     '<<<< Descansando >>>>
  80.     If userList(UserIndex).flags.Descansar Then
  81.         userList(UserIndex).flags.Descansar = False
  82.         Call SendData(SendTarget.ToIndex, UserIndex, 0, "DOK")
  83.     End If
  84.    
  85.     '<<<< Meditando >>>>
  86.     If userList(UserIndex).flags.Meditando Then
  87.         userList(UserIndex).flags.Meditando = False
  88.         Call SendData(SendTarget.ToIndex, UserIndex, 0, "MEDOK")
  89.     End If
  90.    
  91.     '<<<< Invisible >>>>
  92.     If userList(UserIndex).flags.invisible = 1 Or userList(UserIndex).flags.Oculto = 1 Then
  93.         userList(UserIndex).flags.Oculto = 0
  94.         userList(UserIndex).flags.invisible = 0
  95.         'no hace falta encriptar este NOVER
  96.         Call SendData(SendTarget.ToMap, 0, userList(UserIndex).Pos.Map, "NOVER" & userList(UserIndex).Char.CharIndex & ",0")
  97.     End If
  98.    
  99.     If TriggerZonaPelea(UserIndex, UserIndex) <> TRIGGER6_PERMITE Then
  100.         ' << Si es newbie no pierde el inventario >>
  101.         If Not EsNewbie(UserIndex) Or Criminal(UserIndex) Then
  102.             Call TirarTodo(UserIndex)
  103.         Else
  104.             If EsNewbie(UserIndex) Then Call TirarTodosLosItemsNoNewbies(UserIndex)
  105.         End If
  106.     End If
  107.    
  108.     ' DESEQUIPA TODOS LOS OBJETOS
  109.     'desequipar armadura
  110.     If userList(UserIndex).Invent.ArmourEqpObjIndex > 0 Then
  111.         Call Desequipar(UserIndex, userList(UserIndex).Invent.ArmourEqpSlot)
  112.     End If
  113.     'desequipar arma
  114.     If userList(UserIndex).Invent.WeaponEqpObjIndex > 0 Then
  115.         Call Desequipar(UserIndex, userList(UserIndex).Invent.WeaponEqpSlot)
  116.     End If
  117.     'desequipar casco
  118.     If userList(UserIndex).Invent.CascoEqpObjIndex > 0 Then
  119.         Call Desequipar(UserIndex, userList(UserIndex).Invent.CascoEqpSlot)
  120.     End If
  121.     'desequipar herramienta
  122.     If userList(UserIndex).Invent.HerramientaEqpObjIndex > 0 Then
  123.         Call Desequipar(UserIndex, userList(UserIndex).Invent.HerramientaEqpSlot)
  124.     End If
  125.     'desequipar municiones
  126.     If userList(UserIndex).Invent.MunicionEqpObjIndex > 0 Then
  127.         Call Desequipar(UserIndex, userList(UserIndex).Invent.MunicionEqpSlot)
  128.     End If
  129.     'desequipar escudo
  130.     If userList(UserIndex).Invent.EscudoEqpObjIndex > 0 Then
  131.         Call Desequipar(UserIndex, userList(UserIndex).Invent.EscudoEqpSlot)
  132.     End If
  133.    
  134.     ' << Reseteamos los posibles FX sobre el personaje >>
  135.     If userList(UserIndex).Char.Loops = LoopAdEternum Then
  136.         userList(UserIndex).Char.fX = 0
  137.         userList(UserIndex).Char.Loops = 0
  138.     End If
  139.    
  140.     ' << Restauramos el mimetismo
  141.     If userList(UserIndex).flags.Mimetizado = 1 Then
  142.         userList(UserIndex).Char.Body = userList(UserIndex).CharMimetizado.Body
  143.         userList(UserIndex).Char.Head = userList(UserIndex).CharMimetizado.Head
  144.         userList(UserIndex).Char.CascoAnim = userList(UserIndex).CharMimetizado.CascoAnim
  145.         userList(UserIndex).Char.ShieldAnim = userList(UserIndex).CharMimetizado.ShieldAnim
  146.         userList(UserIndex).Char.WeaponAnim = userList(UserIndex).CharMimetizado.WeaponAnim
  147.         userList(UserIndex).Counters.Mimetismo = 0
  148.         userList(UserIndex).flags.Mimetizado = 0
  149.     End If
  150.    
  151.     '<< Cambiamos la apariencia del char >>
  152.     If userList(UserIndex).flags.Navegando = 0 Then
  153.         userList(UserIndex).Char.Body = iCuerpoMuerto
  154.         userList(UserIndex).Char.Head = iCabezaMuerto
  155.         userList(UserIndex).Char.ShieldAnim = NingunEscudo
  156.         userList(UserIndex).Char.WeaponAnim = NingunArma
  157.         userList(UserIndex).Char.CascoAnim = NingunCasco
  158.     Else
  159.         userList(UserIndex).Char.Body = iFragataFantasmal ';)
  160.     End If
  161.    
  162.     Dim i As Integer
  163.     For i = 1 To MAXMASCOTAS
  164.        
  165.         If userList(UserIndex).MascotasIndex(i) > 0 Then
  166.                If Npclist(userList(UserIndex).MascotasIndex(i)).Contadores.TiempoExistencia > 0 Then
  167.                     Call MuereNpc(userList(UserIndex).MascotasIndex(i), 0)
  168.                Else
  169.                     Npclist(userList(UserIndex).MascotasIndex(i)).MaestroUser = 0
  170.                     Npclist(userList(UserIndex).MascotasIndex(i)).Movement = Npclist(userList(UserIndex).MascotasIndex(i)).flags.OldMovement
  171.                     Npclist(userList(UserIndex).MascotasIndex(i)).Hostile = Npclist(userList(UserIndex).MascotasIndex(i)).flags.OldHostil
  172.                     userList(UserIndex).MascotasIndex(i) = 0
  173.                     userList(UserIndex).MascotasType(i) = 0
  174.                End If
  175.         End If
  176.        
  177.     Next i
  178.    
  179.     userList(UserIndex).NroMacotas = 0
  180.    
  181.     If Criminal(UserIndex) Then
  182.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "Z33")
  183.     Else
  184.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "Z34")
  185.     End If
  186.    
  187.     'If MapInfo(UserList(UserIndex).Pos.Map).Pk Then
  188.     '        Dim MiObj As Obj
  189.     '        Dim nPos As WorldPos
  190.     '        MiObj.ObjIndex = RandomNumber(554, 555)
  191.     '        MiObj.Amount = 1
  192.     '        nPos = TirarItemAlPiso(UserList(UserIndex).Pos, MiObj)
  193.     '        Dim ManchaSangre As New cGarbage
  194.     '        ManchaSangre.Map = nPos.Map
  195.     '        ManchaSangre.X = nPos.X
  196.     '        ManchaSangre.Y = nPos.Y
  197.     '        Call TrashCollector.Add(ManchaSangre)
  198.     'End If
  199.    
  200.     '<< Actualizamos clientes >>
  201.     Call ChangeUserChar(SendTarget.ToMap, 0, userList(UserIndex).Pos.Map, Val(UserIndex), userList(UserIndex).Char.Body, userList(UserIndex).Char.Head, userList(UserIndex).Char.Heading, NingunArma, NingunEscudo, NingunCasco)
  202.     Call SendUserStatsBox(UserIndex)
  203.     Call SendUserHitBox(UserIndex)
  204.     Call EnviarDopa(UserIndex)
  205.    
  206.    
  207.     '<<Castigos por party>>
  208.     If userList(UserIndex).PartyIndex > 0 Then
  209.         Call mdParty.ObtenerExito(UserIndex, userList(UserIndex).Stats.ELV * -10 * mdParty.CantMiembros(UserIndex), userList(UserIndex).Pos.Map, userList(UserIndex).Pos.X, userList(UserIndex).Pos.Y)
  210.     Exit Sub
  211.     End If
  212.  
  213.  
  214. If userList(UserIndex).flags.EnDuelo = True Then
  215. userList(UserIndex).flags.EnDuelo = False
  216. Call WarpUserChar(UserIndex, 1, 50, 50)
  217. Call SendData(SendTarget.ToAll, 0, 0, "||Duelos> " & userList(UserIndex).Name & " ha sido vencido." & FONTTYPE_TALK)
  218. Exit Sub
  219. End If
  220.  
  221.  
  222. ErrorHandler:
  223.     Call LogError("Error en SUB USERDIE. Error: " & Err.number & " Descripción: " & Err.Description)
  224. End Sub

Imagen
miqueas150
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13
Arriba

Nota » 11 Ene 2012 02:37

Nono , sabes lo que voy a hacer voy a tirar todo a la Mi** porque esto me tiene HARTA!

Imagen

Ilaisa
Ilaisa
<Aprendiendo a Programar>
227
Newbie [4]
Registrado: Diciembre 2011
Mensajes: 128
Arriba

Nota » 11 Ene 2012 02:40

Ilaisa escribió:Nono , sabes lo que voy a hacer voy a tirar todo a la Mi** porque esto me tiene HARTA!


xD no es para tanto :P

Imagen
miqueas150
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13
Arriba

Nota » 11 Ene 2012 02:47

miqueas150 escribió:
Ilaisa escribió:Nono , sabes lo que voy a hacer voy a tirar todo a la Mi** porque esto me tiene HARTA!


xD no es para tanto :P


Si porque no puede ser asi!, No toque nada, antes me compilaba lo mas bien y ahora me tira este error ,, CUALQUIERA, me tiene harta.

Imagen

Ilaisa
Ilaisa
<Aprendiendo a Programar>
227
Newbie [4]
Registrado: Diciembre 2011
Mensajes: 128
Arriba

Nota » 11 Ene 2012 02:51

Ilaisa escribió:
miqueas150 escribió:
Ilaisa escribió:Nono , sabes lo que voy a hacer voy a tirar todo a la Mi** porque esto me tiene HARTA!


xD no es para tanto :P


Si porque no puede ser asi!, No toque nada, antes me compilaba lo mas bien y ahora me tira este error ,, CUALQUIERA, me tiene harta.

Tal ves si te pusieras con algo mejor que 11.5 Mira te digo la verdad pasate a 13.0 Pero que este tipo de horrores si no tocas de mas no pasan
Ademas tamas optimizada xD xd

Imagen
miqueas150
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13
Arriba

Nota » 11 Ene 2012 02:53

Es que no me gusta 13.0 ,, :S.. me gusta mas el echo del agite :D .. pero no 13.0 xD

Imagen

Ilaisa
Ilaisa
<Aprendiendo a Programar>
227
Newbie [4]
Registrado: Diciembre 2011
Mensajes: 128
Arriba

Nota » 11 Ene 2012 02:54

Ilaisa escribió:Es que no me gusta 13.0 ,, :S.. me gusta mas el echo del agite :D .. pero no 13.0 xD

Dejemos de desvirtuar por que si no los mods no van a dar tabla xD

De ultima mandame mp y hablamos por hay
Última edición por miqueas150 el 11 Ene 2012 02:57, editado 1 vez en total

Imagen
miqueas150
Ninja en progreso
889
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4042
Aportes: 13
Arriba
Siguiente

Volver a AO 0.11.5

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados