Buenas, tengo un problema con este codigo

SERVIDOR:

Buscar:

MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
Public Const NUMRAZAS As Byte = 5


Y reemplzaralo por:

MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
Public Const NUMRAZAS As Byte = 6



Buscar:


MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
ListaRazas(5) = "Enano"



Y abajo agregar:

MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
ListaRazas(6) = "Orco"


En el Sub DarCuerpoYCabeza, en la parte que especifica el cuerpo y la cabeza del hombre, buscar:

MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO

Case "Enano"
UserHead = RandomNumber(1, 5) + 300
UserBody = 52


Y abajo agregar:


MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
Case "Orco"
UserHead = RandomNumber(1, 5) + 300 - Aca cambiar por la cabeza de orco
UserBody = 52 ? cambiar esto porel cuerpo del orco


Luego, vamos a la parte de la mujer, y tenemos que buscar:


MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
Case "Enano"
UserHead = RandomNumber(1, 3) + 369
UserBody = 52


Abajo agregar:


MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
Case "Orco"
UserHead = RandomNumber(1, 3) + 369 ? Cambiar por la cabeza de la Orco
UserBody = 52 '? Cambiar por la cabeza del Orco.


Buscar:


MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
Case "ENANO"
Select Case UCase$(UserList(UserIndex).Genero)
Case "HOMBRE"
If Mimetizado Then
UserList(UserIndex).CharMimetizado.Body = 53
Else
UserList(UserIndex).Char.Body = 53
End If
Case "MUJER"
If Mimetizado Then
UserList(UserIndex).CharMimetizado.Body = 60
Else
UserList(UserIndex).Char.Body = 60
End If


Abajo agregar:


MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
Case "Orco"
Select Case UCase$(UserList(UserIndex).Genero)
Case "HOMBRE"
If Mimetizado Then
UserList(UserIndex).CharMimetizado.Body = 53
Else
UserList(UserIndex).Char.Body = 53
End If
Case "MUJER"
If Mimetizado Then
UserList(UserIndex).CharMimetizado.Body = 60
Else
UserList(UserIndex).Char.Body = 60
End If


Luego, buscamos:


MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
Case "ENANO"
UserList(UserIndex).Stats.UserAtributos(eAtributos .Fuerza) = UserList(UserIndex).Stats.UserAtributos(eAtributos .Fuerza) + 3
UserList(UserIndex).Stats.UserAtributos(eAtributos .Constitucion) = UserList(UserIndex).Stats.UserAtributos(eAtributos .Constitucion) + 3
UserList(UserIndex).Stats.UserAtributos(eAtributos .Inteligencia) = UserList(UserIndex).Stats.UserAtributos(eAtributos .Inteligencia) - 6
UserList(UserIndex).Stats.UserAtributos(eAtributos .Agilidad) = UserList(UserIndex).Stats.UserAtributos(eAtributos .Agilidad) - 1
UserList(UserIndex).Stats.UserAtributos(eAtributos .Carisma) = UserList(UserIndex).Stats.UserAtributos(eAtributos .Carisma) ? 2


Y Abajo agregamos:


MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
Case "Orco"
UserList(UserIndex).Stats.UserAtributos(eAtributos .Fuerza) = UserList(UserIndex).Stats.UserAtributos(eAtributos .Fuerza) + 3
UserList(UserIndex).Stats.UserAtributos(eAtributos .Constitucion) = UserList(UserIndex).Stats.UserAtributos(eAtributos .Constitucion) + 3
UserList(UserIndex).Stats.UserAtributos(eAtributos .Inteligencia) = UserList(UserIndex).Stats.UserAtributos(eAtributos .Inteligencia) - 5
UserList(UserIndex).Stats.UserAtributos(eAtributos .Agilidad) = UserList(UserIndex).Stats.UserAtributos(eAtributos .Agilidad) - 2
UserList(UserIndex).Stats.UserAtributos(eAtributos .Carisma) = UserList(UserIndex).Stats.UserAtributos(eAtributos .Carisma) ? 6



Bueno, aca ya tenemos hecha la parte del servidor?


CLIENTE


Buscar:

MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
Public Const NUMRAZAS As Byte = 5


Y reemplazar por:

MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
Public Const NUMRAZAS As Byte = 6


Luego, buscar:

MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO

ListaRazas(5) = "Enano"



Y abajo agregar:


MOSTRAR TODO EL CÓDIGO | NUMERO DE LINEA | OCULTAR/MOSTRAR | SELECCIONAR TODO
ListaRazas(6) = "Orco"

cuando lo añado a mi ao todo lindo funciona la clase orca, pero no puedo equipar ropajes ya que dice en TODAS las ropas que esta prohibida para mi genero, raza o clase, HELPPP!

Emm.. que raro lastima el mamarracho que hisite arriba hubieras dejado el link del aporte era màs facil, agregaste todo no te falto nada. Revisà

jajaja soy nuevo aca, y el codigo lo copie asi nomas porque el aporte no lo encontre y lo tenia asi en un bloc de notas , esta todo bien puesto :_

Fijate si tenes esto:



Y abajo

ya lo tenia añadido

A si tenes razon eso es para el combox ajajaja mande cualquiera DDDDD, no se me ocurre que podra ser

Debe ser una boludes encima

gracias por intentar ayudarme igual loco, suerte

Fijate acà, baja hasta ver el codigo que es largo, fijate si tenes el mismo y corroborà si tenes todo

raza_orca_t4zO.html

jaja de ai fue que lo saque, sisi tengo todo, pq ya fui buscando cada cosa que habia que agregar con el vb y me fije que estuvieran en el lugar correcto, u,u

impa@live.com.ar, Agregame que manana te ayudo, ahora no estoy en mi PC ya implemente ese codigo y me anduvo de 10 debe ser una boludes..

Busca



y abajo pone



y listo.

Ahora tengo otro problema, cuando el orco desequipa una ropa, aparece con cuerpo de humano, que hago?