Colorful Health Bar

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|543\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Graphical Effects

Jayenkai	Created : 13 September 2006 Edited : 13 September 2006 Language : Blitz Colorful Health Bar Use a nice image as a health bar, instead of a plain color.
This function creates it's own colorful health bar, but you can create your own images in the paint package of your choice. Use Left and Right to shift the health amount. Const ScrWidth=800 Const ScrHeight=600 Graphics ScrWidth,ScrHeight,32,2 ; Creates 2 Healthbar images.. ;In your own game, you'd have designed these in MSPaint to make them look amazing HealthBarFull=CreateImage(200,32):MaskImage HealthBarFull,255,0,255 HealthBarEmpty=CreateImage(200,32):MaskImage HealthBarEmpty,255,0,255 SetBuffer ImageBuffer(HealthBarFull) Color 255,0,255:Rect 0,0,200,32,1 For x=0 To 200 Color 255,x+55,0 Line x,0,x,32 Color 255,255,255 Text 100,16,"MY HEALTHBAR",1,1 Next SetBuffer ImageBuffer(HealthBarEmpty) For x=0 To 200 Color 100,x/2,0 Line x,0,x,32 Color 0,0,0 Text 100,16,"MY HEALTHBAR",1,1 Next SetBuffer BackBuffer() Percentage#=100 ; Main loop Repeat Cls HealthBar(100,100,Percentage,HealthBarEmpty,HealthBarFull) If KeyDown(203) Then Percentage=Percentage-1 If KeyDown(205) Then Percentage=Percentage+1 If Percentage<0 Then Percentage=0 If Percentage>100 Then Percentage=100 Flip Until KeyDown(1) ;Here's your function Function HealthBar(XPos,YPos,Perc#,EmptyImage,FullImage) DrawImage EmptyImage,XPos,YPos PercSize#=(Perc#*ImageWidth(FullImage))/100 Viewport XPos,YPos,PercSize,ImageHeight(FullImage) DrawImage FullImage,XPos,YPos Viewport 0,0,ScrWidth,ScrHeight ;Don't forget to define Screen Width and Height as Globals End Function --v

Comments
Wednesday, 13 September 2006, 16:30
magicman	Thats pretty cool.

Comments