Graphics 1024,768,0,1
SetBuffer BackBuffer()

Const MAX_LEVELS = 5  ;Es gibt 5 festgelegte Levels

Dim level(0,0) ;Am Anfang nur auf 0,0 setzen
Dim levelnamen$(MAX_LEVELS - 1) ;Wenn es 5 festgelegte Levels gibt 0 - 4

levelnamen(0) = "Level1.map"
levelnamen(1) = "Level2.map"
levelnamen(2) = "Level3.map"
levelnamen(3) = "Level4.map"
levelnamen(4) = "Level5.map"

akt_level = 0  ;Das aktuelle Level soll "Level1.map" sein

Load_Level(levelnamen(akt_level))  ;Das aktuelle Level laden.


Repeat
Cls

  If keyhit(57) then  ;Bei Leertaste...
    akt_level = akt_level + 1 ;1 Level vorwärts springen...
    If akt_level > MAX_LEVELS - 1 then akt_level = 0  ;Wenn es das Level nicht gibt wieder auf 0 setzen
    Load_Level(levelnamen(akt_level)) ;Nun das Level laden.
  Endif

  Level_Zeichnen()


Flip
Until Keyhit(1)

EndGraphics
End


Function Load_Level(level$)
  file = ReadFile(level$)
  If not file return 0

  breite_der_map = ReadInt(file)
  hoehe_der_map = ReadInt(file)


  ;Hier der wichtige Teil, alles was in dem Array war wird wieder auf 0
  ;gesetzt, und die Array Dimension wird neu bestimmt. So können
  ;dann levels unterschiedlicher Grösse geladen werden.

  Dim level(breite_der_map,hoehe_der_map) 

  ;Und jetzt können ganz Normal die Daten in dieses Array geladen werden
  ;worauf ich hier jetzt nicht weiter eingehe.

  ...

  closefile(file)
End Function

MapWidth ( 4 byte )
MapHeight( 4 byte )

[ array of MapWidth * MapHeight ] ( 1 byte pro Tile )