For f.feuern  = Each feuern
		For af.alienfeuern = Each alienfeuern
	
			If ImagesOverlap (laser_gfx, f\x, f\y,laser_gfx, af\x, af\y) Then
				Delete f.feuern
				Delete af.alienfeuern	
			EndIf
	
		Next
	Next

Function Steuerung()
 
 If KeyDown(links) Then SpeedX=SpeedX - 0.25
 If KeyDown(rechts) Then SpeedX=SpeedX + 0.25
 If KeyDown(rauf) Then Speedy=Speedy- 0.25
 If KeyDown(runter) Then Speedy=Speedy + 0.25
 
 If speedx<0 Then speedx=speedx +.05
 If speedx>0 Then speedx=speedx -.05
 If speedy<0 Then speedy=speedy +.05
 If speedy>0 Then speedy=speedy -.05
 
 If SpeedX > 4 Then speedx=4
 If speedx < -4 Then speedx=-4
 If speedy > 3 Then speedy=3
 If speedy < -3 Then speedy=-3
 
 player_x=Player_x+speedX
 player_y=player_y+speedY

	If KeyDown (space) And MilliSecs() > feuern_time + 300 Then
		f.feuern = New feuern
    	f\x = player_x+8
    	f\y = player_y+2
    	f\xs=  + SZ#(0.4)
    	f\ys= 0
		feuern_time =  MilliSecs()
	EndIf


	 ;---- Rand setzen ----
	If player_x < 0   Then player_x = 0
	If player_x > 750 Then player_x = 750
	If player_y < 0   Then player_y = 0
	If player_y > 450 Then player_y = 450
	
 End Function 

	Repeat 
		StartZeit = MilliSecs() 
		Cls 

		...
                ...
                ...
                ...

		Flip 
		SchleifenZeit = MilliSecs() - Startzeit 
	Until leben = 0 Or abschuss >= 20 Or KeyHit(1)



Function SZ#(Bewegung#)

   Wert# = Bewegung# * SchleifenZeit
   Return Wert#

End Function