
Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación
395![Oraculo [5] Oraculo [5]](./images/ranks/Rango29.gif)
Mafia escribió:Sabé que a mi me pasa lo mismo.- Le conifguro las Stats, y lo hago criminal y aun así lo toma como ciudadano-
919![Dragon Ancestral [5] Dragon Ancestral [5]](./images/ranks/Rango34.gif)

755![Destructor de Mentes [12] Destructor de Mentes [12]](./images/ranks/Rango24.gif)
El problema de el era que el Ponia "fraccion" en Lugar de "faccion" osea los codigos chocaban entendes?Alkair escribió:Para mí el problema que tiene es este:...
- Sub Fracciones(ByVal Fraccion As String)
- Select Case Fraccion
- Case "Ciudadano"
- UserList(UserIndex).Reputacion.NobleRep = 99999
- UserList(UserIndex).Reputacion.PlebeRep = 9910
- UserList(UserIndex).Reputacion.AsesinoRep = -9951
- UserList(UserIndex).Reputacion.BandidoRep = -9942
- UserList(UserIndex).Reputacion.LadronesRep = -9999
- Case "Criminal"
- UserList(UserIndex).Reputacion.AsesinoRep = 99999
- UserList(UserIndex).Reputacion.BandidoRep = 99999
- UserList(UserIndex).Reputacion.LadronesRep = 99999
- UserList(UserIndex).Reputacion.NobleRep = -9999
- UserList(UserIndex).Reputacion.PlebeRep = -9999
- End Select
- End Sub
Problemas en ese Sub:
-La palabra "Fracción"...
-En ningún lado explica que si selecciona Criminal se vuelve Criminal, es decir, En el Case "Criminal" solo le sube la Reputación, pero no lo convierte en Criminal.
El código arreglado sería así:
- Sub Faacciones(ByVal Faccion As String)
- Select Case Faccion
- Case "Ciudadano"
- Call VolverCiudadano
- UserList(UserIndex).Reputacion.NobleRep = 99999
- UserList(UserIndex).Reputacion.PlebeRep = 9910
- UserList(UserIndex).Reputacion.AsesinoRep = -9951
- UserList(UserIndex).Reputacion.BandidoRep = -9942
- UserList(UserIndex).Reputacion.LadronesRep = -9999
- Case "Criminal"
- Call VolverCriminal
- UserList(UserIndex).Reputacion.AsesinoRep = 99999
- UserList(UserIndex).Reputacion.BandidoRep = 99999
- UserList(UserIndex).Reputacion.LadronesRep = 99999
- UserList(UserIndex).Reputacion.NobleRep = -9999
- UserList(UserIndex).Reputacion.PlebeRep = -9999
- End Select
- End Sub
Fijate, usa el Código arreglado de arriba y contame.
Suerte!

540![Oraculo [3] Oraculo [3]](./images/ranks/Rango27.gif)
-.AnDy.- escribió:El problema de el era que el Ponia "fraccion" en Lugar de "faccion" osea los codigos chocaban entendes?Alkair escribió:Para mí el problema que tiene es este:...
- Sub Fracciones(ByVal Fraccion As String)
- Select Case Fraccion
- Case "Ciudadano"
- UserList(UserIndex).Reputacion.NobleRep = 99999
- UserList(UserIndex).Reputacion.PlebeRep = 9910
- UserList(UserIndex).Reputacion.AsesinoRep = -9951
- UserList(UserIndex).Reputacion.BandidoRep = -9942
- UserList(UserIndex).Reputacion.LadronesRep = -9999
- Case "Criminal"
- UserList(UserIndex).Reputacion.AsesinoRep = 99999
- UserList(UserIndex).Reputacion.BandidoRep = 99999
- UserList(UserIndex).Reputacion.LadronesRep = 99999
- UserList(UserIndex).Reputacion.NobleRep = -9999
- UserList(UserIndex).Reputacion.PlebeRep = -9999
- End Select
- End Sub
Problemas en ese Sub:
-La palabra "Fracción"...
-En ningún lado explica que si selecciona Criminal se vuelve Criminal, es decir, En el Case "Criminal" solo le sube la Reputación, pero no lo convierte en Criminal.
El código arreglado sería así:
- Sub Faacciones(ByVal Faccion As String)
- Select Case Faccion
- Case "Ciudadano"
- Call VolverCiudadano
- UserList(UserIndex).Reputacion.NobleRep = 99999
- UserList(UserIndex).Reputacion.PlebeRep = 9910
- UserList(UserIndex).Reputacion.AsesinoRep = -9951
- UserList(UserIndex).Reputacion.BandidoRep = -9942
- UserList(UserIndex).Reputacion.LadronesRep = -9999
- Case "Criminal"
- Call VolverCriminal
- UserList(UserIndex).Reputacion.AsesinoRep = 99999
- UserList(UserIndex).Reputacion.BandidoRep = 99999
- UserList(UserIndex).Reputacion.LadronesRep = 99999
- UserList(UserIndex).Reputacion.NobleRep = -9999
- UserList(UserIndex).Reputacion.PlebeRep = -9999
- End Select
- End Sub
Fijate, usa el Código arreglado de arriba y contame.
Suerte!

755![Destructor de Mentes [12] Destructor de Mentes [12]](./images/ranks/Rango24.gif)
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados