-----------------------------------

Zeppelin

Wed Jan 02, 2008 3:19 pm


Health Bars for my RPG

-----------------------------------

Ok I'm making an RPG for my ISP but I'm having trouble with the health bars.


var HealthBar1 : int := Pic.FileNew ("Health Bar 1 copy.jpg")
var HealthBar2 : int := Pic.FileNew ("Health Bar 2 copy.jpg")
var HealthBar3 : int := Pic.FileNew ("Health Bar 3 copy.jpg")
var HealthBar4 : int := Pic.FileNew ("Health Bar 4 copy.jpg")
var HealthBar5 : int := Pic.FileNew ("Health Bar 5 copy.jpg")
var HealthBar6 : int := Pic.FileNew ("Health Bar 6 copy.jpg")
var HealthBar7 : int := Pic.FileNew ("Health Bar 7 copy.jpg")
var HealthBar8 : int := Pic.FileNew ("Health Bar 8 copy.jpg")
var HealthBar9 : int := Pic.FileNew ("Health Bar 9 copy.jpg")
var HealthBar10 : int := Pic.FileNew ("Health Bar 10 copy.jpg")
var HealthBar11 : int := Pic.FileNew ("Health Bar 11 copy.jpg")
var HealthBar12 : int := Pic.FileNew ("Health Bar 12 copy.jpg")
var HealthBar13 : int := Pic.FileNew ("Health Bar 13 copy.jpg")
var HealthBar14 : int := Pic.FileNew ("Health Bar 14 copy.jpg")
var HealthBar15 : int := Pic.FileNew ("Health Bar 15 copy.jpg")
var HealthBar16 : int := Pic.FileNew ("Health Bar 16 copy.jpg")
var HealthBar17 : int := Pic.FileNew ("Health Bar 17 copy.jpg")
var HealthBar18 : int := Pic.FileNew ("Health Bar 18 copy.jpg")
var HealthBar19 : int := Pic.FileNew ("Health Bar 19 copy.jpg")
var HealthBar20 : int := Pic.FileNew ("Health Bar 20 copy.jpg")
var HealthBar21 : int := Pic.FileNew ("Health Bar 21 copy.jpg")
var HealthBar22 : int := Pic.FileNew ("Health Bar 22 copy.jpg")
var HealthBar23 : int := Pic.FileNew ("Health Bar 23 copy.jpg")
var HealthBar24 : int := Pic.FileNew ("Health Bar 24 copy.jpg")
var HealthBar25 : int := Pic.FileNew ("Health Bar 25 copy.jpg")
var HealthBar26 : int := Pic.FileNew ("Health Bar 26 copy.jpg")
var HealthBar27 : int := Pic.FileNew ("Health Bar 27 copy.jpg")
var HealthBar28 : int := Pic.FileNew ("Health Bar 28 copy.jpg")
var HealthBar29 : int := Pic.FileNew ("Health Bar 29 copy.jpg")
var HealthBar30 : int := Pic.FileNew ("Health Bar 30 copy.jpg")
var HealthBar31 : int := Pic.FileNew ("Health Bar 31 copy.jpg")
var HealthBar32 : int := Pic.FileNew ("Health Bar 32 copy.jpg")
var HealthBar33 : int := Pic.FileNew ("Health Bar 33 copy.jpg")
var HealthBar34 : int := Pic.FileNew ("Health Bar 34 copy.jpg")
var HealthBar35 : int := Pic.FileNew ("Health Bar 35 copy.jpg")
var HealthBar36 : int := Pic.FileNew ("Health Bar 36 copy.jpg")
var HealthBar37 : int := Pic.FileNew ("Health Bar 37 copy.jpg")
var HealthBar38 : int := Pic.FileNew ("Health Bar 38 copy.jpg")
var HealthBar39 : int := Pic.FileNew ("Health Bar 39 copy.jpg")
var HealthBar40 : int := Pic.FileNew ("Health Bar 40 copy.jpg")
var HealthBar41 : int := Pic.FileNew ("Health Bar 41 copy.jpg")
var HealthBar42 : int := Pic.FileNew ("Health Bar 42 copy.jpg")
var HealthBar43 : int := Pic.FileNew ("Health Bar 43 copy.jpg")
var HealthBar44 : int := Pic.FileNew ("Health Bar 44 copy.jpg")
var HealthBar45 : int := Pic.FileNew ("Health Bar 45 copy.jpg")
var HealthBar46 : int := Pic.FileNew ("Health Bar 46 copy.jpg")
var HealthBar47 : int := Pic.FileNew ("Health Bar 47 copy.jpg")
var HealthBar48 : int := Pic.FileNew ("Health Bar 48 copy.jpg")
var HealthBar49 : int := Pic.FileNew ("Health Bar 49 copy.jpg")
var HealthBar50 : int := Pic.FileNew ("Health Bar 50 copy.jpg")

