Skip to content

Commit

Permalink
Merge pull request #375 from aledg994/frmGuildNews
Browse files Browse the repository at this point in the history
Ventana frmGuildNews
  • Loading branch information
RecoX authored Jul 5, 2024
2 parents 05e9699 + a70a7fb commit ae6c47f
Show file tree
Hide file tree
Showing 3 changed files with 191 additions and 202 deletions.
21 changes: 11 additions & 10 deletions CODIGO/Protocol.bas
Original file line number Diff line number Diff line change
Expand Up @@ -5958,18 +5958,18 @@ Private Sub HandleGuildNews()
ExpNe = Reader.ReadInt16()

With frmGuildNews
.Frame4.Caption = "Total: " & cantidad & " miembros" '"Lista de miembros" ' - " & cantidad & " totales"
.lblMiembros.Caption = cantidad

.expcount.Caption = expacu & "/" & ExpNe
.EXPBAR.Width = (((expacu + 1 / 100) / (ExpNe + 1 / 100)) * 2370)
.nivel = "Nivel: " & ClanNivel
.lblNivel = ClanNivel

If ExpNe > 0 Then

.porciento.Caption = Round(CDbl(expacu) * CDbl(100) / CDbl(ExpNe), 0) & "%"
Else
.porciento.Caption = "¡Nivel Maximo!"
.expcount.Caption = "¡Nivel Maximo!"
.porciento.Caption = "¡Nivel Máximo!"
.expcount.Caption = "¡Nivel Máximo!"

End If

Expand All @@ -5981,19 +5981,19 @@ Private Sub HandleGuildNews()
.beneficios = "Max miembros: 5"

Case 2
.beneficios = "Pedir ayuda (G) / Max miembros: 7"
.beneficios = "Pedir ayuda (G)" & vbCrLf & "Max miembros: 7"

Case 3
.beneficios = "Pedir ayuda (G) / Seguro de clan." & vbCrLf & "Max miembros: 7"
.beneficios = "Pedir ayuda (G)" & vbCrLf & "Seguro de clan" & vbCrLf & "Max miembros: 7"

Case 4
.beneficios = "Pedir ayuda (G) / Seguro de clan. " & vbCrLf & "Max miembros: 12"
.beneficios = "Pedir ayuda (G)" & vbCrLf & "Seguro de clan" & vbCrLf & "Max miembros: 12"

Case 5
.beneficios = "Pedir ayuda (G) / Seguro de clan / Ver vida y mana." & vbCrLf & " Max miembros: 15"
.beneficios = "Pedir ayuda (G)" & vbCrLf & "Seguro de clan" & vbCrLf & "Ver vida y mana" & vbCrLf & " Max miembros: 15"

Case 6
.beneficios = "Pedir ayuda (G) / Seguro de clan / Ver vida y mana/ Verse invisible." & vbCrLf & " Max miembros: 20"
.beneficios = "Pedir ayuda (G)" & vbCrLf & "Seguro de clan" & vbCrLf & "Ver vida y mana" & vbCrLf & "Verse invisible" & vbCrLf & " Max miembros: 20"

End Select

Expand Down Expand Up @@ -6346,7 +6346,8 @@ Private Sub HandleGuildDetails()
.nombre.Caption = GuildDetails.Name
.fundador.Caption = GuildDetails.Founder
.creacion.Caption = GuildDetails.CreationDate
.lider.Caption = GuildDetails.Leader
'.lider.Caption = GuildDetails.Leader
.lider.Caption = GuildDetails.Founder 'Provisoriamente hacemos que se muestre el fundador como lider
.miembros.Caption = GuildDetails.MemberCount

.lblAlineacion.Caption = GuildDetails.Aligment
Expand Down
Loading

0 comments on commit ae6c47f

Please sign in to comment.