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

; Bilder laden.

stars = LoadImage("Bilder\stars.bmp") ; Sterne
defiant = LoadImage("Bilder\cursor.bmp") ; Das Raumschiff

; 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

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 in 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"

; ---
; Kollision zwischen Raumstation und Schiff prüfen.


If MouseHit(1)
If RectsOverlap(MouseX(),MouseY(),1,1,305,300,StringWidth("Ende"),StringHeight("Ende"))                   
  Goto Ende
ElseIf RectsOverlap(MouseX(),MouseY(),1,1,300,200,StringWidth("Start"),StringHeight("Start"))                   
 Goto Start
  EndIf
   EndIf

Flip
Until KeyHit(1)
End

.Ende

Cls
End

.Start

Cls

fntArialI=LoadFont("Arial",32,False,True,False)
SetFont fntArialI

FreeFont fntArialI