Dim recht(10,2) ;10 Objekte und 2 achsaen [1= x , 2 = y]

For x = 1 To 10
 recht(x,1) = Rnd(0,800) ; oder wie deine bildschirmbreite eben ist
 recht(x,2) = recht(x,2)+1 ;du lässt die y achse \"nach unten fallen\"
 Rect recht(x,1),recht(x,2),20,20
Next

Const gravity# = 2.5 ;Schwerkraft-konstante
Const scrwidth% = 800 ;Bildschirmbreite
Const scrheight% = 600 ;Bildschirmhöhe

Graphics scrwidth,scrheight
SetBuffer BackBuffer()

Type Rechteck ;Ein Type für die Rechtecke
  Field x#,y# ;x-y-Position
  Field breite%,hoehe% ;Breite und Höhe
End Type

For a=1 To 10 ;Am Anfang 10 neue Rechtecke erstellen
  NeuesRechteck(Rand(0,scrheight),Rand(-500,0),Rand(10,40),Rand(10,40))
Next

Global timer1 = CreateTimer(60) ;Timer für 60 Frames die Sekunde
While Not KeyHit(1) ;Die Hauptschleife
  WaitTimer(timer1)
  For block.Rechteck = Each Rechteck ;Alle Rechtecke druchgehen
    block\y = block\y + gravity ;y-Wert erhöhen, damit das Rechteck fällt
    If block\y > scrwidth Then ;Wenn Rechteck unten aus dem Bildschirm rausfällt
      Delete block ;Altes Rechteck löschen
      NeuesRechteck(Rand(0,scrheight),-100,Rand(10,40),Rand(10,40)) ;Neues Rechteck erstellen
    Else
      Color 255,255,255 ;Farbe auf Weiß setzen
      Rect block\x, block\y, block\breite, block\hoehe ;Rechteck zeichnen
    End If
  Next
  Flip
  Cls
Wend
End

Function NeuesRechteck(x,y,b,h)
  neu.Rechteck = New Rechteck ;Neues Rechteck erstellen
  neu\x = x ;x-Koordinate zuweisen
  neu\y = y ;y-Koordinate zuweisen
  neu\breite = b ;Breite zuweisen
  neu\hoehe = h ;Höhe zuweisen
End Function