For i=0 to anzahl_haus
  if haus(wert)<>0 then
     d=d+1
     drawimage hausimg,0+d*20,0
  endif

next

type etage
  field eigenschaft1
  field eigenschaft2
...
end type

h.etage=new etage
h\eigenschaft1=bla
h\...

usw...

Dim array(10)
For i = 0 To 9
   array(i) =i
Next

Print "vorher:"
For i = 0 To 9
   Print array(i)
Next

entferne(4)
Print "nachher:"
For i = 0 To 9
   Print array(i)
Next

WaitKey()

Function entferne(x)
   If x <9 Then
      For i = x To 9
         array(i)=array(i+1)
      Next
        array(9)=0
   Else
      array(9)=0
   EndIf
End Function

Graphics(800, 600, 0, 2)
SetBuffer BackBuffer()
Local timer = CreateTimer(60)
Global mx, my, mh1, mh2

;*** Für das Beispiel sind die Stockwerke nur Bunte Klötze...
Type TStockwerk
   Field r, g, b
End Type


For i = 0 To 5
   Add_Stockwerk(Rand(0,255), Rand(0,255), Rand(0,255))
Next


Repeat
   mx = MouseX()
   my = MouseY()
   mh1 = MouseHit(1)
   mh2 = MouseHit(2)
   
   ;*** Rechte Maustaste fügt ein Stockwerk hinzu:
   If mh2=True Then Add_Stockwerk(Rand(0,255), Rand(0,255), Rand(0,255))
   
   Update_Stockwerke()
   
   Flip(0)
   WaitTimer(timer)
   Cls
Until KeyHit(1)


Function Add_Stockwerk(r, g, b)
   ;*** Ein neues Stockwerk wird hinzugefügt
   Local s.TStockwerk = New TStockwerk
   ;* Und alle benötigten Werte gesetzt
   s\r = r
   s\g = g
   s\b = b
End Function

Function Update_Stockwerke()
   Local s.TStockwerk, i=500
   For s = Each TStockwerk
      ;*** Wir zeichnen von unten nach oben. Neue Stockweke erscheinen Obenauf
      Color(s\r, s\g, s\b)
      Rect(380, i, 40, 40)
      
      ;*** Wenn die Maus sich im Rechteck des Stockwerks befindet, und geklickt wurde,
      ;*** wird das Sockwerk entfernt
      If mouseInRect(380, i, 40, 40) And mh1=True Then
         Delete s
      EndIf
         
      i = i - 40
   Next
End Function

Function mouseInRect(x, y, w, h)
   If mx <= x Then Return False
   If my <= y Then Return False
   If mx >= x + w Then Return False
   If my >= y + h Then Return False
   Return True   
End Function