En servidor buscamos:


Código:

Código:

Private Sub HandleThrowDices(ByVal UserIndex As Integer) 

Y reemplazamos todo ese sub por esto:


Private Sub HandleThrowDices(ByVal UserIndex As Integer)

Call UserList(UserIndex).incomingData.ReadByte

With UserList(UserIndex).Stats
.UserAtributos(eAtributos.Fuerza) = 18
.UserAtributos(eAtributos.Agilidad) = 18
.UserAtributos(eAtributos.Inteligencia) = 18
.UserAtributos(eAtributos.Carisma) = 18
.UserAtributos(eAtributos.Constitucion) = 18
End With

Call WriteDiceRoll(UserIndex)
End Sub

este es un aporte muy necesario para los servidores caseros aportazo segui asi