procedure HealthyBar1
    if Health1 div MaxHealth1 > 0 and Health1 div MaxHealth1  0.02 and Health1 div MaxHealth1  0.04 and Health1 div MaxHealth1  0.06 and Health1 div MaxHealth1  0.08 and Health1 div MaxHealth1  0.1 and Health1 div MaxHealth1  0.12 and Health1 div MaxHealth1  0.14 and Health1 div MaxHealth1  0.16 and Health1 div MaxHealth1  0.18 and Health1 div MaxHealth1  0.20 and Health1 div MaxHealth1  0.22 and Health1 div MaxHealth1  0.24 and Health1 div MaxHealth1  0.26 and Health1 div MaxHealth1  0.28 and Health1 div MaxHealth1  0.30 and Health1 div MaxHealth1  0.32 and Health1 div MaxHealth1  0.34 and Health1 div MaxHealth1  0.36 and Health1 div MaxHealth1  0.38 and Health1 div MaxHealth1  0.40 and Health1 div MaxHealth1  0.42 and Health1 div MaxHealth1  0.44 and Health1 div MaxHealth1  0.46 and Health1 div MaxHealth1  0.48 and Health1 div MaxHealth1  0.50 and Health1 div MaxHealth1  0.52 and Health1 div MaxHealth1  0.54 and Health1 div MaxHealth1  0.56 and Health1 div MaxHealth1  0.58 and Health1 div MaxHealth1  0.60 and Health1 div MaxHealth1  0.62 and Health1 div MaxHealth1  0.64 and Health1 div MaxHealth1  0.66 and Health1 div MaxHealth1  0.68 and Health1 div MaxHealth1  0.70 and Health1 div MaxHealth1  0.72 and Health1 div MaxHealth1  0.74 and Health1 div MaxHealth1  0.76 and Health1 div MaxHealth1  0.78 and Health1 div MaxHealth1  0.80 and Health1 div MaxHealth1  0.82 and Health1 div MaxHealth1  0.84 and Health1 div MaxHealth1  0.86 and Health1 div MaxHealth1  0.88 and Health1 div MaxHealth1  0.90 and Health1 div MaxHealth1  0.92 and Health1 div MaxHealth1  0.94 and Health1 div MaxHealth1  0.96 and Health1 div MaxHealth1  0.98 and Health1 div MaxHealth1  0 and Health2 div MaxHealth2  0.02 and Health2 div MaxHealth2  0.04 and Health2 div MaxHealth2  0.06 and Health2 div MaxHealth2  0.08 and Health2 div MaxHealth2  0.1 and Health2 div MaxHealth2  0.12 and Health2 div MaxHealth2  0.14 and Health2 div MaxHealth2  0.16 and Health2 div MaxHealth2  0.18 and Health2 div MaxHealth2  0.20 and Health2 div MaxHealth2  0.22 and Health2 div MaxHealth2  0.24 and Health2 div MaxHealth2  0.26 and Health2 div MaxHealth2  0.28 and Health2 div MaxHealth2  0.30 and Health2 div MaxHealth2  0.32 and Health2 div MaxHealth2  0.34 and Health2 div MaxHealth2  0.36 and Health2 div MaxHealth2  0.38 and Health2 div MaxHealth2  0.40 and Health2 div MaxHealth2  0.42 and Health2 div MaxHealth2  0.44 and Health2 div MaxHealth2  0.46 and Health2 div MaxHealth2  0.48 and Health2 div MaxHealth2  0.50 and Health2 div MaxHealth2  0.52 and Health2 div MaxHealth2  0.54 and Health2 div MaxHealth2  0.56 and Health2 div MaxHealth2  0.58 and Health2 div MaxHealth2  0.60 and Health2 div MaxHealth2  0.62 and Health2 div MaxHealth2  0.64 and Health2 div MaxHealth2  0.66 and Health2 div MaxHealth2  0.68 and Health2 div MaxHealth2  0.70 and Health2 div MaxHealth2  0.72 and Health2 div MaxHealth2  0.74 and Health2 div MaxHealth2  0.76 and Health2 div MaxHealth2  0.78 and Health2 div MaxHealth2  0.80 and Health2 div MaxHealth2  0.82 and Health2 div MaxHealth2  0.84 and Health2 div MaxHealth2  0.86 and Health2 div MaxHealth2  0.88 and Health2 div MaxHealth2  0.90 and Health2 div MaxHealth2  0.92 and Health2 div MaxHealth2  0.94 and Health2 div MaxHealth2  0.96 and Health2 div MaxHealth2  0.98 and Health2 div MaxHealth2