Graphics 800,600,32,1
SetBuffer BackBuffer()
hintergrund= LoadImage("C:\grass.bmp")
b=LoadImage("C:\Mauer.bmp")


Dim Auto(359)
TFormFilter 2
For winkel = 0 To 359
auto(winkel)=LoadImage("C:\policecar.bmp")
HandleImage auto(winkel),40,13
RotateImage auto(winkel),winkel
MaskImage auto(winkel), 0, 0,0
Next

Global x#,y#
Global geschwindigkeit#=4
While Not KeyHit(1)
Cls

If KeyDown(203) Then winkel= winkel -3
If KeyDown(205) Then winkel= winkel +3
If winkel > 359 Then winkel = 0
If winkel < 0 Then winkel = 359
If KeyDown(200) Then
x = x + Cos(winkel)*geschwindigkeit
y = y + Sin(winkel)*geschwindigkeit

If ImagesCollide (auto(winkel), 0, 0,0, b, 0, 0,0) Then Print "Rums"

EndIf
DrawImage hintergrund, 0, 0
DrawImage auto(winkel), x, y
DrawImage b, 100, 200
Flip
Wend
End