Graphics 1024,768,0,1
house=LoadImage("Pictures\building0.bmp")
player=LoadImage("Pictures\Player.bmp")
Global Ende
Global PlayerX = 50
Global PlayerY = 50;Y-Koordinate DER UNTERKANTE des Bildes
Global PlayerImageY
Type building
   Field X
   Field Y ;Y-Koordinate DER UNTERKANTE!
   Field CollisionX ;Breite der Kollisionsfläche
   Field CollisionY ;Tiefe der Kollisionsfläche
   Field ImageY ;Hoehe des Bildes
End Type
house.building = New building
house.building\X = 100
house.building\Y = 200
house.building = New building
house.building\X = 500
house.building\Y = 300
For house.building = Each building
   house.building\CollisionX = 50
   house.building\CollisionY = 50
   house.building\ImageY = 100
Next
swapped=True ;Gebaeude sortieren
While swapped
   swapped=False
   VNew=True
   For house.building=Each building
      If XBefore>house.building\X And VNew=0 Then
         Insert house.building Before Before house.building
         VNew=0
         swapped=True
      End If
      XBefore=house.building\X
   Next
Wend
Repeat
   If KeyDown(1) Then Ende=1
   ;Steuerung mit Pfeiltasten
   PlayerDrawn=0
   For house.building = Each building
      If PlayerY<house.building\Y Then
         DrawImage Player,PlayerX,PlayerY-PlayerImageY
         DrawImage house,house.building\X,house.building\Y-house.building\Imagey
         PlayerDrawn=1
      Else
         DrawImage house,house.building\X,house.building\Y-house.building\Imagey
      End If
      If PlayerDrawn=0 Then DrawImage Player,PlayerX,PlayerY-PlayerImageY
   Next
   Flip
Until Ende
End