50,50,1,2,3,4,5,6,7,8,9 ...

' Datei (example.map) einlesen und in der Variable file speichern

Local width:Short = 50 ' Die werte musst du aus der Mapdatei einlesen, es könnten 4e die ersten beiden Werte sein.
Local height:Short= 50 ' In diesem Beispiel muss die Variable file so beginnen ",1,2,3,4 ..", damit sie korrekt ausgelesen werden kann.

Local x:Short
Local y:Short

Local position:Int
Local tile:Short

Const TILE_SIZE:Byte = 32

For y = 0 To Height - 1
 For x = 0 To Width - 1
  position = file.Find(",", position) + 1
  tile = file[position..position + 1]
  DrawImage(tileImages[tile], x * TILE_SIZE, y * TILE_SIZE)
 Next
Next

SuperStrict

Graphics 800, 600, 0

'Array, in dem die Tiles gespeichert werden
Local Tiles:Int[,] = New Int[40, 30]

'Ein paar Tiles in diesem Array setzen
Tiles[0,0] = 1
Tiles[10, 12] = 1
Tiles[5, 2] = 2
Tiles[18, 3] = 2

'Die Grösse der Tiles (40 * 40 Pixel)
Local TileSize:Int = 40

'Variablen für das Scroll-Offset
Local ScrollX:Int = 0
Local ScrollY:Int = 0


'Hauptschleife
Repeat
Cls

   'Scrollen auf der X-Achse
   If KeyDown(KEY_LEFT) Then
      ScrollX :- 2
   Else If KeyDown(KEY_RIGHT) Then
      ScrollX :+ 2
   EndIf
   
   'Scrollen auf der Y-Achse
   If KeyDown(KEY_UP) Then
      ScrollY :- 2
   Else If KeyDown(KEY_DOWN) Then
      ScrollY :+ 2
   EndIf
      

   'Alle Array-Felder durchgehen
   For Local y:Int = 0 To 29
      For Local x:Int = 0 To 39

          'Prüfen ob an der Stelle ein Tile ist, falls ja, dann Zeichnen
         If Tiles[x,y] > 0 Then
            If Tiles[x,y] = 1 Then
               'Bei Wert 1 - Weiss
               SetColor(255, 255, 255)
            Else If Tiles[x,y] = 2 Then
               'Bei Wert 2 - Rot
               SetColor(255, 0, 0)
            EndIf
         
            'Tile in einem 40 * 40 Raster zeichnen und um das ScrollOffset verschieben
            DrawRect x * TileSize - ScrollX, y * TileSize - ScrollY, TileSize, TileSize
         EndIf

      Next
   Next
   
Flip
Until KeyHit(KEY_ESCAPE)

End