If you are fishing for a species you cannot throw the rod (#438)

* If you are fishing for a species you cannot throw the rod If you are fishing for a species you cannot throw the rod * I modify stat report
ao-org · Nov 8, 2023 · df4a2d9 · df4a2d9
1 parent cd98b70
commit df4a2d9
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/Codigo/Modulo_UsUaRiOs.bas b/Codigo/Modulo_UsUaRiOs.bas
@@ -1806,7 +1806,9 @@ Sub SendUserMiniStatsTxt(ByVal sendIndex As Integer, ByVal UserIndex As Integer)
         '*************************************************
 100     With UserList(UserIndex)
 102         Call WriteConsoleMsg(sendIndex, "Pj: " & .Name, e_FontTypeNames.FONTTYPE_INFO)
-104         Call WriteConsoleMsg(sendIndex, "Ciudadanos Matados: " & .Faccion.ciudadanosMatados & " Criminales Matados: " & .Faccion.CriminalesMatados & " UsuariosMatados: " & .Stats.UsuariosMatados, e_FontTypeNames.FONTTYPE_INFO)
+            Call WriteConsoleMsg(sendIndex, "Ciudadanos Matados: " & .Faccion.ciudadanosMatados, e_FontTypeNames.FONTTYPE_INFO)
+            Call WriteConsoleMsg(sendIndex, "Criminales Matados: " & .Faccion.CriminalesMatados, e_FontTypeNames.FONTTYPE_INFO)
+104         Call WriteConsoleMsg(sendIndex, "UsuariosMatados: " & .Stats.UsuariosMatados, e_FontTypeNames.FONTTYPE_INFO)
 106         Call WriteConsoleMsg(sendIndex, "NPCsMuertos: " & .Stats.NPCsMuertos, e_FontTypeNames.FONTTYPE_INFO)
 108         Call WriteConsoleMsg(sendIndex, "Clase: " & ListaClases(.clase), e_FontTypeNames.FONTTYPE_INFO)
 110         Call WriteConsoleMsg(sendIndex, "Pena: " & .Counters.Pena, e_FontTypeNames.FONTTYPE_INFO)

diff --git a/Codigo/Protocol.bas b/Codigo/Protocol.bas
@@ -2289,6 +2289,7 @@ Private Sub HandleDrop(ByVal UserIndex As Integer)
             'If Not verifyTimeStamp(PacketCounter, .PacketCounters(Packet_ID), .PacketTimers(Packet_ID), .MacroIterations(Packet_ID), userindex, "Drop", PacketTimerThreshold(Packet_ID), MacroIterations(Packet_ID)) Then Exit Sub
 
 106         If Not IntervaloPermiteTirar(UserIndex) Then Exit Sub
+            If .flags.PescandoEspecial = True Then Exit Sub
 
 108         If amount <= 0 Then Exit Sub