Sorry your browser is not supported!

main_game:
sync on
sync rate 60
load image "media/stars.jpg",1


make object cube 1,10
make object cube 2,5
hide object 2
scale object 2,50,50,250
color object 2,RGB(0,255,0)
set alpha mapping on 2,75
position object 1,100,0,-400


color object 1,RGB(255,0,0)
make object sphere 4,-2000
texture object 4,1
scale object texture 4,5,5
set alpha mapping on 1,75


yy=300
for t=5 to 104
make object cube t,10
position object t,xx,0,yy
xx=xx+15
enemy_no=enemy_no+1
if enemy_no=20 then yy=yy-50:xx=0:enemy_no=0
enem=enem+1
color object t,RGB(0,255,0)
set alpha mapping on t,75
next t

make object sphere 105,10
ghost object on 105
hide object 105

lives=3


do
set text font "Verdana"
set text to bold
set cursor 0,0:print "",screen fps()
set cursor 100,0:print "SCORE:",score
set cursor 200,0:print "LIVES:",lives
set cursor 300,0:print "ENEMIES:",enem

for t=5 to 104
if object exist(t)
move object t,-0.05
endif
next t

if collision>0
show object 105
position object 105,object position x(2),object position y(2),object position z(2)
scale object 105,scale,scale,scale
endif


`object collision code
for t=5 to 104
`Bullet Collision
if object exist(t)
if object collision (2,t)=1 and object visible (2)
collision=500


delete object t
hide object 2


score=score+20
enem=enem-1
endif
endif
if collision>0 then dec collision:scale=scale+5
if collision=0 then hide object 105:scale=10
next t

if inkey$()="1" then camera=0
if inkey$()="2" then camera=1

if leftkey()=1 and object position x(1)>-25 then move object left 1,3
if rightkey()=1 and object position x(1)<300 then move object right 1,3

`shooting code
if spacekey()=1 and shoot=0 then shoot=1:position object 2,object position x(1),0,object position z(1):show object 2
if shoot=1 then move object 2,15:bulletlife=bulletlife+1
if bulletlife=60 then bulletlife=0:shoot=0:hide object 2

if camera=0
position camera object position x(1),object position y(1)+50,object position z(1)-100
xrotate camera 0,0
endif
if camera=1
position camera object position x(1),object position y(1)+200,object position z(1)-150
xrotate camera 0,30
endif
sync
loop