GS-Zone
Facebook Twitter

dados maximos y minimos Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

3
Este tema se encuentra cerrado.

Nota » 06 Abr 2011 19:44

hola, les ueria preguntar como cambiar los dados maximos y minimos para el ao 12.2. gracias
Safiro
Programador...
Newbie [4]
Registrado: Años de membresía
Mensajes: 122
Arriba

Nota » 07 Abr 2011 13:01

Busca este sub:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub HandleThrowDices(ByVal UserIndex As Integer)
  2. '***************************************************
  3. 'Author: Juan Martín Sotuyo Dodero (Maraxus)
  4. 'Last Modification: 05/17/06
  5. '
  6. '***************************************************
  7.     'Remove packet ID
  8.     Call UserList(UserIndex).incomingData.ReadByte
  9.    
  10.     With UserList(UserIndex).Stats
  11.         .UserAtributos(eAtributos.Fuerza) = MaximoInt(15, 13 + RandomNumber(0, 3) + RandomNumber(0, 2))
  12.         .UserAtributos(eAtributos.Agilidad) = MaximoInt(15, 12 + RandomNumber(0, 3) + RandomNumber(0, 3))
  13.         .UserAtributos(eAtributos.Inteligencia) = MaximoInt(16, 13 + RandomNumber(0, 3) + RandomNumber(0, 2))
  14.         .UserAtributos(eAtributos.Carisma) = MaximoInt(15, 12 + RandomNumber(0, 3) + RandomNumber(0, 3))
  15.         .UserAtributos(eAtributos.Constitucion) = 16 + RandomNumber(0, 1) + RandomNumber(0, 1)
  16.     End With
  17.    
  18.     Call WriteDiceRoll(UserIndex)
  19. End Sub
  20.  


Y modifica los randomnumbers. O ponelo asi:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub HandleThrowDices(ByVal UserIndex As Integer)
  2. '***************************************************
  3. 'Author: Juan Martín Sotuyo Dodero (Maraxus)
  4. 'Last Modification: 05/17/06
  5. '
  6. '***************************************************
  7.     'Remove packet ID
  8.     Call UserList(UserIndex).incomingData.ReadByte
  9.    
  10.     With UserList(UserIndex).Stats
  11.         .UserAtributos(eAtributos.Fuerza) =  RandomNumber(15, 18)
  12.         .UserAtributos(eAtributos.Agilidad) =  RandomNumber(15, 18)
  13.         .UserAtributos(eAtributos.Inteligencia) =  RandomNumber(15, 18)
  14.         .UserAtributos(eAtributos.Carisma) =  RandomNumber(15, 18)
  15.         .UserAtributos(eAtributos.Constitucion) =RandomNumber(15, 18)
  16.     End With
  17.    
  18.     Call WriteDiceRoll(UserIndex)
  19. End Sub
  20.  
Franeg95
Aguante River Plate ! ! !
909
Moderador
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Villa adelina, Vicente Lopez.
Mensajes: 14427
Aportes: 305
Premios: 10
Señor Moderador (3) Señor Reglamento (1) Aportes (2) Embajador (3) Detector de Bugs (1)
Arriba

Nota » 10 Abr 2011 15:17

Gracias problema solucionado :)
Safiro
Programador...
Newbie [4]
Registrado: Años de membresía
Mensajes: 122
Arriba
Este tema se encuentra cerrado.

Volver a AO 0.12.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados