Sorry your browser is not supported!

REM Project: Healthbar
REM Created: 8/29/2005 08:23:49
REM
REM ***** Main Source File *****
REM ***** By John Keenleyside **

perform checklist for graphics cards
for c=1 to checklist quantity()
name$=checklist string$(c)
next c
set graphics card name$
SET DISPLAY MODE 640,480,32

sync on : sync rate 60 : Autocam off : hide mouse

make camera 1
set current camera 1
set camera range 1,2,8000
backdrop on 1
color backdrop rgb(170,170,255)
set ambient light 25

global NegativeHealth#
global healthbar=1

Draw_Healthbar()

do
text 0,40, "Use the Up & Down keys to Increase & Decrease Health"
paste image healthbar,613,297
Decrease_health()
Increase_Health()
sync
loop

function Draw_Healthbar
BOX 615,300,625,475,rgb(267,123,001),rgb(267,123,001),rgb(123,234,162),rgb(123,234,162)
BOX 625,300,635,475,rgb(123,234,162),rgb(123,234,162),rgb(267,123,001),rgb(267,123,001)
line 613,297,637,297
line 613,297,613,477
line 637,297,637,477
line 613,477,637,477
GET IMAGE healthbar, 613,297,638,478
NegativeHealth#=299
endfunction

function Increase_Health
if upkey()
   if NegativeHealth# <299 then NegativeHealth# =299
   dec NegativeHealth#
   BOX 615,NegativeHealth#,625,475,rgb(267,123,000),rgb(267,123,000),rgb(123,234,162),rgb(123,234,162)
   BOX 625,NegativeHealth#,635,475,rgb(123,234,162),rgb(123,234,162),rgb(267,123,000),rgb(267,123,000)
   GET IMAGE healthbar, 613,297,638 ,478
endif
endfunction

function Decrease_health
if downkey()
   inc NegativeHealth#
   BOX 615,299,635,NegativeHealth#,Rgb(0,0,0),Rgb(0,0,0),Rgb(0,0,0),Rgb(0,0,0)
   GET IMAGE healthbar, 613,297,638 ,478
endif
endfunction 

make object box 1,1,0.5,0.1
position object 1,0,0,0
position camera 5,5,-10
point camera 5,5,0
ink rgb(255,0,0),0
health#=50
do
if upkey() and health#<101 then health#=health#+1
if downkey() and health#>0 then dec health#
scale object 1,10*health#,100,100
position object 1,health#/20,0,0
text 145,435,"H        E        A        L        T        H"
text 200,200,"up and down keys to alter health"
loop

sync on
sync rate 0

make object box 1,1,0.5,0.1
position object 1,0,0,0
position camera 5,5,-10
point camera 5,5,0
set object light 1,0
disable object zdepth 1
ink rgb(255,0,0),0
health#=50
for i=5 to 100
make object sphere i,rnd(3)
position object i,-50+(rnd(100)),-50+(rnd(100)),-50+(rnd(100))
next i


do
if upkey() and health#<101 then health#=health#+1
if downkey() and health#>0 then health#=health#-2
if leftkey() then turn camera left 1
if rightkey() then turn camera right 1
rem ***************start of positioning ************************
position object 1,camera position x(),camera position y(),camera position z()
set object to camera orientation 1
turn object left 1,90
move object 1,5+(health#/20)*-1
turn object right 1,90
move object 1,10
pitch object down 1,90
move object 1,5
pitch object up 1,90
rem **************************end of positioning***********************
scale object 1,10*health#,100,100
text 145,435,"H        E        A        L        T        H"
text 200,200,"up and down keys to alter health"
text 200,250,"left and right to rotate  camera"
text 0,0,str$(screen fps())

sync
loop