Sorry your browser is not supported!

Sync On : Sync Rate 0


Make Object Cylinder 1,1         : `This will be our Health-Bar object
Ghost Object On 1                : `Just a visual effect

Scale Object 1,400,50,50         : `Scale the object so it's nice and long and thin
ZRotate Object 1,90              : `Rotate it so it's facing the right way ( on it's side )
Fix Object Pivot 1               : `Fix the pivot so that all rotations are zero'd

start = Timer()                  : `Just a simple Timer function to see how long the function takes

_pos_HUD(1,Screen Width()/2,40,5) : `The actual positioning of the object onscreen

endt = Timer() - start

Do


Text 0,0,"Time Taken To Position = " + Str$(endt) + "ms"



If UpKey() = 1 Then Inc health    : `Just a simulation of the health going up and down
If DownKey() = 1 Then Dec health

_update_health(health,1,1)        : ` The call to update the Health bar object with the new status


Sync
Loop




Function _pos_HUD(obj,sx,sy,zdist)


   `obj is the Object Number that you wish to position
   `sx is the Screen X coordinate you wish to position the object at
   `sy is the Screen Y coordinate
   `zdist is simply the distance you want the object to be from the camera ( the smaller the better )


   `What the function actuallly does is it checks the Objects Screen coordintates against the desired
   `coordinates for near equality... If the object is in position, the loops are broken, otherwise,
   `the loops keep moving the object by little amounts untill it is in the right position


   Position Camera 0,0,0
   Point Camera 0,0,10

   Position Object obj,0,0,zdist


   ox = Object Screen X(obj)
   oy = Object Screen Y(obj)

   While ox > sx + 2 Or ox < sx - 2
      If ox > sx + 2 Then temp# = -0.01 Else temp# = 0.01
      Position Object obj,(Object Position X(obj) + temp#),Object Position Y(obj),zdist
      ox = Object Screen X(obj)
      oy = Object Screen Y(obj)
   EndWhile

   While oy > sy + 2 Or oy < sy - 2
      If oy < sy - 2 Then temp# = -0.01 Else temp# = 0.01
      Position Object obj, Object Position X(obj),(Object Position Y(obj) + temp#),zdist
      ox = Object Screen X(obj)
      oy = Object Screen Y(obj)
   EndWhile


EndFunction




Function _update_health(perc,img,obj)


   `perc is the the Percent of the "health"
   `img is the image number you wish to use for the texture for the Health Bar object
   `obj is the Object Number of the Health Bar

   `This Simply draws a box to the screen, with red indicating health, white indicating a lack of health,
   `the image is then captured as a texture and applied to the object.

   `You'll notice that you can see the box being drawn to the screen, this should disapear when you put
   `this function into your main app...
   `If it does not, at the start of your code, put the command Draw To Back
   `This will draw all 2D operations behind any 3D on the screen.


   Ink RGB(255,255,255),0
   Box 0,0,10,100
   Ink RGB(255,0,0),0
   Box 0,0,10,perc

   Get Image img,0,0,10,100,1

   Texture Object obj,img


EndFunction

Function _update_health(perc,img,obj)


   `perc is the the Percent of the "health"
   `img is the image number you wish to use for the texture for the Health Bar object
   `obj is the Object Number of the Health Bar

   `This Simply draws a box to the screen, with red indicating health, white indicating a lack of health,
   `the image is then captured as a texture and applied to the object.

   `You'll notice that you can see the box being drawn to the screen, this should disapear when you put
   `this function into your main app...
   `If it does not, at the start of your code, put the command Draw To Back
   `This will draw all 2D operations behind any 3D on the screen.


   Ink RGB(255,255,255),0
   Box 0,0,100,10
   Ink RGB(255,0,0),0
   Box 0,0,perc,10

   Get Image img,0,0,10,100,1

   Texture Object obj,img


EndFunction

set display mode 1024,768,32
rem make global variables for functions
global ang#=1.0
global height#=100.0
global camdist#=100.0
global health#=100.0
global enemyhealth#=100.0
rem make player
player=1
make object box player,10,20,10
rem make enemy
enemy=2
make object box enemy,10,20,10
rem move enemy away from you
position object enemy,0,0,100
rem make camera
camera=1
make camera camera
set cursor 500,350
set text size 32
print "Press a key to start"
wait key
do
controlcam(player,camera)
shooting()
hit?()
health()
loop

function controlcam(obj,cam)
if upkey()=1 then move object obj,.1
if downkey()=1 then move object obj,-.1
if leftkey()=1 then yrotate object obj,wrapvalue(object angle y(obj)+.1)
if rightkey()=1 then  yrotate object obj,wrapvalue(object angle y(obj)-.1)
if mousex()=>1000 then ang#=wrapvalue(ang#-.2)
if mousex()=<100 then ang#=wrapvalue(ang#+.2)
if height# < 400
 if mousey()=<100 then height#=height#+.1
endif
if height#>50
 if mousey()=>700 then height#=height#-.1
endif
set camera to follow cam,object position x(obj),0,object position z(obj),ang#,camdist#,height#,1,1
point camera cam,object position x(obj),0,object position z(obj)
endfunction
function shooting()
if keystate(57)=1
 if object exist(100)=0
 make object box 100,10,10,10
rem makes object at your position
 position object 100,Object Position x(1),Object Position y(1),Object Position z(1)
rem fires bullet in the direction you are facing
 rotate object 100,object angle x(1),object angle y(1),object angle z(1)
 endif
endif
if object exist(100)=1
move object 100,1
rem distance formula
ox#=object position x(100)
oz#=object position z(100)
oy#=object position y(100)
dx#=object position x(1)-ox#
dz#=object position z(1)-oz#
dy#=object position y(1)-oy#
dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
endif
rem deletes bullet if it goes too far
if dist#>100
delete object 100
endif
rem make the enemy shoot back
if object exist(101)=0
 make object box 101,10,10,10
rem makes object at enemy position
 position object 101,Object Position x(2),Object Position y(2),Object Position z(2)
rem fires bullet in the direction the enemy is facing
 rotate object 101,object angle x(2),object angle y(2),object angle z(2)
 endif
 rem points the enemy at you
 point object 2,Object Position x(1),Object Position y(1),Object Position z(1)
rem delete the bullet if it is to far from the enemy
if object exist(101)=1
move object 101,1
rem distance formula
ox#=object position x(101)
oz#=object position z(101)
oy#=object position y(101)
dx#=object position x(2)-ox#
dz#=object position z(2)-oz#
dy#=object position y(2)-oy#
dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
endif
rem deletes bullet if it goes too far
if dist#>100
delete object 101
endif
endfunction
function hit?()
rem check to see if player is hit
rem checks to see if the bullets are close to you or enemy
rem checks to see if you have shot a bullet
if object exist(100)=1
 ox#=object position x(100)
 oz#=object position z(100)
 oy#=object position y(100)
 dx#=object position x(2)-ox#
 dz#=object position z(2)-oz#
 dy#=object position y(2)-oy#
 dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
 if dist#<5
  rem if the bullet is close to the enemy subtract 10 health from the enemy and remove the bullet
  enemyhealth#=enemyhealth#-10
  delete object 100
 endif
endif
rem does the same above, but for you
if object exist(101)=1
ox#=object position x(101)
oz#=object position z(101)
oy#=object position y(101)
dx#=object position x(1)-ox#
dz#=object position z(1)-oz#
dy#=object position y(1)-oy#
dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
 if dist#<5
 health#=health#-10
 delete object 101
 endif
endif
 endfunction
function health()

set display mode 1024,768,32
rem make global variables for functions
dim ang#(1)
ang#(1)=1.0
dim height#(1)
height#(1)=100.0
dim camdist#(1)
camdist#(1)=100.0
dim health#(1)
health#(1)=1000.0
dim enemyhealth#(1)
enemyhealth#(1)=100.0
rem make player
player=1
make object box player,10,20,10
rem make enemy
enemy=2
make object box enemy,10,20,10
rem move enemy away from you
position object enemy,0,0,100
rem make camera
camera=1
make camera camera
set cursor 500,350
set text size 32
print "Press a key to start"
wait key
do
controlcam(player,camera)
shooting()
hit?()
health()
loop

function controlcam(obj,cam)
if upkey()=1 then move object obj,.1
if downkey()=1 then move object obj,-.1
if leftkey()=1 then yrotate object obj,wrapvalue(object angle y(obj)+.1)
if rightkey()=1 then  yrotate object obj,wrapvalue(object angle y(obj)-.1)
if mousex()=>1000 then ang#=wrapvalue(ang#-.2)
if mousex()=<100 then ang#=wrapvalue(ang#+.2)
if height#(1) < 400
 if mousey()=<100 then height#(1)=height#(1)+.1
endif
if height#(1)>50
 if mousey()=>700 then height#(1)=height#(1)-.1
endif
set camera to follow cam,object position x(obj),0,object position z(obj),ang#,camdist#(1),height#(1),1,1
point camera cam,object position x(obj),0,object position z(obj)
endfunction
function shooting()
if keystate(57)=1
 if object exist(100)=0
 make object box 100,10,10,10
rem makes object at your position
 position object 100,Object Position x(1),Object Position y(1),Object Position z(1)
rem fires bullet in the direction you are facing
 rotate object 100,object angle x(1),object angle y(1),object angle z(1)
 endif
endif
if object exist(100)=1
move object 100,1
rem distance formula
ox#=object position x(100)
oz#=object position z(100)
oy#=object position y(100)
dx#=object position x(1)-ox#
dz#=object position z(1)-oz#
dy#=object position y(1)-oy#
dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
endif
rem deletes bullet if it goes too far
if dist#>100
delete object 100
endif
rem make the enemy shoot back
if object exist(101)=0
 make object box 101,10,10,10
rem makes object at enemy position
 position object 101,Object Position x(2),Object Position y(2),Object Position z(2)
rem fires bullet in the direction the enemy is facing
 rotate object 101,object angle x(2),object angle y(2),object angle z(2)
 endif
 rem points the enemy at you
 point object 2,Object Position x(1),Object Position y(1),Object Position z(1)
rem delete the bullet if it is to far from the enemy
if object exist(101)=1
move object 101,1
rem distance formula
ox#=object position x(101)
oz#=object position z(101)
oy#=object position y(101)
dx#=object position x(2)-ox#
dz#=object position z(2)-oz#
dy#=object position y(2)-oy#
dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
endif
rem deletes bullet if it goes too far
if dist#>100
delete object 101
endif
endfunction
function hit?()
rem check to see if player is hit
rem checks to see if the bullets are close to you or enemy
rem checks to see if you have shot a bullet
if object exist(100)=1
 ox#=object position x(100)
 oz#=object position z(100)
 oy#=object position y(100)
 dx#=object position x(2)-ox#
 dz#=object position z(2)-oz#
 dy#=object position y(2)-oy#
 dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
 if dist#<5
  rem if the bullet is close to the enemy subtract 10 health from the enemy and remove the bullet
  enemyhealth#(1)=enemyhealth#(1)-10
  delete object 100
 endif
endif
rem does the same above, but for you
if object exist(101)=1
ox#=object position x(101)
oz#=object position z(101)
oy#=object position y(101)
dx#=object position x(1)-ox#
dz#=object position z(1)-oz#
dy#=object position y(1)-oy#
dist#=sqrt((dx#*dx#)+(dz#*dz#)+(dy#*dy#))
 if dist#<5
 health#(1)=health#(1)-10
 delete object 101
 endif
endif
 endfunction
function health()
rem your health
Ink RGB(255,255,255),0
box 10,700,100,720
Ink RGB(255,0,0),0
box 10,700,health#(1),720
rem enemy health
Ink RGB(255,255,255),0
box 900,10,1000,30
Ink RGB(255,0,0),0
box 900,10,enemyhealth#(1)+900,30

rem check to see if you or the enemy has 0 health
if health#(1)=<0
do
set text size 32
set cursor 500,350
print "you have lost"
loop
endif

if enemyhealth#(1)=<0
do
set cursor 500,350
set text size 32
print "you have won"
loop
endif

endfunction