Barrita de vida i mana

por santi55 Lun Ene 03, 2011 2:30 pm

ES ASI ESTO : Barrita de vida i mana Imagen1dic

Cliente :

Buscamos esto:

y arriba le agregamos esto:

Código:: If UCase$(tempchar.Nombre) = UCase$(UserName) And UserMinHP > 0 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 UCase$(tempchar.Nombre) = UCase$(UserName) And UserMinMAN > 0 Then Dim MaxLargo2 As Byte MaxLargo2 = 75 BackBufferSurface.SetForeColor 0 BackBufferSurface.SetFillColor vbBlack Call BackBufferSurface.DrawBox(iPPx - (MaxLargo2 / 3), iPPy + 60, iPPx + (MaxLargo2 / 1.5), iPPy + 65) BackBufferSurface.SetForeColor vbBlack BackBufferSurface.SetFillColor vbBlue Call BackBufferSurface.DrawBox(iPPx - (MaxLargo2 / 3), iPPy + 60, (iPPx - (MaxLargo2 / 3)) + ((UserMinMAN / 100) / (UserMaxMAN / 100)) * MaxLargo2, iPPy + 65) End If

Saludos!