Merge pull request #509 from Wyr0X/fix-retirar-faccion

Fix la función PersonajeEsLeader debe llamarse con el Id del usuario …
ao-org · Feb 29, 2024 · 0a3dd16 · 0a3dd16
2 parents 649cc5f + 3afbe72
commit 0a3dd16
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/Codigo/ModFacciones.bas b/Codigo/ModFacciones.bas
@@ -294,7 +294,7 @@ Public Sub EnlistarCaos(ByVal UserIndex As Integer)
 
                 'HarThaoS: Lo pongo al final para que lo expulse del clan solamente si cumple todos los requisitos.
 146             If .GuildIndex > 0 Then
-148                 If PersonajeEsLeader(.name) Then
+148                 If PersonajeEsLeader(.Id) Then
                         'Si el clan es neutral no lo dejo, le digo que tiene que salir del clan para poder enlistarse
                         If GuildAlignmentIndex(.GuildIndex) = e_ALINEACION_GUILD.ALINEACION_NEUTRAL Then
                             Call WriteChatOverHead(UserIndex, "No puedes integrar nuestras fuerzas si perteneces a un clan neutral, deberás abandonarlo si tu deseo es integrar la Legión Oscura.", charIndexStr, vbWhite)

diff --git a/Codigo/Protocol.bas b/Codigo/Protocol.bas
@@ -6308,7 +6308,7 @@ Private Sub HandleLeaveFaction(ByVal UserIndex As Integer)
                         'Si tiene clan
 130                     If .GuildIndex > 0 Then
                             'Y no es leader
-132                         If Not PersonajeEsLeader(.Name) Then
+132                         If Not PersonajeEsLeader(.Id) Then
                                 'Me fijo de que alineación es el clan, si es ARMADA, lo hecho
                                 If GuildAlignmentIndex(.GuildIndex) = e_ALINEACION_GUILD.ALINEACION_ARMADA Then
                                     Call m_EcharMiembroDeClan(UserIndex, .name)
@@ -6336,7 +6336,7 @@ Private Sub HandleLeaveFaction(ByVal UserIndex As Integer)
                         'Si tiene clan
                          If .GuildIndex > 0 Then
                             'Y no es leader
-                            If Not PersonajeEsLeader(.name) Then
+                            If Not PersonajeEsLeader(.Id) Then
                                 'Me fijo de que alineación es el clan, si es CAOS, lo hecho
                                 If GuildAlignmentIndex(.GuildIndex) = e_ALINEACION_GUILD.ALINEACION_CAOTICA Then
                                     Call m_EcharMiembroDeClan(UserIndex, .name)

diff --git a/Codigo/Trabajo.bas b/Codigo/Trabajo.bas
@@ -2291,7 +2291,7 @@ Public Sub DoRobar(ByVal LadronIndex As Integer, ByVal VictimaIndex As Integer)
             If .GuildIndex > 0 Then
                 'Si tiene clan me fijo si su clan es de alineación ciudadana
                 If esCiudadano(LadronIndex) And GuildAlignmentIndex(.GuildIndex) = e_ALINEACION_GUILD.ALINEACION_CIUDADANA Then
-                    If PersonajeEsLeader(.name) Then
+                    If PersonajeEsLeader(.Id) Then
                         Call WriteConsoleMsg(LadronIndex, "No puedes robar siendo lider de un clan ciudadano.", e_FontTypeNames.FONTTYPE_FIGHT)
                         Exit Sub
                     End If