ZankuR
Director
Cantidad de envíos : 107
Fecha de inscripción : 19/07/2013
 | Tema: Dados 18/18  Dom Ago 11, 2013 4:56 pm | |
| En server, Protocol.bas Buscamos: - Código:
-
Private Sub HandleThrowDices(ByVal UserIndex As Integer) Y remplazamos ese sub por este : - Código:
-
Private Sub HandleThrowDices(ByVal UserIndex As Integer)
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modification: 05/17/06
'
'***************************************************
'Remove packet ID
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 Fuente Gs-Zone | |
|
