Graphics 800, 600, 32, 2
ClsColor 80, 40, 255

Global hintergrund = CreateImage(800, 600); Erstellt Hintergrund
MaskImage hintergrund, 0, 0, 0

Global spieler = CreateImage(5, 5); Erstellt Spieler
MaskImage spieler, 0, 0, 0

Global vergleich = CreateImage(5, 5); Bild fuer die Kollisionskontrolle
MaskImage vergleich, 0, 0, 0

SetBuffer ImageBuffer(spieler)
Color 0, 255, 0
Oval 0, 0, 5, 5

Global richtung = 0
Global x# = 400, y# = 300; Koordinaten der Spielfigur
Global collide
Global warten; fuer denn Timer

SetBuffer BackBuffer()

Repeat

timer = MilliSecs()
If timer > warten Then
   warten = timer + 10
   
   Cls
   
   ; Steuerung
   If KeyDown(203) Then richtung = richtung - 1
   If KeyDown(205) Then richtung = richtung + 1
   
   If richtung = -1 Then richtung = 359
   If richtung = 360 Then richtung = 1
   
   ; Auf Hintergrund Zeichnen
   SetBuffer ImageBuffer(hintergrund)
   Color 255, 0, 0
   Oval x - Cos(richtung) * 6, y - Sin(richtung) * 6, 5, 5
   
   ; Teil des hintergrundes wird fuer die Kollisionsabfrage kopiert
   ;GRABIMAGE vergleich, x, y
   CopyRect x, y, 5, 5, 0, 0, ImageBuffer(hintergrund), ImageBuffer(vergleich)
   
   SetBuffer BackBuffer()
   
   ;Kollisionsabfrage
   If IMAGESCOLLIDE(vergleich, 0, 0, 0, spieler, 0, 0, 0) = 1 Then collide = 1
   
   ;Text ausgeben
   Color 255, 0, 0
   If collide = 1 Then Text 0, 0, "Es hat gekracht"
   
   ; Aktualisiert Spieler
   x = x + Cos(richtung)
   y = y + Sin(richtung)
   
   
   DrawImage hintergrund, 0, 0; Zeichnet Hintergrund
   DrawImage spieler, x, y; zeichnet Spieler
   
   Flip
   
End If

Until KeyHit(1)

Graphics 320,240

Dim Position(320,240)

position(player_x,player_y) = playercolor

if isCollided(player_x,player_y)
  gameover()
endif

function isCollided(x%,y%)
  return position(x,y) > 0
end function