Barrita de Exp debajo del Pj

Mi Canal YouTube · » 28 Nov 2009 10:57

Code echo por mi, tambien basado en el aporte de Rubio q hizo una barra de Vida
Les dejo el code para poner la barrita

En CLIENTE

Buscamos en Mod_TileEngine el sub RenderScreen

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

If TempChar.Nombre <> "" Then
                            Dim lCenter As Long
                            If InStr(TempChar.Nombre, "<") > 0 And InStr(TempChar.Nombre, ">") > 0 Then
                                lCenter = (frmMain.TextWidth(Left(TempChar.Nombre, InStr(TempChar.Nombre, "<") - 1)) / 2) - 16
                                Dim sClan As String: sClan = Mid(TempChar.Nombre, InStr(TempChar.Nombre, "<"))

Y arriba colocan

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

If UCase$(TempChar.Nombre) = UCase$(UserName) And UserExp > 0 Then
Dim MaxxxLargo As Byte
MaxxxLargo = 75
BackBufferSurface.SetForeColor 0
BackBufferSurface.SetFillColor vbBlack
Call BackBufferSurface.DrawBox(iPPx - (MaxxxLargo / 3), iPPy + 60, iPPx + (MaxxLargo / 1.5), iPPy + 55)
BackBufferSurface.SetForeColor vbBlack
BackBufferSurface.SetFillColor vbWhite
Call BackBufferSurface.DrawBox(iPPx - (MaxxxLargo / 3), iPPy + 60, (iPPx - (MaxxLargo / 3)) + ((UserExp / 100) / (UserPasarNivel / 100)) * MaxxLargo, iPPy + 55)
End If