Sorry your browser is not supported!

sync rate 60
sync on
set display mode 1280,1024,32
ink rgb (255,255,255),0
set text size 50
set text font "Digital SF"

gosub variables

variables:
load image "images\space.jpg",1
load image "images\player ship.jpg",2
load image "images\laser.jpg",3
load image "images\enemyship1.jpg",4
load image "images\enemy ship2.jpg",5
load image "images\enemyship3.jpg",6

playerx = 640
playery = 950
en1x = 500
en1y = 500
en2x = 350
en2y = 400
en3x = 600
en3y = 700
score = 0
lives = 3

gosub load_enemies
gosub player_and_enemy_movement

load_enemies:
sprite 4,en1x,en1y,4
sprite 5,en2x,en2y,5
sprite 6,en3x,en3y,6
return

player_and_enemy_movement:

Do
   paste image 1,0,0
   If leftkey()=1 and playerx =>0 then playerx = playerx - 5
   If rightkey()=1 and playerx <=1230 then playerx = playerx + 5

      sprite 2,playerx,playery,2

   if spacekey()=1 and bulletfired = 0
      bulletfired = 1
      bulletx = playerx + 15
      bullety = playery + 5
   endif

   if bulletfired = 1
      gosub bulletmove
      gosub collision
   endif



   text 0,0,"Score:"
   text 120,0,str$(score)
   text 900,0,"Lives:"
   text 1020,0,str$(lives)

Sync
loop

bulletmove:
   sprite 3,bulletx,bullety,3
   bullety = bullety - 10
   if bullety = 0
      dec bullety,5
      sprite 3,bulletx,bullety,3
   endif
   if bullety <=0
      sprite 3,2000,2000,3
      bulletfired = 0
   endif
return

collision:
   if sprite hit (3,4)
      delete sprite 4
      sprite 3,2000,2000,3
      score = score + 100
      bulletfired = 0
   endif

   if sprite hit (3,5)
      delete sprite 5
      sprite 3,2000,2000,3
      score = score + 100
      bulletfired = 0
   endif

   if sprite hit (3,6)
      delete sprite 6
      sprite 3,2000,2000,3
      score = score + 100
      bulletfired = 0
   endif
   return

`%Project Title%
`%Source File Name%
`======================
global total_enemies as integer
total_enemies =50

type TEnemy
	
	EnemyNum as Integer
	ShootTime as Integer
	PosX as Integer
	PosY as Integer
	MoveTimeX as integer
	MoveTimeY as integer
	EnemySize as Integer
	
	UpdateTimer as Integer
endtype

dim Enemy() as TEnemy

global ScreenX as integer
ScreenX = screen width()
global ScreenY as integer
ScreenY = Screen width()

randomize timer()
//make enemies:
for a=1 to total_enemies
	dim Enemy(array count(Enemy())+1) as TEnemy
	this = array count(Enemy())
	enemy(this).EnemyNum = a `enemy name or number (in my case its a number)
	Enemy(this).ShootTime = rnd(1000)+400 `makes the enemy to shot in time between 0.4 and 1.4 seconds.
	enemy(this).PosX = rnd(ScreenX) `place the enemy somewhere on random X spot of the screen
	enemy(this).PosY = rnd(ScreenY) `place the enemy somewhere on random Y spot of the screen
	enemy(this).EnemySize = rnd(10)+5 `makes the enemy size in between 5 to 15.
next a
//Done making the enemies.

sync on
sync rate 60
do
		cls
	Draw_Enemys()
	sync
loop

function Draw_Enemys()
	a as integer
	for a=0 to array count(Enemy())
		x as float
		y as float
		x = Enemy(a).PosX
		y = enemy(a).PosY
		//make the enemy to move around with random time.
		if Enemy(a).UpdateTimer < Timer()
			Enemy(a).UpdateTimer = timer()+1000 //makes the enemy update his movement once in a second.
			Enemy(a).MoveTimeX = rnd(2)-1 //between -1 and +1, makes the enemy to move backward or forward.
			Enemy(a).MoveTimeY = rnd(2)-1 //between -1 and +1, makes the enemy to move upper or down.
		endif
		
		if Enemy(a).MoveTimeX <> 0 then x = x + Enemy(a).MoveTimeX
		if Enemy(a).MoveTimeY <> 0 then y =y + Enemy(a).MoveTimeY
		
		//making limits to the enemys.
		if y <= 0 then y = 0
		if y >= ScreenY then y = ScreenY
		if x <= 0 then x = 0
		if x >= ScreenX then x = ScreenX

		
		DrawOne(x,y,Enemy(a).EnemySize)
		enemy(a).PosY = y
		Enemy(a).PosX = x
	next a
endfunction

function DrawOne(X as Float,Y as Float,Size)
	circle X,Y,Size
endfunction