Barra de Vida Debajo del PJ

Estado
Cerrado para nuevas respuestas.
A

Anonymous

Invitado
Hola, miren, he estado intentando hace BASTAAAANTE, y no me sale xD
mi idea, es que debajo del nombre (o del clan si es q tiene), aparezca una barrita de uno o dos pixels de color rojo, que indique la Vida que tiene el personaje, y se valla actualizando como la barra que se encuentra debajo del inventario...
se lo pregunte a BK, q trabaja en el cyber donde estoy ahora... pero me dijo q pregunte acá... alguna idea me dio... pero como no estoy en mi casa, no puedo probar si me sale jeje
Si alguno me puede ayudar, bienvenido sea :D
si no... :roll: te podes ir a la piiiiiiiiiiiiiiiiiiiiiiiiiipppp jajaja nah joda, joda
solo queria saber si alguien puede...

desde ya, muchas gracias ^^

Cya

EDIT: BK, este foro es grosisimo... como no me lo pasaste antes‼ ahroa me registro.
 
Amraphen

Amraphen

Aprendiz Lvl 6
Habria que tocar el tileengine, cosa que no me animo porque es un asco pero veo que puedo hacer xD.

Saludos!
 
P

Pocho

Oráculo Lvl 3
pregunta numero 1 :D



La barrita la ve solo el dueño del pj me imagino, sino hacete un zipAO, XD


em en nombre de to2 te doy la bienvenida, y bueh, ahora te ayudo con lo de la barrita, primero q nada, es facil, y yo soy tu solucioon a rE :p


busca DONDE DICE

en la version 11.2

Call RenderScreen(UserPos.X - AddtoUserPos.X, UserPos.Y - AddtoUserPos.Y, OffsetCounterX, OffsetCounterY)




y abajo pones

Dim Fd, Fd1, Fd2 As Integer
Fd1 = 505
Fd2 = 495
BackBufferSurface.SetForeColor vbRed
For Fd = 1 To 4
BackBufferSurface.DrawLine Fd1, Fd2, Fd1 + frmMain.Hpshp.Width / 100 * 50, Fd2
Fd2 = Fd2 + 1
DoEvents
Next Fd



chau feo, me llevo como media hora ^^ puto,

pd: anda, no tene q borrar la barrita XD lo probe


pd2:ah iestoy usando DX7 para q sea lo mas veloz, pero igual podrias usar otras funciones q hacen algo aprecido y tambien anda
 
P

Pocho

Oráculo Lvl 3
no, no me estoy complicando, mejor optimizado que lo que hise es imposible



pd: no podes poner un label en el medio de la pantalla porque titilaria
 
G

-=Guess=-

Newbie Lvl 1
Pocho dijo:
no, no me estoy complicando, mejor optimizado que lo que hise es imposible



pd: no podes poner un label en el medio de la pantalla porque titilaria
Haz clic para expandir...

Label no, shape ^^. Se, ahora lo probe y no se ve... Voy a ver como vos pusiste ^^.
 
P

Pocho

Oráculo Lvl 3
igual, ahora q me doy cuenta, puede estar un poqito mejor, con otra funcion q voy a probar, si anda les posteo
 
Blizzard

Blizzard

Oráculo Lvl 5
muy ingenioso, lo voy a probar a ver como queda, otro tema, seria muy complicado asignarle un bmp a la barrita para hacerla mas pintoresca?

PD: sos un groso pocho!
 
A

Amrod

Newbie Lvl 5
Anda perfectamente, es más, yo lo hice también con la de mana..Pocho, habría alguna manera de hacer que el usuario mueva la barra a gusto? es decir, donde le plazca xD!?. Gracias!!.
 
E

El Barto

Newbie Lvl 1
Pocho, sos mi idolo!! Muchisimas GRaciassss!

hoy lo testeo... justo pasé a saludar a BK, y me dijo que ya habian respondido y que funcionaba el code... y bueh aki toyy molestando a BK jaja

Me tengo que ir ahora... cuando vuelva a la tarde a casa, lo pruebo... Graciasssssss
 
P

Pocho

Oráculo Lvl 3
denada, le agrege una barrita negra q lo rodea, mira, toma el cod, fijate si te gusta mas, lo q dijeron para q lo mueva, si , se puede, pero no le veo la gracia :S, todo se puede^^ casi


reepmlazen el viejo cod por esto

Dim Fd, Fd1, Fd2 As Integer
Fd1 = 505
Fd2 = 495
BackBufferSurface.SetForeColor vbRed
For Fd = 1 To 4
BackBufferSurface.DrawLine Fd1, Fd2, Fd1 + frmMain.Hpshp.Width / 100 * 50, Fd2
Fd2 = Fd2 + 1
DoEvents
Next Fd
BackBufferSurface.SetForeColor vbBlack
BackBufferSurface.DrawBox Fd1, Fd2 - 4, Fd1 + 48, Fd2


tiene un cuadrado xd
 
P

Pocho

Oráculo Lvl 3
es una bolude,,, pero solo para rodearla qedaria bien, porq para dibujarla no se pude :S tenes q tener 10 mil barritas de distintos tamaños
 
P

Pocho

Oráculo Lvl 3
mira, tenes q crear un grafico q se llame 1111.bmp y sea una barrita


Dim Fd, Fd1, Fd2 As Integer
Fd1 = 505
Fd2 = 495
BackBufferSurface.SetForeColor vbRed
For Fd = 1 To 4
BackBufferSurface.DrawLine Fd1, Fd2, Fd1 + frmMain.Hpshp.Width / 100 * 50, Fd2
Fd2 = Fd2 + 1
DoEvents
Next Fd
BackBufferSurface.SetForeColor vbBlack
BackBufferSurface.DrawBox Fd1, Fd2 - 4, Fd1 + 48, Fd2
Dim barranum As Integer
barranum = 1111
BackBufferSurface.BltFast Fd1, Fd2, SurfaceDB.GetBMP(barranum, 0), auxr, DDBLTFAST_NOCOLORKEY



ylisto

con esto

BackBufferSurface.BltFast Fd1, Fd2, SurfaceDB.GetBMP(barranum, 0), auxr, DDBLTFAST_NOCOLORKEY

basta^^

saludts
 
P

Pocho

Oráculo Lvl 3
em, desconosco el problema, el de esto

BackBufferSurface.BltFast Fd1, Fd2, SurfaceDB.GetBMP(barranum, 0), auxr, DDBLTFAST_NOCOLORKEY

arriba de todo oscea en el mismo modulo ay q agregar algo

ahroa te digo q



dim auxr As RECT
 
Estado
Cerrado para nuevas respuestas.
Arriba