3D Healthbar? - GameCreators Forum

Author

Message

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 00:39

Link

how do i make the plain the same size as the health bar? also, how would i make the background transparent?

Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

`SPRITE IMAGE
CREATE BITMAP 1,screen width()/2,100
HealthBar(0,0,100,10,100)
GET IMAGE 1,0,0,screen width()/2,100
DELETE BITMAP 1
SET CURRENT BITMAP 0

Make Object Plain 1,screen width()/3*.02,.5
texture object 1,1
fix object pivot 1
position object 1,0,0,10

`THE MAIN LOOP
DO
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
    P# = P#/100
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
endfunction

+ Code Snippet

Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

`SPRITE IMAGE
CREATE BITMAP 1,screen width()/2,100
HealthBar(0,0,100,10,100)
GET IMAGE 1,0,0,screen width()/2,100
DELETE BITMAP 1
SET CURRENT BITMAP 0

Make Object Plain 1,screen width()/3*.02,.5
texture object 1,1
fix object pivot 1
position object 1,0,0,10

`THE MAIN LOOP
DO
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
    P# = P#/100
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
endfunction

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 12:37 Edited at: 2nd Aug 2010 13:07

Link

Are you after something like this.

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

`SPRITE IMAGE
CREATE BITMAP 1,100,10
HealthBar(0,0,100,10,100)
GET IMAGE 1,0,0,100,10
DELETE BITMAP 1
SET CURRENT BITMAP 0

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
`lock object on 1
position object 1,0,0,5

`THE MAIN LOOP
DO
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
    P# = P#/100
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
endfunction

+ Code Snippet

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

`SPRITE IMAGE
CREATE BITMAP 1,100,10
HealthBar(0,0,100,10,100)
GET IMAGE 1,0,0,100,10
DELETE BITMAP 1
SET CURRENT BITMAP 0

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
`lock object on 1
position object 1,0,0,5

`THE MAIN LOOP
DO
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
    P# = P#/100
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
endfunction

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 2nd Aug 2010 12:51

Link

BACKDROP OFF, will disable the backdrop, if that's what you mean by transparent.

What sort of health bar are you after.

Maybe, something like this would work:

MAKE OBJECT PLAIN 10,200,20
OFFSET LIMB 10,1,100,0,0

Then assuming your health value is in a 0-100 range:

SCALE OBJECT 10,Health#,100,100

That makes a plain at 200x20, then offsets it to the lright by 100. This means that when you scale the whole object, it goes from nothing to a full width bar, the centre point of the plain is changed so that it works like a bar instead. This could be done with an object too, I often use animated objects for score displayes, I've made a retro number counter like on an old tape player, and even a flick down timer, like in LOST or an old 70's alarm clock. You could make a whole HUD as a 3D object if you wanted, then scale, rotate, whatever to control the individual bits. A good example would be a compass, just make a compass body, then a needle as a seperate limb with a sensible pivot point, and then it's real easy to get it working just like a compass. Depends on the sort of interface you are going for.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 14:13

Link

i like howdo's idea

thanks!

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 14:23 Edited at: 2nd Aug 2010 14:37

Link

how can i control the healthbar amount
using a key?

also, why wont this rotate with both the camera and the enemy, so it creates a billboard effect and a 3d effect?

Rem Project: hpbar
Rem Created: Monday, August 02, 2010

Rem ***** Main Source File *****

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health=100

make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,10
HealthBar(0,0,100,10,health)
GET IMAGE 1,0,0,100,10
DELETE BITMAP 1
SET CURRENT BITMAP 0

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5

`THE MAIN LOOP
DO
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
rotate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
if keystate(44)
dec health,1
endif
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
    P# = P#/100
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
endfunction

+ Code Snippet

Rem Project: hpbar
Rem Created: Monday, August 02, 2010

Rem ***** Main Source File *****

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health=100

make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,10
HealthBar(0,0,100,10,health)
GET IMAGE 1,0,0,100,10
DELETE BITMAP 1
SET CURRENT BITMAP 0

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5

`THE MAIN LOOP
DO
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
rotate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
if keystate(44)
dec health,1
endif
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
    P# = P#/100
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
endfunction

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 2nd Aug 2010 15:06

Link

You should lock your health bar plain to the screen, LOCK OBJECT 1 - then it is stuck in relation to the screen, so positioning it at 0,0,5 should put it in front, you'll probably want to tweak this though to get a good position.

You can't update the health bar, because it's drawn onto a bitmap, the bitmap is then deleted, and the function itself is too slow to consider using in your main loop. HowDo has given you what you asked for, a health bar technique - but how you update that is not covered, that health bar never updates.

Ideally, you would just draw the thing and load it in, then use a seperate limb or object for the actual bar, like how I suggested already. It's not a good idea to redraw a health bar then grab it.

There are also sprites, why not get a sprite and scale it - like sprite HowDo's bar onto the screen, then have a second sprite for the health value. Sprites are handy because you don't have to keep drawing them, they will stick to the screen, and all you have to do is set the sprite size, as long as you offset it first.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 15:11 Edited at: 2nd Aug 2010 15:19

Link

well I've got the health to update it self, but as for keeping object one facing the camera as to move around, I can't remember what to done.

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,10
SET CURRENT BITMAP 0

