ShaW
Principiante
 Mensajes : 11
 Fecha de inscripción : 15/07/2011
 |  Tema: Dados 18/18  Vie Jul 15, 2011 3:39 pm | |
| 1.- Dados 18/18 En server, Protocol.bas, Buscamos el sub: - Código:
-
Private Sub HandleThrowDices(ByVal UserIndex As Integer) Y todo ese sub lo remplazamos por: - 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
Bien Facil! |
|
NazduM
Administrador
Mensajes : 239
Fecha de inscripción : 04/05/2011
 Edad : 26
 Localización : COMPU:)
 Sexo : 
| | Tema: Re: Dados 18/18 Vie Jul 15, 2011 3:44 pm | |
| Codigo sencillo y util 
Bien ! |
|
