Graphics 640,480,0,1
SetBuffer BackBuffer()

Global shipX
Global shipY = 450
Global punkte 
Global gegnerX
Global gegnerY
Global shoot = LoadImage("schuss.bmp")
Global gegner = LoadImage("der.bmp")
ship = LoadImage("ship.png")
hud =  LoadImage("hud.png")


MaskImage hud,255,0,255

Dim X(100), Y(100), V(100)
For i=0 To 100
   X(i)=Rnd(0,639)
   Y(i)=Rnd(0,479)
   V(i)=Rnd(1,10)
Next


Type schuss 
   Field Xpos# 
    Field Ypos#
End Type

Type alien 
   Field aX# 
	 Field aY#
End Type
;-----------------HAUPTSCHLEIFE----------------
Repeat
    a = 0
    shipX = MouseX()
		gegnerX = Rand(150,590)
		gegnerY = 10
		
   Cls
	 Color 255,255,255
   For i=0 To 100
      Y(i)=Y(i)+V(i)
      If Y(i)>479 Then Y(i)=0: V(i)=Rnd(1,10)
      Plot X(i),Y(i)
   Next
    
    If shipX > 615 Then shipX = 615
		If shipX <  140 Then shipX =  140
		
		If MouseHit(1) Then 
		   create_schuss(shipX,shipY)
		EndIf
	 
	 MidHandle ship
	 DrawImage ship,shipX,shipY
	   
	 	 berechne_schusse()
		 berechne_alien()
		 create_alien(aX,aY)
		 DrawImage hud,0,0
	 
	Flip
	Xprint(0,0,255,40,70,punkte)
  
	
Until KeyHit(1)
End

 
;--------------------------------------SCHUSS---------------------
Function create_schuss(Xpos,Ypos) 
   schuss.schuss=New schuss 
   schuss\Xpos = shipX
   schuss\Ypos = shipY - 20
End Function 

Function berechne_schusse() 
   For schuss.schuss=Each schuss
	    
			schuss\Ypos = schuss\Ypos - 5
			
	    MidHandle shoot
      DrawImage shoot,schuss\Xpos,schuss\Ypos
			
			If schuss\Ypos < 20 Then
	   	   Delete schuss.schuss
	    EndIf
			

   Next 
	 
End Function 
;-------------------------------------ALIEN------------------------
Function create_alien(aX,aY)
  w = Rand(1,100)
	If w = 10 Then
   alien.alien=New alien 
   alien\aX = gegnerX
   alien\aY = gegnerY
	EndIf
End Function 

Function berechne_alien() 
   For alien.alien=Each alien
	    
			alien\aY = alien\aY + 2
	    MidHandle der
      DrawImage gegner,alien\aX,alien\aY
			
   Next 
End Function


;------------------------------------REST-----------------------------
Function XPrint(rot,gruen,blau,x,y,txt$)
   Color rot,gruen,blau
	 Locate x,y
	 Print txt$
	 Cls 
End Function