Sorry your browser is not supported!

//Enemy Bullet
//highscore / Main Menü

SetVirtualResolution(768,1624)
//UswNewDefaultFonts(1)
  
playerx as float
playery as float
laserx as float = -100
lasery as float
enemyx as float
enemyy as float
enemy_direction = 4
score=0
highscore=0
gameover=1 

`#include "Loader.agc"
`#include "PlayerMove.agc"
//#include "Player shoots.agc"
  
Gosub loader /*()*/
Gosub LoadSounds
Gosub Load_Music
Gosub Make_Stars
 
  
do

//if gameover=1
//	Gosub MainMenu
//	score=0
//endif


Gosub Playermove
Gosub Playershoots
Gosub Enemymove
Gosub collision
Gosub Text
Gosub Enemyshot
Gosub Move_Stars
//
sync()
loop
  
/*(loader):*/
  
loader:
//Loadimage(10,"Background.jpg")
LoadImage(1,"Player_ship.png")
loadimage(2,"laser.png")
loadimage(3,"enemyship.png")
loadimage(4,"enemyshot.png")
//createsprite(10,10)
  
CreateSprite(1,1)
playerx=GetVirtualWidth()/2 - GetSpriteWidth(1)/2
playery=GetVirtualHeight()-GetSpriteHeight(1)
  
SetSpritePosition(1,playerx,playery)

createsprite(2,2)
SetSpritePosition(2,-100,-100)

createsprite(3,3)
createsprite(4,4)
createsprite(5,5)
for i=0 to 4
	createsprite(110+i,4)
next i


return
  
  
/*(PlayerMove):*/
  
Playermove:
  
playerx=playerx+GetDirectionX()*12
playerx=getpointerx()
  
if playerx<0
playerx=0
endif

if playerx>700
playerx=700
endif
  
if playerx>GetVirtualHeight()-GetSpriteWidth(1)
playery=GetVirtualWidth()-GetSpriteWidth(1)
endif
  
SetSpritePosition(1,playerx,playery)
  
Return

Playershoots:

if GetPointerPressed()=0 and laser_fired=0
	playsound (laser)
	laser_fired=1
	laserx=GetspriteX(1)+GetSpriteWidth(1)/2-GetSpriteWidth(2)/2
	lasery=GetSpriteY(1)-40
endif

if laser_fired=1
	lasery=lasery-28
endif

if lasery<-GetSpriteHeight(2)
	laser_fired=0
endif

SetSpritePosition(2,laserx,lasery)

return

Loadsounds:

laser=loadsound("laser.wav")
explosion2=loadsound("explosion2.wav")
explosion1=loadsound("explosion1.wav")

return

Load_Music:

LoadMusic(1,"SpaceMusic.mp3")
PlayMusic(1,1)


Return

Enemymove:

enemyy=enemyy+2

if enemy_direction=4 and enemyx>GetVirtualWidth()-GetSpriteWidth(3)
	enemy_direction=-4
endif

//enemyx=enemyx+enemy_direction

if enemy_direction=-4 and enemyx<0
	enemy_direction=4
endif

enemyx=enemyx+enemy_direction

SetSpritePosition(3,enemyx,enemyy)





enemyy=enemyy+2

if enemy_direction=4 and enemyx>GetVirtualWidth()-GetSpriteWidth(4)
	enemy_direction=-4
endif

//enemyx=enemyx+enemy_direction

if enemy_direction=-4 and enemyx<0
	enemy_direction=4
endif

enemyx=enemyx+enemy_direction

SetSpritePosition(4,enemyx,enemyy)





enemyy=enemyy+2

if enemy_direction=4 and enemyx>GetVirtualWidth()-GetSpriteWidth(5)
	enemy_direction=-4
endif

//enemyx=enemyx+enemy_direction

if enemy_direction=-4 and enemyx<0
	enemy_direction=4
endif

enemyx=enemyx+enemy_direction

SetSpritePosition(5,enemyx,enemyy)

if enemyy>playery+200
	goto rip
endif




//if enemyy<0
//	goto start
//endif


Return


collision:

if GetSpriteCollision(2,3)=1
	
	playsound (explosion2)
	score=score+10
	enemyx=100: enemyy=-50
	laser_fired=0
	laserx=-50 :lasery=-50
endif

if GetSpriteCollision(1,3)=1
	
	rip:
	playsound (explosion1)
	score=0
	enemyx=100: enemyy=-50
	laser_fired=0
	laserx=-50 :lasery=-50
	playerx=-50 :playery=-50
//	goto MainMenu
	goto start
endif

return


Text:
//createtext(1,"Score: " +str(score))
//SetTextSize(1,60)
//SetTextPosition(1,0,0)


 Print("SCORE:")
 Print(score)
 SetPrintSize(100)
 
 
Return

Make_Stars:

	CreateImageColor(5,255,255,255,255)
	for i=1 to 100
		CreateSprite (i+5,5)
		SetSpriteSize(i+5,2,2)
		SetSpritePosition(i+5,random(1,768),random(1,1624))
	next i
return

Move_Stars:

for i=1 to 100
	StarY=GetSpriteY(5+i)+(random(1,10))
	If StarY>1624
		StarY=0
	Endif
	SetSpritePosition(i+5,GetSpriteX(i+5),StarY)
next i

//goto Make_Stars

Return


Enemyshot:

if enemy_fired=0
	if random(1,50)=5
		enemy_fired=1
		for i=0 to 4
			SetSpritePosition(110+i,getspritex(3)+60,GetSpriteY(3)+70)
		next i
	endif
endif

if enemy_fired=1
	SetSpritePosition(110,getspritex(110)-3,getspritey(110)+15)
	SetSpritePosition(111,GetSpriteX(111)-2,getspritey(111)+15)
	SetSpritePosition(112,getspritex(112),GetSpriteY(112)+15)
	SetSpritePosition(113,getspritex(113)+2,GetSpriteY(113)+15)
	SetSpritePosition(114,GetSpriteX(114)+3,GetSpriteY(114)+15)
endif

if getspritey(110)>1624
	enemy_fired=0
endif
return


//MainMenu:

//CreateText