Function SetTile()
   ;================================================================================================
   ;--> Setzt ein Tile
      
   If Mousedown1 And MouseInMap And MouseOutGui And Collision = False Then
      ;--> Ist ein Tileset ausgewählt?
      If newTileset <> Null Then
      
         ;--> Untergrund?
         If Level = 0 Then
            Map(mtX, mtY)\Underground = newTileset
            Map(mtX, mtY)\UndergroundID = newTileID
         EndIf
         
         ;--> Objekt?
         If Level = 1 Then
            Map(mtX, mtY)\Object_ = newTileset
            Map(mtX, mtY)\ObjectID = newTileID
         EndIf
         
      EndIf
   EndIf
End Function

Function DrawMap()
   ;================================================================================================
   ;--> Malt die Map
   
   ;--> Existiert eine Map?
   If MapX > 0 And MapY > 0 Then
   
      For X = 0 To MapX-1
         For Y = 0 To MapY-1
         
            ;--> Untergrund
            If Map(X, Y)\Underground <> Null Then
               DrawBlock Map(X, Y)\Underground\Img, X*32-ScrollX, Y*32-ScrollY, Map(X, Y)\UndergroundID
            EndIf
            
            ;--> Objekte
            If Map(X, Y)\Object_ <> Null Then
               DrawImage Map(X, Y)\Object_\Img, X*32-ScrollX, Y*32-ScrollY, Map(X, Y)\ObjectID
            EndIf
         
            ;--> Raster
            If Raster Then
               Color 255, 255, 255
               Rect X*32-ScrollX, Y*32-ScrollY, 32, 32, 0
            EndIf
         
            ;--> Feld ID
            If FieldID Then
               Color 0, 255, 0
               Text X*32-ScrollX, Y*32-ScrollY, X+"/"+Y
            EndIf
      
         Next
      Next
      
   EndIf
End Function