Type TFallingTile
  Global TFallingTileList:TList = New TList
 
  Global Sprite:TImage
  Global X:Float, Y:Float
  Global XVel:Float, YVel:Float
  Global R:Float
 
  Function Create:TFallingTile(x:Int, y:Int, Img:TImage = Null)
    Local NewFallingTile:TFallingTile = New TFallingTile
    If (Img)
      NewFallingTile.Sprite = Img
    Else
      NewFallingTile.Sprite = TTile.DefaultTile ' Funktioniert defintiv, nicht das Problem
   EndIf
   NewFallingTile.X = x
   NewFallingTile.Y = y
   TFallingTileList.AddLast(NewFallingTile)
   Return NewFallingTile
  End Function
   
  Method Draw(Cam:TCam)
     SetRotation Self.R
     DrawImage Self.Sprite, Self.X, Self.Y
     SetRotation 0
  End Method
End Type

      TFallingTile.Create(Rand(0, 300) + 50, Rand(0, 300) + 50)

   For Local FTile:TFallingTile = EachIn TFallingTile.TFallingTileList
      FTile.Draw(MyCam)
   Next