`DELETE BITMAP 1
`

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
HealthBar(0,0,100,10,health#)

`THE MAIN LOOP
DO
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
rotate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
`if keystate(44)
`dec health,1
`HealthBar(0,0,100,10,)
`endif
if keystate(52)
dec health#,1
endif
if keystate(51)
inc health#,1
endif
HealthBar(0,0,100,10,health#)
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
set current bitmap 1
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   GET IMAGE 1,0,0,100,10
 
   set current bitmap 0
     texture object 1,1
endfunction

+ Code Snippet

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,10
SET CURRENT BITMAP 0

`DELETE BITMAP 1
`

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
HealthBar(0,0,100,10,health#)

`THE MAIN LOOP
DO
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
rotate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
`if keystate(44)
`dec health,1
`HealthBar(0,0,100,10,)
`endif
if keystate(52)
dec health#,1
endif
if keystate(51)
inc health#,1
endif
HealthBar(0,0,100,10,health#)
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
set current bitmap 1
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   GET IMAGE 1,0,0,100,10
 
   set current bitmap 0
     texture object 1,1
endfunction

edit
this let you now keep the bar facing the camera.
uses
SET OBJECT TO CAMERA ORIENTATION 1

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,10
SET CURRENT BITMAP 0

`DELETE BITMAP 1
`

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
HealthBar(0,0,100,10,health#)

`THE MAIN LOOP
DO
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
SET OBJECT TO CAMERA ORIENTATION 1

`otate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
`if keystate(44)
`dec health,1
`HealthBar(0,0,100,10,)
`endif
if keystate(51)
dec health#,1
endif
if keystate(52)
inc health#,1
endif
HealthBar(0,0,100,10,health#)
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
set current bitmap 1
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   GET IMAGE 1,0,0,100,10
 
   set current bitmap 0
     texture object 1,1
endfunction

+ Code Snippet

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,10
SET CURRENT BITMAP 0

`DELETE BITMAP 1
`

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
HealthBar(0,0,100,10,health#)

`THE MAIN LOOP
DO
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
SET OBJECT TO CAMERA ORIENTATION 1

`otate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
`if keystate(44)
`dec health,1
`HealthBar(0,0,100,10,)
`endif
if keystate(51)
dec health#,1
endif
if keystate(52)
inc health#,1
endif
HealthBar(0,0,100,10,health#)
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
set current bitmap 1
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   GET IMAGE 1,0,0,100,10
 
   set current bitmap 0
     texture object 1,1
endfunction

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 15:17

Link

thanks howdo

ok, it has 2 problems.

1. it needs a billboard effect along with rotating with the enemy object (cube)

2. the health limit goes to 101 instead of 100

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,10
SET CURRENT BITMAP 0

`DELETE BITMAP 1
`

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
HealthBar(0,0,100,10,health#)

`THE MAIN LOOP
DO
if health#>100.0 then health#=100.0
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
rotate object 1,camera angle x(),ang#,0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
if keystate(44)
dec health#,1
endif
if keystate(45)
inc health#,1
endif
HealthBar(0,0,100,10,health#)
text 10,10,"Health:"+str$(health#)
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
set current bitmap 1
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   GET IMAGE 1,0,0,100,10
 
   set current bitmap 0
     texture object 1,1
endfunction

+ Code Snippet

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,10
SET CURRENT BITMAP 0

`DELETE BITMAP 1
`

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
HealthBar(0,0,100,10,health#)

`THE MAIN LOOP
DO
if health#>100.0 then health#=100.0
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
rotate object 1,camera angle x(),ang#,0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
if keystate(44)
dec health#,1
endif
if keystate(45)
inc health#,1
endif
HealthBar(0,0,100,10,health#)
text 10,10,"Health:"+str$(health#)
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
set current bitmap 1
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   GET IMAGE 1,0,0,100,10
 
   set current bitmap 0
     texture object 1,1
endfunction

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 15:21

Link

I know have I had the keys wrong way round see above post.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 15:25

Link

i cant get it to rotate with the object

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,10
SET CURRENT BITMAP 0

`DELETE BITMAP 1
`

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
HealthBar(0,0,100,10,health#)

`THE MAIN LOOP
DO
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
rotate object 1,0,object angle y(2),0
SET OBJECT TO CAMERA ORIENTATION 1

`otate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
`if keystate(44)
`dec health,1
`HealthBar(0,0,100,10,)
`endif
if keystate(51)
dec health#,1
endif
if keystate(52)
inc health#,1
endif
HealthBar(0,0,100,10,health#)
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
set current bitmap 1
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   GET IMAGE 1,0,0,100,10
 
   set current bitmap 0
     texture object 1,1
endfunction

+ Code Snippet

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,10
SET CURRENT BITMAP 0

`DELETE BITMAP 1
`

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
HealthBar(0,0,100,10,health#)

`THE MAIN LOOP
DO
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
rotate object 1,0,object angle y(2),0
SET OBJECT TO CAMERA ORIENTATION 1

`otate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
`if keystate(44)
`dec health,1
`HealthBar(0,0,100,10,)
`endif
if keystate(51)
dec health#,1
endif
if keystate(52)
inc health#,1
endif
HealthBar(0,0,100,10,health#)
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
set current bitmap 1
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   GET IMAGE 1,0,0,100,10
 
   set current bitmap 0
     texture object 1,1
endfunction

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 2nd Aug 2010 15:27

Link

Try using SET OBJECT TO CAMERA ORIENTATION 1

I think that will rotate the plain to bilboard with the camera, as long as it's orientated correctly before fixing it's pivot. You might have to rotate it 180 degrees on Y, because it'll be pointing at the camera.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 15:31

Link

i did use it..

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 2nd Aug 2010 15:38

Link

Hmmmm, can you tell if the object is visible? - I mean it might be pointing at the camera with it's edge, in which case I suggest rotating the object, 90 degrees on Y before fixing the pivot. If the bar is completely missing, then maybe it's inverted, often when debugging I'll use SET OBJECT CULL 1,0 - so it will draw polygons regardless of which way they are facing.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 15:40

Link

rotating the object makes it disappear

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 2nd Aug 2010 15:43

Link

One alternative to setting the orientation, is to just point the object at the camera - maybe instead of SET OBJECT TO CAMERA...

POINT OBJECT 1,camera position x(),camera position y(),camera position z()

Soz I can't take a proper look, nowhere near a PC with DBPro right now.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 15:44

Link

nope.

still wont rotate

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 15:45 Edited at: 2nd Aug 2010 15:46

Link

picture of camera looking at the object from back of object 2.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

RedFlames

18

Years of Service

User Offline

Joined: 25th Aug 2007

Location: Germania

Posted: 2nd Aug 2010 15:45 Edited at: 2nd Aug 2010 15:46

Link

Quote: "i cant get it to rotate with the object"

You can't have it rotate WITH the object AND always face the camera...
Take out the line "SET OBJECT TO CAMERA ORIENTATION 1" and it rotates with the object.
(it did for me using your latest code)

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 15:46 Edited at: 2nd Aug 2010 15:47

Link

i just need to stop it from being pixely when rotating
and stop it from showing backwards
when behind an object

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 15:55 Edited at: 2nd Aug 2010 15:57

Link

I changed

Make Object plain 1,1.25,.1

to

Make Object box 1,1.25,.1,.01

Is this what you require.

plus add a one to the end of get image like so:

GET IMAGE 1,0,0,100,10,1

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 15:58

Link

close

except its still pixely

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 16:07

Link

show Us what you mean,

How to this.

1. press Print Screen button to grab and image of the code running.
2. open paint(or psp) and then go to edit and click paste.
3. you should now have a picture of your screen when you pressed Print Screen.
4. tidy it up with crop.
5. save as a jpg.
6. up load it to your post.
7. open the picture with view.
8. copy the address.
9. edit post, and then paste the above address code, then highlight it, then click the image button.

you should now see your picture in that post, plus so can we to see whats wrong.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 16:12

Link

here

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 16:20

Link

try adding this command before the do loop

+ Code Snippet

SET OBJECT SMOOTHING 1, 100

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 16:32

Link

still not smooth

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 16:35

Link

what screen resolution are you using?

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 16:35

Link

windowed mode

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 16:38 Edited at: 2nd Aug 2010 16:39

Link

what resolution is the ide set to to use in window mode, look for this menu.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 16:42

Link

640x480

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 16:46

Link

well you know I'm going to say make it higher, it should then remove the pixely.

give it a try! you can always put it back as it was.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 16:55

Link

didnt work...

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 17:12

Link

Not even SET ANTIALIAS LEVEL (GET MAXIMUM ANTIALIAS LEVEL())
worked..

I used styx

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 17:19

Link

could i use this?

and how would i use it?

function blend_Images( iUpper, iLower, iAlpha, iResult, Width, Height)
    
    Local Percent        as float
    Local UpperBlue    as byte
    Local UpperGreen    as byte
    Local UpperRed        as byte
    Local LowerBlue    as byte
    Local LowerGreen    as byte
    Local LowerRed        as byte
    Local ResultBlue    as byte
    Local ResultGreen    as byte
    Local ResultRed    as byte
    Local mUpper         as integer
    Local mLower         as integer
    Local mAlpha        as integer
    Local mResult         as integer

if image width(iUpper) <> width or image height(iUpper) <> height then iUpper = ResizeImage( iUpper, Width, Height )
    if image width(iLower) <> width or image height(iLower) <> height then iLower = ResizeImage( iLower, Width, Height )
    if image width(iAlpha) <> width or image height(iAlpha) <> height then iAlpha = ResizeImage( iAlpha, Width, Height )
            
    mUpper  = find free memblock(  1, 10 )
    mLower  = find free memblock( 11, 10 )
    mAlpha  = find free memblock( 21, 10 )
    mResult = find free memblock( 31, 10 )
    
    make memblock from image mUpper,  iUpper
    make memblock from image mLower,  iLower
    make memblock from image mAlpha,  iAlpha
    make memblock from image mResult, iUpper
    
    mbSize = get memblock size( mUpper )
    for Pos = 12 to mbSize - 12 step 4

Percent     = ( memblock byte( mAlpha, Pos ) / 255.0 )
        
        UpperBlue   = memblock byte( mUpper, Pos + 0 )
        UpperGreen  = memblock byte( mUpper, Pos + 1 )
        UpperRed    = memblock byte( mUpper, Pos + 2 )

LowerBlue   = memblock byte( mLower, Pos + 0 )
        LowerGreen  = memblock byte( mLower, Pos + 1 )
        LowerRed    = memblock byte( mLower, Pos + 2 )

ResultBlue  = UpperBlue  * ( 1- Percent ) + LowerBlue  * Percent
        ResultGreen = UpperGreen * ( 1- Percent ) + LowerGreen * Percent
        ResultRed   = UpperRed   * ( 1- Percent ) + LowerRed   * Percent
                        
        write memblock byte mResult, Pos + 0, ResultBlue
        write memblock byte mResult, Pos + 1, ResultGreen
        write memblock byte mResult, Pos + 2, ResultRed
        write memblock byte mResult, Pos + 3, 255
        
    next Pos
    
    make image from memblock iResult, mResult
    
    delete memblock mUpper
    delete memblock mLower
    delete memblock mAlpha
    delete memblock mResult
            
endfunction

function ResizeImage( Image, Width, Height )

bResize = find free bitmap()    
    Create Bitmap bResize, width, height

sprite 1, 5000, 5000, Image
    size sprite 1, width, height
    paste sprite 1, 0,0
    get image Image, 0, 0, width, height, 1
    
    delete bitmap bResize
    
endfunction Image

+ Code Snippet

function blend_Images( iUpper, iLower, iAlpha, iResult, Width, Height)
    
    Local Percent        as float
    Local UpperBlue    as byte
    Local UpperGreen    as byte
    Local UpperRed        as byte
    Local LowerBlue    as byte
    Local LowerGreen    as byte
    Local LowerRed        as byte
    Local ResultBlue    as byte
    Local ResultGreen    as byte
    Local ResultRed    as byte
    Local mUpper         as integer
    Local mLower         as integer
    Local mAlpha        as integer
    Local mResult         as integer

    if image width(iUpper) <> width or image height(iUpper) <> height then iUpper = ResizeImage( iUpper, Width, Height )
    if image width(iLower) <> width or image height(iLower) <> height then iLower = ResizeImage( iLower, Width, Height )
    if image width(iAlpha) <> width or image height(iAlpha) <> height then iAlpha = ResizeImage( iAlpha, Width, Height )
            
    mUpper  = find free memblock(  1, 10 )
    mLower  = find free memblock( 11, 10 )
    mAlpha  = find free memblock( 21, 10 )
    mResult = find free memblock( 31, 10 )
    
    make memblock from image mUpper,  iUpper
    make memblock from image mLower,  iLower
    make memblock from image mAlpha,  iAlpha
    make memblock from image mResult, iUpper
    
    mbSize = get memblock size( mUpper )
    for Pos = 12 to mbSize - 12 step 4

        Percent     = ( memblock byte( mAlpha, Pos ) / 255.0 )
        
        UpperBlue   = memblock byte( mUpper, Pos + 0 )
        UpperGreen  = memblock byte( mUpper, Pos + 1 )
        UpperRed    = memblock byte( mUpper, Pos + 2 )

        LowerBlue   = memblock byte( mLower, Pos + 0 )
        LowerGreen  = memblock byte( mLower, Pos + 1 )
        LowerRed    = memblock byte( mLower, Pos + 2 )

        ResultBlue  = UpperBlue  * ( 1- Percent ) + LowerBlue  * Percent
        ResultGreen = UpperGreen * ( 1- Percent ) + LowerGreen * Percent
        ResultRed   = UpperRed   * ( 1- Percent ) + LowerRed   * Percent
                        
        write memblock byte mResult, Pos + 0, ResultBlue
        write memblock byte mResult, Pos + 1, ResultGreen
        write memblock byte mResult, Pos + 2, ResultRed
        write memblock byte mResult, Pos + 3, 255
        
    next Pos
    
    make image from memblock iResult, mResult
    
    delete memblock mUpper
    delete memblock mLower
    delete memblock mAlpha
    delete memblock mResult
            
endfunction
    

function ResizeImage( Image, Width, Height )

    bResize = find free bitmap()    
    Create Bitmap bResize, width, height

    sprite 1, 5000, 5000, Image
    size sprite 1, width, height
    paste sprite 1, 0,0
    get image Image, 0, 0, width, height, 1
    
    delete bitmap bResize
    
endfunction Image

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 2nd Aug 2010 17:33

Link

SET OBJECT SMOOTHING, affects the normals of an object, not the edges.

You can enable Anti-aliasing, but that's not the answer either.

Why not use a sprite?

Take an objects position, add it's height to the Y coordinate and position a dummy object, then draw your health bar with sprites instead of 3D objects. It would work a bit like an RTS, where all the health bars are pixel perfect, because it's 2D. That's what most people would do in this case.

There is no need to go to those lengths for a simple health bar. I don't even know what you want, you want it to stop being jagged but you want it to rotate somehow. You can get 3D objects to billboard easy enough, and having the health bars rotate with the objects/characters/whatever is always gonna lead to jaggies.

Describe, draw a picture, but do something to show us what you want, give an example of a game that has it already. What you are trying to do should be simple. If you are actually trying to get these health bars to rotate along with their objects, then it'll look horrible, no matter what you do - you can't make a 2.5D thing then spin it and expect it to look good. DBPro is not great at smoothing out edges, so why even try smoothing them out? - why not rely on 2D, then the edges can be as smooth as you like.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 17:58

Link

because i want the image above my enemys head.

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 2nd Aug 2010 18:27

Link

Like an RTS?

You could do that with sprites, using the OBJECT SCREEN X and Y commands, you can get the screen location of an object, or position a dummy object where you want, and get the screen position from that, as different models might have different heights.

But, to get the bar how you want it, try this code, all I did was remove the Y rotation, and left in the camera orientation. So now the bar stays orientated with the camera, doesn't slant or get jaggy.

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,10
SET CURRENT BITMAP 0

`DELETE BITMAP 1
`

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
set object light 1,0
HealthBar(0,0,100,10,health#)

`THE MAIN LOOP
DO
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
`rotate object 1,0,object angle y(2),0
SET OBJECT TO CAMERA ORIENTATION 1

`otate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
`if keystate(44)
`dec health,1
`HealthBar(0,0,100,10,)
`endif
if keystate(51)
dec health#,1
endif
if keystate(52)
inc health#,1
endif
HealthBar(0,0,100,10,health#)

SYNC
LOOP

function HealthBar(x, y, width, height, P#)
set current bitmap 1
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   GET IMAGE 1,0,0,100,10

set current bitmap 0
     texture object 1,1
endfunction

+ Code Snippet

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,10
SET CURRENT BITMAP 0

`DELETE BITMAP 1
`

Make Object Plain 1,1.25,.1
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
set object light 1,0
HealthBar(0,0,100,10,health#)

`THE MAIN LOOP
DO
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
`rotate object 1,0,object angle y(2),0
SET OBJECT TO CAMERA ORIENTATION 1

`otate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
`if keystate(44)
`dec health,1
`HealthBar(0,0,100,10,)
`endif
if keystate(51)
dec health#,1
endif
if keystate(52)
inc health#,1
endif
HealthBar(0,0,100,10,health#)

SYNC
LOOP

function HealthBar(x, y, width, height, P#)
set current bitmap 1
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   GET IMAGE 1,0,0,100,10

   set current bitmap 0
     texture object 1,1
endfunction

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 18:31

Link

yes. but its supposed to rotate with the monster, yet be blurred so its not jagged.

what if a monster rotates?

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 2nd Aug 2010 18:55

Link

If a monster rotates, then the bar stays where it is, billboarded to the camera. Without this, the bar would turn along with the monster, so if it's at 90 degrees to the player, the player can't tell what it's health is.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 18:58

Link

alright.

how do i add the text above the healthbar?

to show

100/100

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 2nd Aug 2010 19:23

Link

You could just get the bar draw function to do that...

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,32
SET CURRENT BITMAP 0

`DELETE BITMAP 1
`
set text size 16
set text font "Arial Bold"

Make Object Plain 1,1.25,.2
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
set object light 1,0

HealthBar(0,16,100,10,health#)

`THE MAIN LOOP
DO
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
`rotate object 1,0,object angle y(2),0
SET OBJECT TO CAMERA ORIENTATION 1

`otate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
`if keystate(44)
`dec health,1
`HealthBar(0,0,100,10,)
`endif
if keystate(51)
dec health#,1
endif
if keystate(52)
inc health#,1
endif
HealthBar(0,16,100,32,health#)

SYNC
LOOP

function HealthBar(x, y, width, height, P#)
set current bitmap 1
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1

ink rgb(255,255,255),0
   text 0,0,str$(int(health#))+"/100"

GET IMAGE 1,0,0,100,32,1

set current bitmap 0
     texture object 1,1
endfunction

+ Code Snippet

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
CREATE BITMAP 1,100,32
SET CURRENT BITMAP 0

`DELETE BITMAP 1
`
set text size 16
set text font "Arial Bold"

Make Object Plain 1,1.25,.2
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
set object light 1,0

HealthBar(0,16,100,10,health#)

`THE MAIN LOOP
DO
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
`rotate object 1,0,object angle y(2),0
SET OBJECT TO CAMERA ORIENTATION 1

`otate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
`if keystate(44)
`dec health,1
`HealthBar(0,0,100,10,)
`endif
if keystate(51)
dec health#,1
endif
if keystate(52)
inc health#,1
endif
HealthBar(0,16,100,32,health#)

SYNC
LOOP

function HealthBar(x, y, width, height, P#)
set current bitmap 1
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1

   ink rgb(255,255,255),0
   text 0,0,str$(int(health#))+"/100"

   GET IMAGE 1,0,0,100,32,1

   set current bitmap 0
     texture object 1,1
endfunction

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 19:29

Link

thanks vanb.

ok 2 more questions.

1. the text isnt in the middle of the bar.

2. i changed everything to types, why is my bar in the wrong position?

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

type player
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

type enemy
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

make object sphere 10,1000
set object cull 10,0
color object 10,rgb(68,207,252)
set object smoothing 10,100

p as player

e as enemy

p.health# = 100.0
p.maxhealth# = 100.0
p.X# = 0.0
p.Y# = 1.0
p.Z# = 0.0
p.id = 1

e.health# = 100.0
e.maxhealth# = 100.0
e.X# = 0.0
e.Y# = 1.0
e.Z# = 0.0
e.id = 2

make object cube e.id,1

`SPRITE IMAGE
CREATE BITMAP e.id,100,10
SET CURRENT BITMAP 0

Make Object Plain e.id+1,1.25,.1
texture object e.id+1,1
set object transparency e.id+1,1
fix object pivot e.id+1
position object e.id+1,0,0,5
set object light e.id+1,0
HealthBar(e.id+1,e.id,0,0,100,10,e.health#)

`THE MAIN LOOP
DO
move camera up (keystate(16)-keystate(18))*.1
position object p.id+1,object position x(e.id+1),object size y(e.id+1)+1,object position z(e.id+1)
SET OBJECT TO CAMERA ORIENTATION e.id+1
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
if keystate(44)
dec p.health#,1
endif
if keystate(45)
inc p.health#,1
endif
select e.id+1
case 2
HealthBar(e.id+1,e.id,0,0,100,10,e.health#)
endcase
endselect
SYNC
LOOP

function HealthBar(obj, id, x, y, width, height, P#)
set current bitmap id
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   ink rgb(255,255,255),0
   text 0,0,str$(int(P#))+"/100"
   GET IMAGE id,0,0,100,10

set current bitmap 0
     texture object obj,id
endfunction

+ Code Snippet

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

type player
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

type enemy
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

make object sphere 10,1000
set object cull 10,0
color object 10,rgb(68,207,252)
set object smoothing 10,100

p as player

e as enemy

p.health# = 100.0
p.maxhealth# = 100.0
p.X# = 0.0
p.Y# = 1.0
p.Z# = 0.0
p.id = 1

e.health# = 100.0
e.maxhealth# = 100.0
e.X# = 0.0
e.Y# = 1.0
e.Z# = 0.0
e.id = 2

make object cube e.id,1

`SPRITE IMAGE
CREATE BITMAP e.id,100,10
SET CURRENT BITMAP 0

Make Object Plain e.id+1,1.25,.1
texture object e.id+1,1
set object transparency e.id+1,1
fix object pivot e.id+1
position object e.id+1,0,0,5
set object light e.id+1,0
HealthBar(e.id+1,e.id,0,0,100,10,e.health#)

`THE MAIN LOOP
DO
move camera up (keystate(16)-keystate(18))*.1
position object p.id+1,object position x(e.id+1),object size y(e.id+1)+1,object position z(e.id+1)
SET OBJECT TO CAMERA ORIENTATION e.id+1
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
if keystate(44)
dec p.health#,1
endif
if keystate(45)
inc p.health#,1
endif
select e.id+1
case 2
HealthBar(e.id+1,e.id,0,0,100,10,e.health#)
endcase
endselect
SYNC
LOOP

function HealthBar(obj, id, x, y, width, height, P#)
set current bitmap id
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   ink rgb(255,255,255),0
   text 0,0,str$(int(P#))+"/100"
   GET IMAGE id,0,0,100,10

   set current bitmap 0
     texture object obj,id
endfunction

thanks!

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 19:39 Edited at: 2nd Aug 2010 19:42

Link

Ok, now its saying object already exists..

there should be

p.id = 1 (player)

e.id = 2 (enemy)

p.id+1 = 3 (player healthbar)

e.id+1 = 4 (enemy healthbar)

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

type player
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

type enemy
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

p as player

e as enemy

p.health# = 100.0
p.maxhealth# = 100.0
p.X# = 0.0
p.Y# = 1.0
p.Z# = 0.0
p.id = 1

e.health# = 100.0
e.maxhealth# = 100.0
e.X# = 0.0
e.Y# = 1.0
e.Z# = 0.0
e.id = 2

`SKY
make object sphere 10,1000
set object cull 10,0
color object 10,rgb(68,207,252)
set object smoothing 10,100

`PLAYER
make object cube p.id,1

`ENEMY
make object cube e.id,1

`SPRITE IMAGE
CREATE BITMAP e.id+1,100,10
SET CURRENT BITMAP 0
CREATE BITMAP p.id+1,100,10
SET CURRENT BITMAP 0

`PLAYER HEALTH
Make Object Plain p.id+1,1.25,.1
texture object p.id+1,1
set object transparency p.id+1,1
fix object pivot p.id+1
position object p.id+1,0,0,5
set object light p.id+1,0
HealthBar(p.id+1,p.id+1,0,0,100,10,p.health#)

`ENEMY HEALTH
Make Object Plain e.id+2,1.25,.1
texture object e.id+2,1
set object transparency e.id+2,1
fix object pivot e.id+2
position object e.id+2,0,0,5
set object light e.id+2,0
HealthBar(e.id+2,e.id+2,0,0,100,10,e.health#)

`THE MAIN LOOP
DO
move camera up (keystate(16)-keystate(18))*.1
position object p.id+1,object position x(e.id+1),object size y(e.id+1)+1,object position z(e.id+1)
SET OBJECT TO CAMERA ORIENTATION e.id+1
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
if keystate(44)
dec p.health#,1
endif
if keystate(45)
inc p.health#,1
endif
select e.id+1
case 2
HealthBar(e.id+1,e.id,0,0,100,10,e.health#)
endcase
endselect
SYNC
LOOP

function HealthBar(obj, id, x, y, width, height, P#)
set current bitmap id
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   ink rgb(255,255,255),0
   text 0,0,str$(int(P#))+"/100"
   GET IMAGE id,0,0,100,10

set current bitmap 0
   if object exist(obj)
     texture object obj,id
   else
     exitfunction
   endif
endfunction

+ Code Snippet

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

type player
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

type enemy
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

p as player

e as enemy

p.health# = 100.0
p.maxhealth# = 100.0
p.X# = 0.0
p.Y# = 1.0
p.Z# = 0.0
p.id = 1

e.health# = 100.0
e.maxhealth# = 100.0
e.X# = 0.0
e.Y# = 1.0
e.Z# = 0.0
e.id = 2

`SKY
make object sphere 10,1000
set object cull 10,0
color object 10,rgb(68,207,252)
set object smoothing 10,100

`PLAYER
make object cube p.id,1

`ENEMY
make object cube e.id,1

`SPRITE IMAGE
CREATE BITMAP e.id+1,100,10
SET CURRENT BITMAP 0
CREATE BITMAP p.id+1,100,10
SET CURRENT BITMAP 0

`PLAYER HEALTH
Make Object Plain p.id+1,1.25,.1
texture object p.id+1,1
set object transparency p.id+1,1
fix object pivot p.id+1
position object p.id+1,0,0,5
set object light p.id+1,0
HealthBar(p.id+1,p.id+1,0,0,100,10,p.health#)

`ENEMY HEALTH
Make Object Plain e.id+2,1.25,.1
texture object e.id+2,1
set object transparency e.id+2,1
fix object pivot e.id+2
position object e.id+2,0,0,5
set object light e.id+2,0
HealthBar(e.id+2,e.id+2,0,0,100,10,e.health#)


`THE MAIN LOOP
DO
move camera up (keystate(16)-keystate(18))*.1
position object p.id+1,object position x(e.id+1),object size y(e.id+1)+1,object position z(e.id+1)
SET OBJECT TO CAMERA ORIENTATION e.id+1
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
if keystate(44)
dec p.health#,1
endif
if keystate(45)
inc p.health#,1
endif
select e.id+1
case 2
HealthBar(e.id+1,e.id,0,0,100,10,e.health#)
endcase
endselect
SYNC
LOOP

function HealthBar(obj, id, x, y, width, height, P#)
set current bitmap id
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   ink rgb(255,255,255),0
   text 0,0,str$(int(P#))+"/100"
   GET IMAGE id,0,0,100,10

   set current bitmap 0
   if object exist(obj)
     texture object obj,id
   else
     exitfunction
   endif
endfunction

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 20:02 Edited at: 2nd Aug 2010 20:05

Link

snap! I did almost the same but add something to check if the bit map was already made.

here what I've done text and bar are displayed on a box object that rotates.

see what you think

Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off
position camera 0,0,-10
point camera 0,0,0
global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
`CREATE BITMAP 1,100,10
`SET CURRENT BITMAP 0

`DELETE BITMAP 1
`

Make Object box 1,1.25,.1,.01
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
HealthBar(0,0,100,30,health#)
make object box 3,100,1,100
position object 3,0,-1,0
`THE MAIN LOOP
SET OBJECT SMOOTHING 1, 100.0
DO
text 0,0,str$(camera angle x(0))
text 0,12,str$(camera angle y(0))
text 0,24,str$(camera angle z(0))
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
rotate object 1,0,object angle y(2),0
`SET OBJECT TO CAMERA ORIENTATION 1

`otate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
`if keystate(44)
`dec health,1
`HealthBar(0,0,100,10,)
`endif
if keystate(51)
dec health#,1
endif
if keystate(52)
inc health#,1
endif
HealthBar(0,0,100,130,health#)
paste image 1,0,0
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
if bitmap exist(1)<>1
CREATE BITMAP 1,width,height+text height("T")
else
set current bitmap 1
endif
cls

ink rgb(0,255,255) ,0
text 0,0,str$(p#)+"/100"

y=y+text height("T")
   P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3

box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
  c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1

GET IMAGE 1,0,0,bitmap width(1),bitmap height(1),1
 
  set current bitmap 0
     texture object 1,1
     
endfunction

+ Code Snippet

Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off
position camera 0,0,-10
point camera 0,0,0
global health#
health#=100.0
make object cube 2,1

`SPRITE IMAGE
`CREATE BITMAP 1,100,10
`SET CURRENT BITMAP 0

`DELETE BITMAP 1
`

Make Object box 1,1.25,.1,.01
texture object 1,1
set object transparency 1,1
fix object pivot 1
position object 1,0,0,5
HealthBar(0,0,100,30,health#)
make object box 3,100,1,100
position object 3,0,-1,0
`THE MAIN LOOP
SET OBJECT SMOOTHING 1, 100.0
DO
text 0,0,str$(camera angle x(0))
text 0,12,str$(camera angle y(0))
text 0,24,str$(camera angle z(0))
inc ang#,1
if ang#>360 then ang#=0
if ang#<-360 then ang#=0
yrotate object 2,(ang#)
position object 1,object position x(2),object size y(2)/2+1,object position z(2)
rotate object 1,0,object angle y(2),0
`SET OBJECT TO CAMERA ORIENTATION 1

`otate object 1,camera angle x(),object angle y(1),0
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
`if keystate(44)
`dec health,1
`HealthBar(0,0,100,10,)
`endif
if keystate(51)
dec health#,1
endif
if keystate(52)
inc health#,1
endif
HealthBar(0,0,100,130,health#)
paste image 1,0,0
SYNC
LOOP

function HealthBar(x, y, width, height, P#)
if bitmap exist(1)<>1
CREATE BITMAP 1,width,height+text height("T")
else
set current bitmap 1
endif
cls

ink rgb(0,255,255) ,0
text 0,0,str$(p#)+"/100"

y=y+text height("T")
   P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3

   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
  c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1

   GET IMAGE 1,0,0,bitmap width(1),bitmap height(1),1
 
  set current bitmap 0
     texture object 1,1
     
endfunction

EDIT
I see you gone a bit further than when I last looked.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 20:07

Link

its a bit messed up

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 20:09

Link

when you started you have this
p.id=1
e.id=2

then you did this

p.id+1=2
e.id+2=4

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 20:14

Link

still a bit confused..

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

type player
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

type enemy
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

p as player

e as enemy

p.health# = 100.0
p.maxhealth# = 100.0
p.X# = 0.0
p.Y# = 1.0
p.Z# = 0.0
p.id = 1

e.health# = 100.0
e.maxhealth# = 100.0
e.X# = 0.0
e.Y# = 1.0
e.Z# = 0.0
e.id = 2

`SKY
make object sphere 10,1000
set object cull 10,0
color object 10,rgb(68,207,252)
set object smoothing 10,100

`PLAYER
make object cube p.id,1

`ENEMY
make object cube e.id,1

`SPRITE IMAGE
CREATE BITMAP e.id+1,100,10
SET CURRENT BITMAP 0
CREATE BITMAP p.id+1,100,10
SET CURRENT BITMAP 0

`PLAYER HEALTH
Make Object Plain p.id+2,1.25,.1
texture object p.id+2,1
set object transparency p.id+2,1
fix object pivot p.id+2
position object p.id+2,0,0,5
set object light p.id+2,0
HealthBar(p.id+2,p.id+2,0,0,100,10,p.health#)

`ENEMY HEALTH
Make Object Plain e.id+2,1.25,.1
texture object e.id+2,1
set object transparency e.id+2,1
fix object pivot e.id+2
position object e.id+2,0,0,5
set object light e.id+2,0
HealthBar(e.id+2,e.id+2,0,0,100,10,e.health#)

`THE MAIN LOOP
DO
move camera up (keystate(16)-keystate(18))*.1
position object p.id+1,object position x(e.id+1),object size y(e.id+1)+1,object position z(e.id+1)
SET OBJECT TO CAMERA ORIENTATION e.id+1
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
if keystate(44)
dec p.health#,1
endif
if keystate(45)
inc p.health#,1
endif
select e.id+2
case 3
HealthBar(e.id+2,e.id+1,0,0,100,10,e.health#)
endcase
endselect
SYNC
LOOP

function HealthBar(obj, id, x, y, width, height, P#)
set current bitmap id
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   ink rgb(255,255,255),0
   text 0,0,str$(int(P#))+"/100"
   GET IMAGE id,0,0,100,10

set current bitmap 0
   if object exist(obj)
     texture object obj,id
   else
     exitfunction
   endif
endfunction

+ Code Snippet

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

type player
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

type enemy
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

p as player

e as enemy

p.health# = 100.0
p.maxhealth# = 100.0
p.X# = 0.0
p.Y# = 1.0
p.Z# = 0.0
p.id = 1

e.health# = 100.0
e.maxhealth# = 100.0
e.X# = 0.0
e.Y# = 1.0
e.Z# = 0.0
e.id = 2

`SKY
make object sphere 10,1000
set object cull 10,0
color object 10,rgb(68,207,252)
set object smoothing 10,100

`PLAYER
make object cube p.id,1

`ENEMY
make object cube e.id,1

`SPRITE IMAGE
CREATE BITMAP e.id+1,100,10
SET CURRENT BITMAP 0
CREATE BITMAP p.id+1,100,10
SET CURRENT BITMAP 0

`PLAYER HEALTH
Make Object Plain p.id+2,1.25,.1
texture object p.id+2,1
set object transparency p.id+2,1
fix object pivot p.id+2
position object p.id+2,0,0,5
set object light p.id+2,0
HealthBar(p.id+2,p.id+2,0,0,100,10,p.health#)

`ENEMY HEALTH
Make Object Plain e.id+2,1.25,.1
texture object e.id+2,1
set object transparency e.id+2,1
fix object pivot e.id+2
position object e.id+2,0,0,5
set object light e.id+2,0
HealthBar(e.id+2,e.id+2,0,0,100,10,e.health#)


`THE MAIN LOOP
DO
move camera up (keystate(16)-keystate(18))*.1
position object p.id+1,object position x(e.id+1),object size y(e.id+1)+1,object position z(e.id+1)
SET OBJECT TO CAMERA ORIENTATION e.id+1
move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1
if keystate(44)
dec p.health#,1
endif
if keystate(45)
inc p.health#,1
endif
select e.id+2
case 3
HealthBar(e.id+2,e.id+1,0,0,100,10,e.health#)
endcase
endselect
SYNC
LOOP

function HealthBar(obj, id, x, y, width, height, P#)
set current bitmap id
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   ink rgb(255,255,255),0
   text 0,0,str$(int(P#))+"/100"
   GET IMAGE id,0,0,100,10

   set current bitmap 0
   if object exist(obj)
     texture object obj,id
   else
     exitfunction
   endif
endfunction

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 2nd Aug 2010 20:20

Link

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

set text size 10
set text font "Arial Bold"

type player
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

type enemy
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

global p as player

global e as enemy

p.health# = 100.0
p.maxhealth# = 100.0
p.X# = 0.0
p.Y# = 1.0
p.Z# = 0.0
p.id = 1

e.health# = 100.0
e.maxhealth# = 100.0
e.X# = 0.0
e.Y# = 1.0
e.Z# = 0.0
e.id = 50

`SKY
make object sphere 10,1000
set object cull 10,0
color object 10,rgb(68,207,252)
set object smoothing 10,100

`PLAYER
make object cube p.id,1

`ENEMY
make object cube e.id,1

`PLAYER HEALTH
Make Object Plain p.id+1,1.25,.1
set object transparency p.id+1,1
fix object pivot p.id+1
position object p.id+1,0,0,5
set object light p.id+1,0
HealthBar(p.id+1,p.id,0,0,100,10,p.health#)

`ENEMY HEALTH
Make Object Plain e.id+1,1.25,.1
set object transparency e.id+1,1
fix object pivot e.id+1
position object e.id+1,0,0,5
set object light e.id+1,0
HealthBar(e.id+1,e.id,0,0,100,10,e.health#)

`THE MAIN LOOP
DO
move camera up (keystate(16)-keystate(18))*.1

`Update and position enemy health
HealthBar(e.id+1,e.id,0,0,100,10,e.health#)
position object e.id+1,object position x(e.id),(object size y(e.id)+1)/2.0,object position z(e.id)
SET OBJECT TO CAMERA ORIENTATION e.id+1

move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1

if keystate(44)
dec p.health#,1
endif
if keystate(45)
inc p.health#,1
endif

`Update and position player health
HealthBar(p.id+1,p.id,0,0,100,10,p.health#)
position object p.id+1,camera position x(),camera position y()-2.8,camera position z()
SET OBJECT TO CAMERA ORIENTATION p.id+1
move object p.id+1,5.0

SYNC
LOOP

function HealthBar(obj, id, x, y, width, height, P#)
if bitmap exist(id)=0
   CREATE BITMAP id,width,height
endif
set current bitmap id
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   ink rgb(255,255,255),0
   text 30,0,str$(int(P#))+"/100"
   GET IMAGE id,0,0,100,10

set current bitmap 0
   if object exist(obj)
     texture object obj,id
   else
     exitfunction
   endif
endfunction

+ Code Snippet

Rem ***** Main Source File *****
Rem Project: sprite
Rem Created: Sunday, August 01, 2010

Rem ***** Main Source File *****

sync on : sync rate 60
autocam off

set text size 10
set text font "Arial Bold"

type player
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

type enemy
health# as float
maxhealth# as float
magic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

global p as player

global e as enemy

p.health# = 100.0
p.maxhealth# = 100.0
p.X# = 0.0
p.Y# = 1.0
p.Z# = 0.0
p.id = 1

e.health# = 100.0
e.maxhealth# = 100.0
e.X# = 0.0
e.Y# = 1.0
e.Z# = 0.0
e.id = 50

`SKY
make object sphere 10,1000
set object cull 10,0
color object 10,rgb(68,207,252)
set object smoothing 10,100

`PLAYER
make object cube p.id,1

`ENEMY
make object cube e.id,1


`PLAYER HEALTH
Make Object Plain p.id+1,1.25,.1
set object transparency p.id+1,1
fix object pivot p.id+1
position object p.id+1,0,0,5
set object light p.id+1,0
HealthBar(p.id+1,p.id,0,0,100,10,p.health#)

`ENEMY HEALTH
Make Object Plain e.id+1,1.25,.1
set object transparency e.id+1,1
fix object pivot e.id+1
position object e.id+1,0,0,5
set object light e.id+1,0
HealthBar(e.id+1,e.id,0,0,100,10,e.health#)


`THE MAIN LOOP
DO
move camera up (keystate(16)-keystate(18))*.1

`Update and position enemy health
HealthBar(e.id+1,e.id,0,0,100,10,e.health#)
position object e.id+1,object position x(e.id),(object size y(e.id)+1)/2.0,object position z(e.id)
SET OBJECT TO CAMERA ORIENTATION e.id+1

move camera (keystate(17)-keystate(31))*1
turn camera left (keystate(30)-keystate(32))*1

if keystate(44)
dec p.health#,1
endif
if keystate(45)
inc p.health#,1
endif




`Update and position player health
HealthBar(p.id+1,p.id,0,0,100,10,p.health#)
position object p.id+1,camera position x(),camera position y()-2.8,camera position z()
SET OBJECT TO CAMERA ORIENTATION p.id+1
move object p.id+1,5.0

SYNC
LOOP

function HealthBar(obj, id, x, y, width, height, P#)
if bitmap exist(id)=0
   CREATE BITMAP id,width,height
endif
set current bitmap id
    P# = P#/100.0
    if P#<0.0 then P#=0.0
   rem gradient bar
   seg = width / 3
   box x, y, x+seg, y+height, rgb(255,0,0),rgb(255,0,0),rgb(170,85,0),rgb(170,85,0)
   box x+seg, y, x+seg+seg, y+height, rgb(170,85,0),rgb(170,85,0),rgb(85,170,0),rgb(85,170,0)
   box x+seg+seg, y, x+width, y+height, rgb(85,170,0),rgb(85,170,0),rgb(0,255,0),rgb(0,255,0)
   rem empty bit
   ink rgb(92,92,92),0
   box x+width*P#, y, x+width, y+height
   rem highlight
   c1 = 0xCCFFFFFF
   c2 = 0x33FFFFFF
   box x, y, x+width, y+height*0.5, c2,c1,c2,c1
   ink rgb(255,255,255),0
   text 30,0,str$(int(P#))+"/100"
   GET IMAGE id,0,0,100,10

   set current bitmap 0
   if object exist(obj)
     texture object obj,id
   else
     exitfunction
   endif
endfunction

Fiddled with lots of things too...

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 20:24 Edited at: 2nd Aug 2010 20:27

Link

it's still acting a bit weird.

i was gonna turn the camera into the player.

i SORTA fixed the text position

text width/4+text width(str$(int(P#)))/2,0,str$(int(P#))+"/100"

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 2nd Aug 2010 20:31 Edited at: 2nd Aug 2010 20:34

Link

fixed the text.

center text width/2,0,str$(int(P#))+"/100"

also its blurring the text.
and it says 1/100

not 100/100

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 2nd Aug 2010 20:39

Link

add a one onto the end of this line

GET IMAGE id,0,0,100,10
becomes
GET IMAGE id,0,0,100,10,1

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / 3D Healthbar?