hola, implemente a mi servidor un codigo para que dibuje la barra de vida debajo del personaje. Anda joya pero... NO SE VE LA BARRA :lol: osea, no me tiro error de compilacion, x eso digo que anda joya :mrgreen: pero cuando entro al juego no se ve la barra de vida debajo del personaje, que hice mal? :|

If UCase$(TempChar.Nombre) = UCase$(UserName) And UserMinHP > 1 Then
Dim MaxLargo As Byte
MaxLargo = 75
BackBufferSurface.SetForeColor 0
BackBufferSurface.SetFillColor vbBlack
Call BackBufferSurface.DrawBox(iPPx - (MaxLargo / 3), iPPy + 50, iPPx + (MaxLargo / 1.5), iPPy + 55)
BackBufferSurface.SetForeColor vbBlack
BackBufferSurface.SetFillColor vbRed
Call BackBufferSurface.DrawBox(iPPx - (MaxLargo / 3), iPPy + 50, (iPPx - (MaxLargo / 3)) + ((UserMinHP / 100) / (UserMaxHP / 100)) * MaxLargo, iPPy + 55)
End If

If charlist(MapData(tX, tY).CharIndex).Nombre <> "" Then
m.ListaSetItem 0, charlist(MapData(tX, tY).CharIndex).Nombre, True
Else
m.ListaSetItem 0, "", True
End If
m.ListaSetItem 1, "Comerciar"

m.ListaFin
m.Show , Me

End If
End If
End If

#End If
End Sub

Mmm en donde corno lo ubicaste!!!