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

; Bilder laden.

stars = LoadImage("Bilder\stars.bmp") ; Sterne
defiant = LoadImage("Bilder\cursor.bmp") ; Das Raumschiff
Sound1=loadsound("Sound\1.wav")
Sound2=loadsound("Sound\2.wav")

; Transparente Farbe festlegen (blau).

MaskImage defiant, 0, 0, 255

; Mittelpunkt des Schiffs als "Angriffspunkt" setzen

; Farbe auf rot setzen (für den Kollisions-Text)

Color 255,0,0

; Hauptschleife.

FlushMouse
FlushKeys

Repeat
   Channel=playsound(Sound1); hier wird der sound 1 gespielt
   Cls
   
   ; Sterne bewegen.
   x_star = x_star + 1
   If x_star = 201 Then x_star = 1
   
   ; Alles malen.
   TileImage stars, x_star, 1 ; Die Sterne auf dem Bildschirm verteilen.
   DrawImage defiant, MouseX(), MouseY() ; Raumschiff an Mausposition malen.
   
   fntArialI=LoadFont("Arial",32,False,True,False)
   SetFont fntArialI
   Color 148,128,228
   Text 310,80, "Willkommen im Quizi!",True,False
   FreeFont fntArialI
   
   Color 255,0,0
   Text 300,200, "Start"
   
   Color 255,0,0
   Text 295,250, "Credits"
   
   Color 255,0,0
   Text 305,300, "Ende"
   
   If MouseHit(1) Then
      If RectsOverlap(MouseX(),MouseY(),1,1,305,300,StringWidth("Ende"),StringHeight("Ende")) Then               
        Cls : End
      ElseIf RectsOverlap(MouseX(),MouseY(),1,1,300,200,StringWidth("Start"),StringHeight("Start")) Then
         ; Haupt Schleife(Spiel)
         Planetb=LoadImage("Bilder\Planetb.bmp")
         MaskImage Planetb, 255,255,255

         Repeat
            Channel=playsound(Sound2); Sound2
            Cls
            DrawImage Planetb, -195,-150
             
            Color 0,255,0
            Text 285,10, "Punkte"
             
             
             
            Color 255,0,0
             
            Line 90,400,90,500
            Line 90,400,510,400
             
            Line 510,400,510,500
            Line 60,200,60,250
            Line 60,250,550,250
            Line 550,250,550,200
            Line 550,200,60,200
             
            Line 260,30,360,30
            Line 360,30,360,60
            Line 360,60,260,60
            Line 260,60,260,30
             
            Flip
         Until KeyHit(1)
     EndIf
  EndIf
   
   Flip
Until KeyHit(1)
End

Print "Wer hat BB gemacht?"
Print "A: Inarie"
Print "B: René Meyer"
Print "C: Dreamora"
Print "D: Mark Sybil"

Antwort = Input "Ihre Antwort?"

Select Antwort

 Case "A" or "B" or "C"

  Print "leider Falsch"

 Case "D"

  Print "Richtig!"
  Punkte = Punkte +1

End Select