Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Cambios Fundar Clan #450

Merged
merged 1 commit into from
Feb 13, 2024
Merged

Cambios Fundar Clan #450

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 5 additions & 5 deletions Codigo/Protocol.bas
View file
Open in desktop
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
Open in desktop
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