Graphics 1024,768,32,1
SetBuffer BackBuffer()


;Globals
Global bgmenu = LoadAnimImage("bg-menu.bmp",1024,768,0,2)
Global ufo = LoadImage("ufo.bmp")
Global cursor = LoadAnimImage("cursor.bmp",19,22,0,3)
Global bggame = LoadImage("bg-game.jpg")
Global menuschleife = True 
Global bgframe = 0
Global spieleschleife = False
Global timeup = False
Global timer
Global gegner
Global restzeit = 4
;Einstellungen der Images
MaskImage cursor,255,0,255
MaskImage ufo, 255,0,255

;Types
Type enemy
   Field x,y
   Field speed#
End Type


SeedRnd(MilliSecs())

;Functions
Function menusteuerung()
If KeyHit(208) Then
bgframe = bgframe + 1
EndIf

If KeyHit(200) Then
bgframe = bgframe - 1
EndIf

If bgframe > 1 Then
bgframe = 0
EndIf

If bgframe < 0 Then
bgframe = 1
EndIf

If bgframe > 0 And KeyHit(28) Then
menuschleife = False
EndIf


If bgframe < 1 And KeyDown(28) Then
menuschleife = False
FlushKeys
spieleschleife = True
EndIf

End Function

Function neuergegner()
If MilliSecs() > timer + Rnd(800,2000) Then
gegner = Rnd(0,10)
If gegner < 5 Then
n.enemy = New enemy
n\x = -80
n\y = Rnd(50,700)
n\speed = Rnd(1,3)
EndIf

If gegner > 5 Then
g.enemy = New enemy
g\x = 1050
g\y = Rnd(50,700)
g\speed = Rnd(-3,-1)
EndIf
timer = MilliSecs()
EndIf
End Function


Function updategegner()
For n.enemy = Each enemy
DrawImage ufo,n\x,n\y
n\x = n\x + n\speed
Next

For g.enemy = Each enemy
DrawImage ufo,g\x,g\y
g\x = g\x + g\speed
Next

End Function

Function gegnerabschiessen()
For n.enemy = Each enemy
If ImagesCollide(ufo,n\x,n\y,0,cursor,MouseX(),MouseY(),0) And MouseHit(1)
Delete n.enemy
Exit
EndIf
Next

For g.enemy = Each enemy
If ImagesCollide(ufo,g\x,g\y,0,cursor,MouseX(),MouseY(),0) And MouseHit(1)
Delete g.enemy
Exit
EndIf
Next

End Function
;Menüschleife



Repeat
Cls
DrawImage bgmenu,0,0,bgframe
menusteuerung()
Flip
Until menuschleife = False



;Spielschleife

If spieleschleife = False
Goto ende
EndIf

Repeat
Cls

If MilliSecs() > timer + 1000
restzeit = restzeit - 1
timer = MilliSecs()
EndIf

If restzeit < 1 Then
timeup = True
EndIf

Text 410,330, "Noch " + restzeit + " bis zum Start!"
FlushKeys
Flip
Until timeup = True
;______


Repeat
Cls
DrawImage bggame,0,0
neuergegner()
updategegner()
gegnerabschiessen()
DrawImage cursor,MouseX(),MouseY(),0
If KeyHit(1) Then
Goto ende
EndIf

Flip
Until spieleschleife = False



;______
.ende
End

; MainLoop
MH = Mousehit(1)



Function gegnerabschiessen ()
if MH  then
    For n.enemy = Each enemy
        If ImagesCollide (ufo,n\x,n\y,0,cursor,MouseX () ,MouseY () ,0) And Then
            Delete n.enemy
            Exit
        EndIf
    Next
End If 
End Function