Problema retos1vs1 (no cuenta ronda)

Guarde

Newbie Lvl 3
Hace rato no me paso por aca y tengo un problema que no lo puedo solucionar.. la verdad arranque hace poco en VB y estoy teniendo problemas para solucionar esto..
Mi problema es el siguiente, implemente los retos 1v1 hasta ahi todo bien, el tema es que al matar al usuario no me cuenta la ronda 1.. lo hice a 2 rondas..
Ejemplo: (usuario1) mata a (usuario2), (usuario2) queda hecho un espiritu, no me cuenta el reto.. tengo que poner /kill (usuario2) para que me cuente, es decir que cuando el usuario2 está muerto, tengo que volver a matarlo para que me cuente como 1 ronda ganada..

En el Sub UserDie..
If UserList(UserIndex).flags.estanenreto = True Then Call Terminaelreto(UserIndex) End If

Aca tambien dejo el Sub Terminaelreto

Public Sub Terminaelreto(ByVal Morido As Integer) Dim ElOtro As Integer If UserList(Morido).flags.estanenreto = False Then Exit Sub ElOtro = UserList(Morido).flags.RetandoCon If UserList(Morido).flags.ModoRetoPlante = 0 Then If UserList(Morido).flags.Arena = 1 And UserList(Morido).flags.Muerto = 1 Then Call WarpUserChar(Morido, RetoMap, 34, 66, True) Call WarpUserChar(ElOtro, RetoMap, 52, 76, True) UserList(Morido).flags.Navegando = 1 UserList(ElOtro).flags.Navegando = 1 UserList(ElOtro).flags.DueloGanado = UserList(ElOtro).flags.DueloGanado + 1 If UserList(ElOtro).flags.DueloGanado = 1 Then Call RevivirUsuarioNPC(Morido) If UserList(ElOtro).flags.DueloGanado = 1 Then CuentaDeRetox = 10 End If End If If UserList(Morido).flags.Arena = 2 And UserList(Morido).flags.Muerto = 1 Then Call WarpUserChar(Morido, RetoMap, 34, 46, True) Call WarpUserChar(ElOtro, RetoMap, 49, 54, True) UserList(Morido).flags.Navegando = 1 UserList(ElOtro).flags.Navegando = 1 UserList(ElOtro).flags.DueloGanado = UserList(ElOtro).flags.DueloGanado + 1 If UserList(ElOtro).flags.DueloGanado = 1 Then Call RevivirUsuarioNPC(Morido) If UserList(ElOtro).flags.DueloGanado = 1 Then CuentaDeReto1x = 10 End If End If If UserList(Morido).flags.Arena = 3 And UserList(Morido).flags.Muerto = 1 Then Call WarpUserChar(Morido, RetoMap, 13, 23, True) Call WarpUserChar(ElOtro, RetoMap, 31, 36, True) UserList(Morido).flags.Navegando = 1 UserList(ElOtro).flags.Navegando = 1 UserList(ElOtro).flags.DueloGanado = UserList(ElOtro).flags.DueloGanado + 1 If UserList(ElOtro).flags.DueloGanado = 1 Then Call RevivirUsuarioNPC(Morido) If UserList(ElOtro).flags.DueloGanado = 1 Then CuentaDeReto2x = 10 End If End If If UserList(Morido).flags.Arena = 4 And UserList(Morido).flags.Muerto = 1 Then Call WarpUserChar(Morido, RetoMap, 44, 22, True) Call WarpUserChar(ElOtro, RetoMap, 63, 32, True) UserList(Morido).flags.Navegando = 1 UserList(ElOtro).flags.Navegando = 1 UserList(ElOtro).flags.DueloGanado = UserList(ElOtro).flags.DueloGanado + 1 If UserList(ElOtro).flags.DueloGanado = 1 Then Call RevivirUsuarioNPC(Morido) If UserList(ElOtro).flags.DueloGanado = 1 Then CuentaDeReto3x = 10 End If End If End If If UserList(Morido).flags.ModoRetoPlante = 1 Then If UserList(Morido).flags.Arenaplante = 1 And UserList(Morido).flags.Muerto = 1 Then Call WarpUserChar(Morido, RetoMap, X1x, Y1x, True) Call WarpUserChar(ElOtro, RetoMap, X2x, Y2x, True) UserList(Morido).flags.NoatacaPlante = 1 UserList(ElOtro).flags.NoatacaPlante = 1 UserList(ElOtro).flags.DueloGanado = UserList(ElOtro).flags.DueloGanado + 1 If UserList(ElOtro).flags.DueloGanado = 1 Then Call RevivirUsuarioNPC(Morido) If UserList(ElOtro).flags.DueloGanado = 1 Then CuentaDeReto = 10 Call SendData(ToIndex, Morido, 0, "PU" & DesteEncripTE(UserList(Morido).POS.X & "," & UserList(Morido).POS.Y)) End If End If If UserList(Morido).flags.Arenaplante = 2 And UserList(Morido).flags.Muerto = 1 Then Call WarpUserChar(Morido, RetoMap, X3x, Y3x, True) Call WarpUserChar(ElOtro, RetoMap, X4x, Y4x, True) UserList(Morido).flags.NoatacaPlante = 1 UserList(ElOtro).flags.NoatacaPlante = 1 UserList(ElOtro).flags.DueloGanado = UserList(ElOtro).flags.DueloGanado + 1 If UserList(ElOtro).flags.DueloGanado = 1 Then Call RevivirUsuarioNPC(Morido) If UserList(ElOtro).flags.DueloGanado = 1 Then CuentaDeReto1 = 10 Call SendData(ToIndex, Morido, 0, "PU" & DesteEncripTE(UserList(Morido).POS.X & "," & UserList(Morido).POS.Y)) End If End If If UserList(Morido).flags.Arenaplante = 3 And UserList(Morido).flags.Muerto = 1 Then Call WarpUserChar(Morido, RetoMap, X5x, Y5x, True) Call WarpUserChar(ElOtro, RetoMap, X6x, Y6x, True) UserList(Morido).flags.NoatacaPlante = 1 UserList(ElOtro).flags.NoatacaPlante = 1 UserList(ElOtro).flags.DueloGanado = UserList(ElOtro).flags.DueloGanado + 1 If UserList(ElOtro).flags.DueloGanado = 1 Then Call RevivirUsuarioNPC(Morido) If UserList(ElOtro).flags.DueloGanado = 1 Then CuentaDeReto2 = 10 Call SendData(ToIndex, Morido, 0, "PU" & DesteEncripTE(UserList(Morido).POS.X & "," & UserList(Morido).POS.Y)) End If End If If UserList(Morido).flags.Arenaplante = 4 And UserList(Morido).flags.Muerto = 1 Then Call WarpUserChar(Morido, RetoMap, X7x, Y7x, True) Call WarpUserChar(ElOtro, RetoMap, X8x, Y8x, True) UserList(Morido).flags.NoatacaPlante = 1 UserList(ElOtro).flags.NoatacaPlante = 1 UserList(ElOtro).flags.DueloGanado = UserList(ElOtro).flags.DueloGanado + 1 If UserList(ElOtro).flags.DueloGanado = 1 Then Call RevivirUsuarioNPC(Morido) If UserList(ElOtro).flags.DueloGanado = 1 Then CuentaDeReto3 = 10 Call SendData(ToIndex, Morido, 0, "PU" & DesteEncripTE(UserList(Morido).POS.X & "," & UserList(Morido).POS.Y)) End If End If End If If UserList(ElOtro).flags.DueloGanado = 2 Then Call WarpUserChar(Morido, 160, 51, 52, True) Call WarpUserChar(ElOtro, 160, 52, 52, True) Call SendData(ToMap, 0, 160, "||Reto> " & UserList(ElOtro).Name & " [" & UserList(ElOtro).flags.DueloGanado & "] Gana a [" & UserList(Morido).flags.DueloGanado & "] " & UserList(Morido).Name & ". Apuesta por " & PonerPuntos(UserList(Morido).flags.CantidadR) & " monedas de oro." & FONTTYPE_BLANKO) UserList(ElOtro).flags.tampocoteSale = False UserList(Morido).flags.tampocoteSale = False UserList(ElOtro).flags.notesaleelbug = False UserList(Morido).flags.notesaleelbug = False UserList(ElOtro).flags.estanenreto = False UserList(Morido).flags.estanenreto = False UserList(ElOtro).flags.Retandocon = 0 UserList(Morido).flags.Retandocon= 0 Rem reseteo flags. UserList(ElOtro).Stats.GLD = UserList(ElOtro).Stats.GLD + UserList(ElOtro).flags.CantidadR UserList(Morido).Stats.GLD = UserList(Morido).Stats.GLD - UserList(Morido).flags.CantidadR UserList(ElOtro).Stats.GLD = UserList(ElOtro).Stats.GLD + 5 Call SendUserREP(ElOtro) Call SendUserORO(ElOtro) Call SendUserORO(Morido) UserList(ElOtro).flags.RetosGanados = UserList(ElOtro).flags.RetosGanados + 1 UserList(Morido).flags.RetosPerdidos = UserList(ElOtro).flags.RetosPerdidos + 1 Call LogRetos(UserList(ElOtro).Name, "" & UserList(Morido).Name & " Ganador: " & UserList(ElOtro).Name & " Apuesta por: " & PonerPuntos(UserList(Morido).flags.CantidadR) & " " & " ", False) UserList(ElOtro).flags.CantidadR = 0 Rem reseteo los flags UserList(Morido).flags.CantidadR = 0 UserList(ElOtro).flags.NoAceptasSinFlag = False UserList(Morido).flags.NoAceptasSinFlag = False If UserList(ElOtro).flags.Arena = 1 Then Arena1 = False salallena = salallena - 1 ElseIf UserList(ElOtro).flags.Arena = 2 Then Arena2 = False salallena = salallena - 1 ElseIf UserList(ElOtro).flags.Arena = 3 Then Arena3 = False salallena = salallena - 1 ElseIf UserList(ElOtro).flags.Arena = 4 Then Arena4 = False salallena = salallena - 1 End If If UserList(ElOtro).flags.Arenaplante = 1 Then ArenaPlante1 = False salallenaplante = salallenaplante - 1 ElseIf UserList(ElOtro).flags.Arenaplante = 2 Then ArenaPlante2 = False salallenaplante = salallenaplante - 1 ElseIf UserList(ElOtro).flags.Arenaplante = 3 Then ArenaPlante3 = False salallenaplante = salallenaplante - 1 ElseIf UserList(ElOtro).flags.Arenaplante = 4 Then ArenaPlante4 = False salallenaplante = salallenaplante - 1 End If UserList(ElOtro).flags.Arena = 0 UserList(Morido).flags.Arena = 0 UserList(ElOtro).flags.Arenaplante = 0 UserList(Morido).flags.Arenaplante = 0 UserList(ElOtro).flags.DueloGanado = 0 UserList(Morido).flags.DueloGanado = 0 UserList(ElOtro).flags.RetoSinCanje = 0 UserList(Morido).flags.RetoSinCanje = 0 UserList(ElOtro).flags.ModoRetoPlante = 0 UserList(Morido).flags.ModoRetoPlante = 0 UserList(ElOtro).flags.NoatacaPlante = 0 UserList(Morido).flags.NoatacaPlante = 0 UserList(ElOtro).flags.Navegando = 0 UserList(Morido).flags.Navegando = 0 UserList(ElOtro).flags.RetoBUGP = 0 UserList(ElOtro).flags.RetoBUGPE = 0 UserList(ElOtro).flags.RetoBUGPED = 0 UserList(ElOtro).flags.RetoBUGA = 0 UserList(ElOtro).flags.RetoBUGAE = 0 UserList(ElOtro).flags.RetoBUGAED = 0 UserList(Morido).flags.RetoBUGP = 0 UserList(Morido).flags.RetoBUGPE = 0 UserList(Morido).flags.RetoBUGPED = 0 UserList(Morido).flags.RetoBUGA = 0 UserList(Morido).flags.RetoBUGAE = 0 UserList(Morido).flags.RetoBUGAED = 0 Exit Sub End If End Sub
Espero y puedan darme una mano..
 
Arriba