Skip to content

Commit

Permalink
Merge pull request #450 from plusin/master
Browse files Browse the repository at this point in the history 
Cambios Fundar Clan
  • Loading branch information
@RecoX
RecoX authored Feb 13, 2024
2 parents d5d5763 + 1254cb4 commit ff33255
Show file tree
Hide file tree
Showing 2 changed files with 27 additions and 17 deletions.
10 changes: 5 additions & 5 deletions Codigo/Protocol.bas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -3509,7 +3509,7 @@ Private Sub HandleCreateNewGuild(ByVal UserIndex As Integer)
110 Call QuitarObjetos(407, 1, UserIndex)
112 Call QuitarObjetos(408, 1, UserIndex)
114 Call QuitarObjetos(409, 1, UserIndex)
116 Call QuitarObjetos(411, 1, UserIndex)
116 Call QuitarObjetos(412, 1, UserIndex)



Expand Down Expand Up @@ -8511,13 +8511,13 @@ Private Sub HandleQuieroFundarClan(ByVal UserIndex As Integer)
Exit Sub
End If

108 If UserList(userindex).Stats.ELV < 25 Or UserList(userindex).Stats.UserSkills(e_Skill.liderazgo) < 90 Then
110 Call WriteConsoleMsg(userindex, "Para fundar un clan debes ser nivel 25, tener 90 en liderazgo y tener en tu inventario las 2 gemas: Gema Polar(1), Gema Roja(1).", e_FontTypeNames.FONTTYPE_INFOIAO)
108 If UserList(UserIndex).Stats.ELV < 25 Or UserList(UserIndex).Stats.UserSkills(e_Skill.liderazgo) < 35 Then
110 Call WriteConsoleMsg(UserIndex, "Para fundar un clan debes ser nivel 25, tener 35 en liderazgo y tener en tu inventario las 4 gemas: Gema Polar(1), Gema Roja(1), Gema Azul (1), Gema Verde (1).", e_FontTypeNames.FONTTYPE_INFOIAO)
Exit Sub
End If

112 If Not TieneObjetos(407, 1, UserIndex) Or Not TieneObjetos(408, 1, UserIndex) Then
114 Call WriteConsoleMsg(userindex, "Para fundar un clan debes tener en tu inventario las 2 gemas: Gema Polar(1), Gema Roja(1).", e_FontTypeNames.FONTTYPE_INFOIAO)
112 If Not TieneObjetos(407, 1, UserIndex) Or Not TieneObjetos(408, 1, UserIndex) Or Not TieneObjetos(409, 1, UserIndex) Or Not TieneObjetos(412, 1, UserIndex) Then
114 Call WriteConsoleMsg(UserIndex, "Para fundar un clan debes tener en tu inventario las 4 gemas: Gema Polar(1), Gema Roja(1), Gema Azul (1), Gema Verde (1).", e_FontTypeNames.FONTTYPE_INFOIAO)
Exit Sub
End If

Expand Down
34 changes: 22 additions & 12 deletions Codigo/modGuilds.bas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -464,18 +464,28 @@ Public Function PuedeFundarUnClan(ByVal UserIndex As Integer, ByVal Alineacion A
Exit Function
End If

106 If UserList(userindex).Stats.ELV < 25 Or UserList(userindex).Stats.UserSkills(e_Skill.liderazgo) < 90 Then
108 refError = "Para fundar un clan debes ser nivel 25, tener 90 puntos en liderazgo y tener en tu inventario las Gemas Polar y Roja (Fundación)."
106 If UserList(UserIndex).Stats.ELV < 25 Or UserList(UserIndex).Stats.UserSkills(e_Skill.liderazgo) < 35 Then
108 refError = "Para fundar un clan debes ser nivel 25, tener 35 puntos en liderazgo y tener en tu inventario las Gemas Azul, Polar, Roja y Verde (Fundación)."
Exit Function
End If

110 If Not TieneObjetos(407, 1, UserIndex) Then
112 refError = "Para fundar un clan debes ser nivel 25, tener 90 puntos en liderazgo y tener en tu inventario las Gemas Polar y Roja (Fundación)."
112 refError = "Para fundar un clan debes ser nivel 25, tener 35 puntos en liderazgo y tener en tu inventario las Gemas Azul, Polar, Roja y Verde (Fundación)."
Exit Function
End If

114 If Not TieneObjetos(408, 1, UserIndex) Then
116 refError = "Para fundar un clan debes ser nivel 25, tener 90 puntos en liderazgo y tener en tu inventario las Gemas Polar y Roja (Fundación)."
116 refError = "Para fundar un clan debes ser nivel 25, tener 35 puntos en liderazgo y tener en tu inventario las Gemas Azul, Polar, Roja y Verde (Fundación)."
Exit Function
End If

121 If Not TieneObjetos(409, 1, UserIndex) Then
122 refError = "Para fundar un clan debes ser nivel 25, tener 35 puntos en liderazgo y tener en tu inventario las Gemas Azul, Polar, Roja y Verde (Fundación)."
Exit Function
End If

123 If Not TieneObjetos(412, 1, UserIndex) Then
124 refError = "Para fundar un clan debes ser nivel 25, tener 35 puntos en liderazgo y tener en tu inventario las Gemas Azul, Polar, Roja y Verde (Fundación)."
Exit Function
End If

Expand All @@ -484,23 +494,23 @@ Public Function PuedeFundarUnClan(ByVal UserIndex As Integer, ByVal Alineacion A
Exit Function
End If

118 Select Case Alineacion
125 Select Case Alineacion
Case e_ALINEACION_GUILD.ALINEACION_NEUTRAL
120 If status(UserIndex) = e_Facciones.Caos Or status(UserIndex) = e_Facciones.Armada Or status(UserIndex) = e_Facciones.consejo Or status(UserIndex) = e_Facciones.concilio Then
122 refError = "Para fundar un clan neutral deberás ser ciudadano o criminal."
126 If status(UserIndex) = e_Facciones.Caos Or status(UserIndex) = e_Facciones.Armada Or status(UserIndex) = e_Facciones.consejo Or status(UserIndex) = e_Facciones.concilio Then
127 refError = "Para fundar un clan neutral deberás ser ciudadano o criminal."
Exit Function
End If

124 Case e_ALINEACION_GUILD.ALINEACION_ARMADA
128 Case e_ALINEACION_GUILD.ALINEACION_ARMADA

126 If status(UserIndex) <> e_Facciones.Armada And status(UserIndex) <> e_Facciones.consejo Then
128 refError = "Para fundar un clan de la Armada Real deberás pertenecer a la misma."
129 If status(UserIndex) <> e_Facciones.Armada And status(UserIndex) <> e_Facciones.consejo Then
130 refError = "Para fundar un clan de la Armada Real deberás pertenecer a la misma."
Exit Function
End If

130 Case e_ALINEACION_GUILD.ALINEACION_CAOTICA
131 Case e_ALINEACION_GUILD.ALINEACION_CAOTICA
132 If status(UserIndex) <> e_Facciones.Caos And status(UserIndex) <> e_Facciones.concilio Then
134 refError = "Para fundar un clan de la Legión Oscura deberás pertenecer a la misma."
133 refError = "Para fundar un clan de la Legión Oscura deberás pertenecer a la misma."
Exit Function
End If

Expand Down

0 comments on commit ff33255

Please sign in to comment.