SpikeL Comunidad
Hola, bienvenido a SpikeL Foro.

Si eres nuevo, deves registrarte.

Si ya tienes una cuenta, deves ingresar.

¡Muchas gracias!

PD: Si te has registrado pero no puedes logear tienes que activar tu cuenta desde tu e-mail.


Unirse al foro, es rápido y fácil

SpikeL Comunidad
Hola, bienvenido a SpikeL Foro.

Si eres nuevo, deves registrarte.

Si ya tienes una cuenta, deves ingresar.

¡Muchas gracias!

PD: Si te has registrado pero no puedes logear tienes que activar tu cuenta desde tu e-mail.
SpikeL Comunidad
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.



Barrita de exp debajo del pj

2 participantes

SpikeL Comunidad :: Argentum Online :: Programación :: AO 11.2 / AOReady

Ir abajo

Barrita de exp debajo del pj Empty Barrita de exp debajo del pj

Mensaje por santi55 Vie Dic 24, 2010 5:55 pm

En CLIENTE

Buscamos en Mod_TileEngine el sub RenderScreen

Código:
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, "<"))

arriba colocan

Código:
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


Saludos
santi55
santi55
Nivel 12
Nivel 12

Medallas
Barrita de exp debajo del pj Prensa1
Advertencias Advertencias : 1
Mensajes Mensajes : 156
Puntos Puntos : 49397
Reputación Reputación : 1
Fecha de inscripción Fecha de inscripción : 19/12/2010
País País : Argentina


Volver arriba Ir abajo

Barrita de exp debajo del pj Empty Re: Barrita de exp debajo del pj

Mensaje por Francohhh Vie Dic 24, 2010 5:59 pm

Buen aporte, hago recordar a la gente que solamente lo ves en tu PJ y no en todos los que hay.
Francohhh
Francohhh
Administrador
Administrador

Administrador
Medallas
Barrita de exp debajo del pj Prensa1Barrita de exp debajo del pj Fundador1Barrita de exp debajo del pj Participativo1Barrita de exp debajo del pj Donar1
Barrita de exp debajo del pj Staff1x Barrita de exp debajo del pj Moderador1 Barrita de exp debajo del pj Ao1 Barrita de exp debajo del pj Desarrollo
Barrita de exp debajo del pj Radio10 Barrita de exp debajo del pj Radio110 Barrita de exp debajo del pj Colabo10 Barrita de exp debajo del pj Progra10
Barrita de exp debajo del pj Cs110Barrita de exp debajo del pj Postea10 Barrita de exp debajo del pj Senor_10 Barrita de exp debajo del pj Dueno_10
Barrita de exp debajo del pj Futbol10
Mensajes Mensajes : 880
Puntos Puntos : 53106
Reputación Reputación : 41
Sexo Sexo : Masculino

Fecha de inscripción Fecha de inscripción : 23/03/2010
Edad Edad : 27
Localización Localización : Mar del Plata

http://www.spikel.org

Volver arriba Ir abajo

Volver arriba

- Temas similares

SpikeL Comunidad :: Argentum Online :: Programación :: AO 11.2 / AOReady

 
Permisos de este foro:
No puedes responder a temas en este foro.