From 59f758c2e652cf383b2d5f0a4515292de287b562 Mon Sep 17 00:00:00 2001 From: Gapo2055 Date: Fri, 25 Oct 2024 10:45:01 -0300 Subject: [PATCH] Arenas, /est e items nws en boveda. Eliminamos items newbies de la boveda cuando se deja de ser newbie. Si moris en la arena no suma muerte, si matas en la arena no suma kill. Fix /est, agregamos la call para solicitar la info de los creditos antes de mostrarlos. --- Codigo/InvUsuario.bas | 14 +++++++++++++- Codigo/Modulo_UsUaRiOs.bas | 13 ++++++++++--- 2 files changed, 23 insertions(+), 4 deletions(-) diff --git a/Codigo/InvUsuario.bas b/Codigo/InvUsuario.bas index dfb11d02..c36f72c6 100644 --- a/Codigo/InvUsuario.bas +++ b/Codigo/InvUsuario.bas @@ -248,13 +248,25 @@ Sub QuitarNewbieObj(ByVal UserIndex As Integer) 110 Next j End If + + ' Eliminar items newbie de la boveda + For j = 1 To MAX_BANCOINVENTORY_SLOTS + If UserList(UserIndex).BancoInvent.Object(j).ObjIndex > 0 Then + If ObjData(UserList(UserIndex).BancoInvent.Object(j).ObjIndex).Newbie = 1 Then + UserList(UserIndex).BancoInvent.Object(j).ObjIndex = 0 + UserList(UserIndex).BancoInvent.Object(j).amount = 0 + Call UpdateBanUserInv(False, UserIndex, j, "QuitarNewbieObj") + End If + End If + Next j + 'Si el usuario dejó de ser Newbie, y estaba en el Newbie Dungeon 'Mandamos a la Isla de la Fortuna Call WarpUserChar(UserIndex, Renacimiento.Map, Renacimiento.x, Renacimiento.y, True) - Call WriteConsoleMsg(UserIndex, "Has dejado de ser Newbie, Te orientaremos que hacer ahora.", e_FontTypeNames.FONTTYPE_INFO) + Call WriteConsoleMsg(UserIndex, "Has dejado de ser Newbie.", e_FontTypeNames.FONTTYPE_INFO) Exit Sub diff --git a/Codigo/Modulo_UsUaRiOs.bas b/Codigo/Modulo_UsUaRiOs.bas index 1cfbb14a..946647ec 100644 --- a/Codigo/Modulo_UsUaRiOs.bas +++ b/Codigo/Modulo_UsUaRiOs.bas @@ -881,9 +881,13 @@ Sub ActStats(ByVal VictimIndex As Integer, ByVal AttackerIndex As Integer) End If 130 Call UserMod.UserDie(VictimIndex) -132 If UserList(AttackerIndex).Stats.UsuariosMatados < MAXUSERMATADOS Then -134 UserList(AttackerIndex).Stats.UsuariosMatados = UserList(AttackerIndex).Stats.UsuariosMatados + 1 + + If TriggerZonaPelea(attackerIndex, attackerIndex) <> TRIGGER6_PERMITE Then +132 If UserList(attackerIndex).Stats.UsuariosMatados < MAXUSERMATADOS Then +134 UserList(attackerIndex).Stats.UsuariosMatados = UserList(attackerIndex).Stats.UsuariosMatados + 1 + End If End If + Exit Sub ActStats_Err: @@ -1819,6 +1823,7 @@ Sub SendUserStatsTxt(ByVal sendIndex As Integer, ByVal UserIndex As Integer) 146 Call WriteConsoleMsg(sendIndex, "Total: " & TempStr, e_FontTypeNames.FONTTYPE_INFO) #End If + Call LoadPatronCreditsFromDB(UserIndex) 148 Call WriteConsoleMsg(sendIndex, "Oro: " & UserList(UserIndex).Stats.GLD, e_FontTypeNames.FONTTYPE_INFO) 150 Call WriteConsoleMsg(sendIndex, "Dados: " & UserList(UserIndex).Stats.UserAtributos(e_Atributos.Fuerza) & ", " & UserList(UserIndex).Stats.UserAtributos(e_Atributos.Agilidad) & ", " & UserList(UserIndex).Stats.UserAtributos(e_Atributos.Inteligencia) & ", " & UserList(UserIndex).Stats.UserAtributos(e_Atributos.Constitucion) & ", " & UserList(UserIndex).Stats.UserAtributos(e_Atributos.Carisma), e_FontTypeNames.FONTTYPE_INFO) 152 Call WriteConsoleMsg(sendIndex, "Veces que Moriste: " & UserList(UserIndex).flags.VecesQueMoriste, e_FontTypeNames.FONTTYPE_INFO) @@ -2186,7 +2191,9 @@ Sub UserDie(ByVal UserIndex As Integer) End If -188 .flags.VecesQueMoriste = .flags.VecesQueMoriste + 1 + If TriggerZonaPelea(UserIndex, UserIndex) <> TRIGGER6_PERMITE Then + .flags.VecesQueMoriste = .flags.VecesQueMoriste + 1 + End If ' << Restauramos los atributos >> 190 If .flags.TomoPocion Then