Type TDummy
   Field _list:TList
   
   Function Add:TDummy()
      Local dummy:TDummy = New TDummy
      If dummy._list:TList = Null Then dummy._list:TList = New TList
      dummy._list.AddLast(dummy)
      Return dummy
   End Function
End Type

Local myDummy:TDummy = TDummy.Add
Local pointer:TDummy Ptr = Varptr myDummy
Local toBank:Int = Int(pointer)

Local fromBank:TDummy Ptr = TDummy Ptr(PeekByte(bank,offset))

Type TLevel
   Field Layer:TLayer[5]
   
   Field Width:Int, Height:Int
   
   Method Draw()
      For l:TLayer = EachIn Layer
         l.Draw()
      Next
   End Method
End Type

Type TLayer
   Field Map:TObject[,]
   
   Method Draw()
      For Local y:Int = 0 To 24
         For Local x:Int = 0 To 32
            Map[x,y].Update()
            Map[x,y].Draw(x,y)
         Next
      Next
   End Method
End Type

Type TObject
   Field TileID
   
   Field offX:Int, offY:Int
   
   Method Draw(x:Int, y:Int)
      DrawImage Tileset, x + offX, y + offY, TileID
   End Method
   
   Method Update()
      'Normale Tiles machen nix
   End Method
End Type

Type TMovingTile Extends TObject

   Field timer:Int

   'Update Methode überschreiben
   'Dieses Tile bewegt sich irgendwie
   Method Update()
      If MilliSecs() - timer > 4000
         offX = 0
         timer = MilliSecs()
      Else If MilliSecs() - timer > 2000
         offX :+ 1
      EndIf
   End Method

End Type

-> Bank
   -> Zeiger auf TCell Instanz
      -> Instanzen von TTileset
      -> Instanzen von TObject (für Decals und Entities)
      -> andere Infos über die Zelle

Type TLevel
   Field cell:TCell
   Field layer:TLayer
   
   
   Function Init:TLevel(width:Int, height:Int)
      Local level:TLevel = New TLevel
      
      Return level
   End Function
EndType


Type TCell
   Global _list:TList
   Global count:Int
   
   Field id:Int
   Field tileset:TTileset
   Field frame:Int
   
   Function Add:TCell(tileset:TTileset,frame:Int)
      Local cell:TCell = New TCell
      
      cell.count:+1
      
      If cell._list:TList = Null Then cell._list:TList = New TList
      cell._list.AddLast(cell)
      
      cell.id            = cell.count
      cell.tileset   = tileset
      cell.frame      = frame
      
      Return cell
   End Function
End Type


Type TTileset
   Global _list:TList
   Global count:Int
   
   Field id:Int
   Field filename:String
   Field typ:String
   Field image:TImage
   
   Field tile_count:Int
   Field tile_vars:Int
   Field tile_anim:Int
   
   Function Load:TTileset(filename:String,typ:String,tile_count:Int,tile_vars:Int,tile_anim:Int,tile_width:Int,tile_height:Int)
      Local tileset:TTileset = New TTileset
      
      tileset.count:+1
      
      If tileset._list:TList = Null Then tileset._list:TList = New TList
      tileset._list.AddLast(tileset)
      
      tileset.id               = tileset.count
      tileset.filename      = StripDir(filename)
      tileset.typ               = typ
      tileset.tile_count   = tile_count
      tileset.tile_vars      = tile_vars
      tileset.tile_anim      = tile_anim
      tileset.image            = LoadAnimImage(filename,tile_width,tile_height,0,tile_count)
      
      Return tileset
   End Function
End Type



Type TLayer
   Global _list:TList
   Global count:Int
   
   Field id:Int
   Field width:Int
   Field height:Int
   Field data:TBank
   Field name:String
   Field ui:String
   
   Function Add:TLayer(width:Int, height:Int, name:String, ui:String)
      Local layer:TLayer = New TLayer
      
      layer.count:+1
      
      If layer._list:TList = Null Then layer._list:TList = New TList
      layer._list.AddLast(layer)
      
      layer.id         = layer.count
      layer.width      = width
      layer.height   = height
      layer.name      = name
      layer.ui         = ui
      
      layer.data      = CreateBank((width*height)*4)
      
      Return layer
   End Function
End Type