Graphics 640,480
SetBuffer BackBuffer()
TFormFilter()

Global map=LoadImage("map.bmp")
Global ob=LoadImage("objekt.bmp")
Global xp=230
Global yp=210
Const  BESCHLEUNIGUNG# = 0.05 ;klar
Const  BREMSSPEED# = 0.05;auch klar
Const LENKSPEED# = 2 ;auch klar

Type shoot
Field x
Field y
End Type
MaskImage 255,0,255

Repeat
Cls
TileImage=map
DrawImage=ob,230,210
If KeyHit(200) Then
s.shoot = New shoot
s\x = ob
s\y = ob
EndIf
If  KeyDown(200) Then <http://www.blitzbase.de/befehle2d/Then.htm>
xspeed# = xspeed# + Sin (objektwinkel)*beschleunigung
yspeed# = yspeed# - Cos (objektwinkel)*beschleunigung
ElseIf  KeyDown (208) Then Then.htm>
xspeed# = xspeed# - Sin (objektwinkel)*bremsspeed
yspeed# = yspeed# + Cos (objektwinkel)*bremsspeed
EndIf 

If  KeyDown (203) Then 
objektwinkel = objektwinkel - lenkspeed
ElseIf  KeyDown (205) Then 
objektwinkel = objektwinkel + lenkspeed
EndIf 

If  Objektwinkel < 0 Then  objektwinkel = 359
If  objektwinkel > 359 Then objektwinkel = 0


For s.shoot = Each shoot
map s\x, s\y, 5, 10, 1
s\y = s\y - 4
If RectsOverlap(350,100,100,20,s\x,s\y,5,10) Then Delete s.shoot ;######HIER WIRD DER SCHUSS GELÖSCHT/kollison
Until KeyHit(1)
End