I am trying to get two bars on my screen and stay there, though I am not sure where to start. I would like to have it so that the health is on the left and the boost is on the right. The health would decrease whenever I hit one of the buildings in the world. The boost would decrease when I hit the spacebar and move faster. I have tried using the make object command and scaling it but I am not sure how to get it to stay there. Thanks
REM edutainment
REM by abbas and sam
REM created 12/2/13 10:11 a.m.
autocam off
hide mouse
rem ****____****____title intro thing____****____****
center text 320,240, "Welcome to a Friend in Need"
ink rgb(0,20,255),0
center text 321,241, "Welcome to a Friend in Need"
ink rgb(255,255,255),0
center text 320,260, "A Game About Transfering Energy"
ink rgb(0,20,255),0
center text 321,261, "A Game About Transfering Energy"
ink rgb(255,255,255),0
center text 320,280, "Press [A] to Continue"
ink rgb(0,20,255),0
center text 321,281, "Press [A] to Continue"
ink rgb(255,255,255),0
do
if inkey$()="a"
do
if inkey$()<>"a" then cls : exit
loop
exit
endif
loop
ink rgb(255,255,255),0
center text 320,240, "Drive to Your Friend Who"
ink rgb(0,20,255),0
center text 321,241, "Drive to Your Friend Who"
ink rgb(255,255,255),0
center text 320,260, "Is Low On Energy,"
ink rgb(0,20,255),0
center text 321,261, "Is Low On Energy,"
ink rgb(255,255,255),0
center text 320,280, "Only You Can Save Him!!!"
ink rgb(0,20,255),0
center text 321,281, "Only You Can Save Him!!!"
ink rgb(255,255,255),0
center text 320,300, "Press [S] to Continue"
ink rgb(0,20,255),0
center text 321,301, "Press [S] to Continue"
ink rgb(255,255,255),0
do
if inkey$()="s"
do
if inkey$()<>"s" then cls : exit
loop
exit
endif
loop
center text 320,220, "********************"
ink rgb(0,20,255),0
center text 321,221, "********************"
ink rgb(255,255,255),0
center text 320,240, "Press [P] To Start"
ink rgb(0,20,255),0
center text 321,241, "Press [P] To Start"
ink rgb(255,255,255),0
center text 320,260, "********************"
ink rgb(0,20,255),0
center text 321,261, "********************"
ink rgb(155,255,255),0
do
if inkey$()="p"
do
if inkey$()<>"p" then cls :exit
loop
exit
endif
loop
rem ****____****_____loading section____****____****
load image "E:\My DBPRO Games\Edutainment\images\sky_texture.jpg",1
load sound "E:\My DBPRO Games\Edutainment\sounds\car_driving.wav",1
load sound "E:\My DBPRO Games\Edutainment\sounds\car_explosion.wav",2
rem ****____****____MainSection Loop____****____****
MainSection:
make object cube 1,50
scale object 1, 15,20,20
color object 1, rgb(255,0,0)
position object 1,-500,-300,-500
rotate object 1,0,45,0
color backdrop rgb(25,0,100)
position camera 0,85,-5
point camera 0,60,60
set camera range 1,4000000000000
play sound 1
loop sound 1
rem ****____****____ other oject creation ____****____****
NumberOfBuildings = 75
for t = 1 to NumberOfBuildings
make object cube t + NumberOfBuildings ,100
scale object t +NumberOfBuildings,200,750,200
color object t + NumberOfBuildings , rgb(0,255,100)
position object t + NumberOfBuildings ,Rnd(7500)-950,30,Rnd(7500)-950
rem make object collision box t + NumberOfBuildings ,-100,-375,-100,100,375,100,0 rem ))))))))))))))
set object collision to polygons t + NumberOfBuildings
next t
NumberOfBuildings2 = 37
for x = 1 to NumberOfBuildings2
make object cube x + NumberOfBuildings2 ,150
scale object x +NumberOfBuildings2,250,200,275
color object x + NumberOfBuildings2 , rgb(100,0,100)
position object x + NumberOfBuildings2 ,Rnd(7500)-950,-200,Rnd(7500)-950
rem make object collision box t + NumberOfBuildings ,-100,-375,-100,100,375,100,0 rem ))))))))))))))
set object collision to polygons x + NumberOfBuildings2
next x
rem ****____****____ boost bar section ____****____****
rem ****____****____ Collision and Motion Section ____****____****
do
oldx#=x#
oldz#=z#
rem store angle
ay# = object angle Y(1)
rem key input
if upkey()=1 then move object 1,0.25
if downkey()=1 then move object 1,-0.25
if leftkey()=1 then ay# = wrapvalue(ay#-0.20)
if rightkey()=1 then ay# = wrapvalue(ay#+0.20)
if spacekey()=1 then move object 1,0.375 : cdn# = cnd# - 15
if inkey$()="q" then end
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
position object 1,x#,y#,z#
`sliding collision cheking
`-----------------------------------
if object collision(1,0)>0:gosub zzol
if object collision(1,0)=0:z#=oldz#
endif
endif
if object collision(1,0)>0:gosub xxol
if object collision(1,0)=0:x#=oldx#
endif
endif
if object collision(1,0)>0
x#=oldx#:z#=oldz#
endif
`------------------------------------
cdn# = 55
rem rotate object
yrotate object 1,ay#
set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 5, 15, cdn#, 0
loop
xxol:
POSITION OBJECT 1,oldx#,y#,z#
stop sound 1
play sound 2
play sound 1
loop sound 1
return
zzol:
POSITION OBJECT 1,x#,y#,oldz#
stop sound 1
play sound 2
play sound 1
loop sound 1
return
wait key