Sorry your browser is not supported!

make object box 1,3,1,0 : color object 1,rgb(255,255,0)

posx# = 0

position camera 0,0,-10
point camera 0,0,0

do

   if rightkey() = 1 and posx# < 6 then posx# = posx# + .05

   if leftkey() = 1 and posx# > -6 then posx# = posx# - .05

   position object 1,posx#,-5,0

loop

SET DISPLAY MODE 800,600,32
SYNC ON : HIDE MOUSE
AUTOCAM OFF : RANDOMIZE TIMER()

`MAKE SOME ENEMIES
FOR ENEMY=100 TO 109
MAKE OBJECT BOX ENEMY,1,1,0 : COLOR OBJECT ENEMY,RGB(RND(250),RND(255),RND(255))
MAKE OBJECT COLLISION BOX ENEMY,-0.5,-0.5,-0.5,0.5,0.5,0.5,1
NEXT ENEMY
`I'M SURE THIS CAN BE DONE EASIER BUT I COULDN'T BE BOTHERED TO WORK IT OUT
POSITION OBJECT 100,-6.5,5,0 : POSITION OBJECT 101,-5,5,0 : POSITION OBJECT 102,-3.5,5,0
POSITION OBJECT 103,-2,5,0 : POSITION OBJECT 104,-0.5,5,0 : POSITION OBJECT 105,1,5,0 : POSITION OBJECT 106,2.5,5,0
POSITION OBJECT 107,4,5,0 : POSITION OBJECT 108,5.5,5,0 : POSITION OBJECT 109,7,5,0

make object box 1,3,1,0 : color object 1,rgb(255,255,0) : MAKE OBJECT COLLISION BOX 1,-1.5,-0.5,-0.5,1.5,0.5,0.5,1

posx# = 0 : EY=1 : TIME=TIMER()

position camera 0,0,-10 : point camera 0,0,0

do
IF TIME-TIMER()<-2000 THEN GOSUB MOVE_ENEMIES
IF SPACEKEY() AND FIRING=0 THEN FIRING=1 : WAIT 100 : GOSUB FIRING

   if rightkey() = 1 and posx# < 6 then posx# = posx# + .05

   if leftkey() = 1 and posx# > -6 then posx# = posx# - .05

   position object 1,posx#,-5,0

IF OBJECT EXIST(2)
IF BULLETY>0
POSITION OBJECT 2,OBJECT POSITION X(2),OBJECT POSITION Y(2)+1,0 : DEC BULLETY
FOR ENEMY=100 TO 109
IF OBJECT EXIST(ENEMY) AND OBJECT EXIST(2)
IF OBJECT COLLISION(2,ENEMY) THEN DELETE OBJECT ENEMY : DELETE OBJECT 2 : FIRING=0 : SCORE=SCORE+25
ENDIF : NEXT ENEMY
ELSE
DELETE OBJECT 2 : FIRING=0
ENDIF : ENDIF

CENTER TEXT 400,0,"SCORE "+STR$(SCORE)
IF SCORE=250 THEN END
SYNC : loop

`*****
MOVE_ENEMIES:
FOR ENEMY=100 TO 109
IF OBJECT EXIST(ENEMY)
POSITION OBJECT ENEMY,OBJECT POSITION X(ENEMY),OBJECT POSITION Y(ENEMY)-EY,0
IF OBJECT POSITION Y(ENEMY)<-4 THEN GOSUB HIT
ENDIF : NEXT ENEMY
TIME=TIMER()
RETURN

`*****
HIT:
END
RETURN

`*****
FIRING:
MAKE OBJECT SPHERE 2,0.5 : MAKE OBJECT COLLISION BOX 2,-0.5,-0.5,-0.5,0.5,0.5,0.5,1
POSITION OBJECT 2,OBJECT POSITION X(1),OBJECT POSITION Y(1),0 : BULLETY=9
RETURN