Sorry your browser is not supported!

    REM Fire a bullet
    if FIRE=1
    REM Make a bullet
    done=0
    n=20
    while done=0
    if object exist(n)=0
    make object sphere n, 1
    position object n, camera position x(),camera position y()-2,camera position z()
    rotate object n, camera angle x(),camera angle y(),camera angle z()
    done=1
    endif
    inc n
    if n=50 then done=1
    endwhile
    endif

    REM Move bullets

    for x=20 to 50
    if object exist(x)=1
    Life=Bullet(x).life
    if Life<250
    move object x, 5
    Bullet(x).life=Life+1
    else
    delete object x
    Bullet(x).life=0 `EDIT: forgot this line!!
    endif
    endif
    next x

for x=20 to 50
if object exist(x)=1
if object collision (x,enemy(e).estates)=1
 dec enemy(e).ehealth
 endif
endif
next x

autocam off
sync on
Dim health(10) as float
make object box 100,100,0,100
color object 100,rgb(0,255,0)
set object collision off 100

`Enemies
for i= 1 to 10
   make object box i,3,8,1
   position object i,-20+i*6,0,0
   offset limb i,0,0,5,0
next i

`player
make object sphere 15,5
position object 15,-15,3,-20

position camera 20,50,-80
point camera 20,0,0

do
`Player movements
if upkey() then move object 15,0.1
if downkey() then move object 15,-0.1
if leftkey() then move object left 15,0.1
if rightkey() then move object right 15,0.1

`taking away enemies health
for i= 1 to 10
  if object collision(i,15) then dec health(i),0.2
  xrotate object i,-health(i)
  if health(i)<-90 then health(i)=-90
  if object angle x(i)>89 then color object i,rgb(255,0,0)
next i

sync
loop