Yo acá hice un sub con un select case pasa la fraccion
- 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
pero no se que onda que no me anda
Espero que me sepan ayudar
Gracias y feliz año nuevo!






553![Destructor de Mentes [4] Destructor de Mentes [4]](./images/ranks/Rango16.gif)


![Destructor de Mentes [6] Destructor de Mentes [6]](./images/ranks/Rango18.gif)

![Dragon Ancestral [4] Dragon Ancestral [4]](./images/ranks/Rango33.gif)



![Dragon Ancestral [2] Dragon Ancestral [2]](./images/ranks/Rango31.gif)

![Dragon Ancestral [5] Dragon Ancestral [5]](./images/ranks/Rango34.gif)
