Merge pull request #650 from Gapo2055/Muertes,-Kills-y-/est

Arenas, /est e items nws en boveda.
ao-org · Oct 26, 2024 · e91e098 · e91e098
2 parents e1cc710 + 59f758c
commit e91e098
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 4 deletions.
diff --git 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
@@ -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