Comando /Cirujia (REPARADO)

Todo en el servidor:

Buscamos:



Select Case UCase$(Left$(rData, )



Y debajo colocamos:



Case "/CIRUJIA"

If UserList(UserIndex).flags.Muerto = 1 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡¡Estas muerto!!" & FONTTYPE_INFO)
ElseIf UserList(UserIndex).flags.TargetNPC = 0 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Primero tenes que seleccionar un personaje, hace click izquierdo sobre el." & FONTTYPE_INFO)
ElseIf Distancia(Npclist(UserList(UserIndex).flags.TargetNPC).Pos, UserList(UserIndex).Pos) > 10 Then
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Estas demasiado lejos." & FONTTYPE_INFO)
ElseIf Npclist(UserList(UserIndex).flags.TargetNPC).NPCtype <> eNPCType.Cirujano Then
Exit Sub
Else
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Espero que te guste tu nueva cara!" & "°" & str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.CharIndex))
End If

Select Case UserList(UserIndex).Raza
Case "Humano"

Select Case UserList(UserIndex).Genero


Case "Hombre"
UserList(UserIndex).Char.Head = RandomNumber(1, 30)
UserList(UserIndex).OrigChar.Head = UserList(UserIndex).Char.Head



Case "Mujer"
UserList(UserIndex).Char.Head = RandomNumber(1, 7) + 69
UserList(UserIndex).OrigChar.Head = UserList(UserIndex).Char.Head
End Select



Case "Elfo"

Select Case UserList(UserIndex).Genero
Case "Hombre"
UserList(UserIndex).Char.Head = RandomNumber(1, 13) + 100
UserList(UserIndex).OrigChar.Head = UserList(UserIndex).Char.Head

Case "Mujer"
UserList(UserIndex).Char.Head = RandomNumber(1, 7) + 169
UserList(UserIndex).OrigChar.Head = UserList(UserIndex).Char.Head

End Select



Case "Elfo oscuro"

Select Case UserList(UserIndex).Genero
Case "Hombre"
UserList(UserIndex).Char.Head = RandomNumber(1, + 201
UserList(UserIndex).OrigChar.Head = UserList(UserIndex).Char.Head



Case "Mujer"
UserList(UserIndex).Char.Head = RandomNumber(1, 11) + 269
UserList(UserIndex).OrigChar.Head = UserList(UserIndex).Char.Head

End Select



Case "Enano"

Select Case UserList(UserIndex).Genero

Case "Hombre"

UserList(UserIndex).Char.Head = RandomNumber(1, 5) + 300
UserList(UserIndex).OrigChar.Head = UserList(UserIndex).Char.Head


Case "Mujer"
UserList(UserIndex).Char.Head = RandomNumber(1, 3) + 369
UserList(UserIndex).OrigChar.Head = UserList(UserIndex).Char.Head

End Select


Case "Gnomo"

Select Case UserList(UserIndex).Genero

Case "Hombre"
UserList(UserIndex).Char.Head = RandomNumber(1, 6) + 400
UserList(UserIndex).OrigChar.Head = UserList(UserIndex).Char.Head



Case "Mujer"
UserList(UserIndex).Char.Head = RandomNumber(1, 5) + 469
UserList(UserIndex).OrigChar.Head = UserList(UserIndex).Char.Head

End Select
End Select

Call WriteVar(CharPath & UCase(UserList(UserIndex).name) & ".chr", "INIT", "Head", str(UserList(UserIndex).OrigChar.Head))
Call ChangeUserChar(SendTarget.ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)


Exit Sub



Buscamos:



Public Enum eNPCType



Y agregamos



Cirujano = X



(*) La X sera igual al ultimo que este dentro del enum +1. Ejemplo: El ultimo es Gobernador = 11 entonces X = 12 (Cirujano = 12)

Te recomiendo ponerle las etiquetas "CODE" y "/CODE" pero con [ y ].

Asi se organiza más el post.

Buen aporte igual.