function doesn't accept float value

Author

Message

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 6th Aug 2011 17:53

Link

I am trying to make some health bars in my game. Problem is that I can't pass float numbers to function that draws the bars. It receives only integer

This checks all the objects and asks other function to draw the bar:

+ Code Snippet

function CheckHealthBars()

  for i=1 to MaxUnits
    if Unit(i).exist=1
      obj=unit(i).object
      if object in screen (obj)
        value#=Unit(i).Hp/Unit(i).MaxHp
        HealthBar(object screen x(obj)-50,object screen y(obj)-50,value#)
      endif
    endif
  next i
  
  for i=1 to MaxVehicles
    if Vehicle(i).exist=1
      obj=Vehicle(i).object
      if object in screen (obj)
        val1#=Vehicle(i).BodyHp+Vehicle(i).TurretHp+Vehicle(i).TracksHp
        val2#=Vehicle(i).MaxBodyHp+Vehicle(i).MaxTurretHp+Vehicle(i).MaxTracksHp
        value#=val1#/val2#
        HealthBar(object screen x(obj)-25,object screen y(obj)-50,value#)
      endif
    endif
  next i
  
endfunction

This actually draws the health bar: defines the length and color of inner bar. I tried to use "as float" and "#" separately and both at once to set "value" as float but nothing helps. The program even started to crash so I separated calculation of value# into 2 steps: calculate 2 variables and divide them to get value#

+ Code Snippet

function HealthBar(x,y,value# as float )

  paste image HbarImageNumber, x, y
  text x,y, str$(value#, 3)
  if value#>0.66
    ik resize image HbarGImageNumber, int(50*value#), 4,0
    paste image HBarGImageNumber, x+1,y+1
  else
    if value#>0.33
      ik resize image HbarYImageNumber, int(50*value#), 4,0
      paste image HBarYImageNumber, x+1,y+1
    else
      ik resize image HbarRImageNumber, int(50*value#), 4,0
      paste image HBarRImageNumber, x+1,y+1
    endif
  endif

endfunction

The reason I want to have separate function to draw the bar is that there will be up to 5 classes of objects that will have their own FOR loop.

PS I use the same method to calculate value to be passed into drawing bars function and to write units info so calculation of hp and maxhp for vehicles is correct. As seen in the image function should get value 42/50=0.84 but it gets 0.000

Join The dark Side! We have cookies

Attachments

Login to view attachments

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 6th Aug 2011 19:04 Edited at: 6th Aug 2011 19:10

Link

If Unit().Hp and Unit().MaxHp are integers then it'll cause a problem showing a float.

Really though things like hit points should always be whole numbers to make it easier to work with... in real life there is no such thing as being half-hit.

My way to do a health bar (I'm too lazy to modify this for Image Kit):

hide mouse

` Define the starting health
MaxHealth=500
Health=MaxHealth

` Make a health bar background image
box 0,0,112,30
ink rgb(10,10,10),0
box 1,1,111,29
get image 2,0,0,112,30,1

` Make the health bar image
ink rgb(255,0,0),0
box 0,0,110,28
get image 1,0,0,110,28,1

` Create a timer
tim=timer()
ink rgb(255,255,255),0

do

` Show the health bar background
 paste image 2,mousex()-1,mousey()-1,1
 ` Show the health bar
 sprite 1,mousex(),mousey(),1
 ` Show the Health in text form
 center text mousex()+55,mousey()+35,"Health "+str$(Health)+" / "+str$(MaxHealth)
 ` Show the health percentage (same variable for stretch sprite)
 center text mousex()+55,mousey()+52,str$(HPercentage)+"% "+"Health Left"

` Check if the timer is up
 if timer()>tim+100 and Health>0
  ` Decrease the health
  dec Health
  ` Calculate the current health percentage (for stretch sprite)
  HPercentage=(Health*100)/MaxHealth
  ` Stretch the sprite to the percentage of health left
  stretch sprite 1,HPercentage,100
  ` Reset timer
  tim=timer()
 endif

` Check if the health is zero and reset to MaxHealth
 if Health=0 then Health=MaxHealth
 
loop

+ Code Snippet

hide mouse

` Define the starting health
MaxHealth=500
Health=MaxHealth

` Make a health bar background image
box 0,0,112,30
ink rgb(10,10,10),0
box 1,1,111,29
get image 2,0,0,112,30,1

` Make the health bar image
ink rgb(255,0,0),0
box 0,0,110,28
get image 1,0,0,110,28,1

` Create a timer
tim=timer()
ink rgb(255,255,255),0

do

 ` Show the health bar background
 paste image 2,mousex()-1,mousey()-1,1
 ` Show the health bar
 sprite 1,mousex(),mousey(),1
 ` Show the Health in text form
 center text mousex()+55,mousey()+35,"Health "+str$(Health)+" / "+str$(MaxHealth)
 ` Show the health percentage (same variable for stretch sprite)
 center text mousex()+55,mousey()+52,str$(HPercentage)+"% "+"Health Left"

 ` Check if the timer is up
 if timer()>tim+100 and Health>0
  ` Decrease the health
  dec Health
  ` Calculate the current health percentage (for stretch sprite)
  HPercentage=(Health*100)/MaxHealth
  ` Stretch the sprite to the percentage of health left
  stretch sprite 1,HPercentage,100
  ` Reset timer
  tim=timer()
 endif

 ` Check if the health is zero and reset to MaxHealth
 if Health=0 then Health=MaxHealth
 
loop

Back to top

Profile PM Email

Kiaurutis

13

Years of Service

User Offline

Joined: 19th Jan 2011

Location: Lithuania

Posted: 6th Aug 2011 22:45 Edited at: 6th Aug 2011 22:57

Link

It is an RTS health bar, so I make many of them. If there would be only 1 then yes, I would use sprites. But I need to paste many of them, so images are the best IMO.

What you said about integers, its true, they are integers, but doesn't integer/integer give float? I thought there is a special function to divide integers to still have integer value. I think those functions in pascal was div and mod. I will try to change Unit.Hp into a float.

My game aims at integer type damage. Like in the game "desert rats vs africa corps". units have integer hp, integer armor and integer damage

[EDIT] Yes it works now. But maybe there is some way to make division of integers a float value?

Join The dark Side! We have cookies

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / function doesn't accept float value

Attachments