Data 2,3 ;* Breite & Höhe
;* Karten Inhalt:
Data 1,1
Data 1,1
Data 1,1

;* In Array Laden:
Local Karte_W, Karte_H
Read Karte_W, Karte_H

Dim Karte(Karte_W-1, Karte_H-1)
Local x,y
For y=0 To Karte_H-1
	For x=0 To Karte_W-1
		Read Karte(x,y)
	Next
Next

;* Aus dem Array Speichern:

Local FileStream%=WriteFile("map.level")
	;* Breite & Höhe:
	WriteInt(FileStream, Karte_W)
	WriteInt(FileStream, Karte_H)
	;* Inhalt:
	For y=0 To Karte_H-1
		For x=0 To Karte_W-1
			WriteInt(FileStream, Karte(x,y))
		Next
	Next
CloseFile(FileStream)

;* Laden funktioniert genau so:
Local FileStream%=ReadFile("map.level")
	;* Breite & Höhe:
	Karte_W = ReadInt(FileStream)
	Karte_H = ReadInt(FileStream)
	;* Array bereit stellen:
	Dim Karte(Karte_W-1, Karte_H-1)
	;* Inhalt:
	For y=0 To Karte_H-1
		For x=0 To Karte_W-1
			Karte(x,y) = ReadInt(FileStream)
		Next
	Next
CloseFile(FileStream)

Global SelectedTile,tilesize
Dim Map(Mw,Mh)
Function DrawMap()
 SelectedTile = GetKey()
For i = 0 To mw
 For j = 0 To mh
 DrawImage map(i,j)
 If mousdown(1) And mouseoverlape(i * tilesize,j*tilesize) Then map(i,j) = getTile(SelectedTile)
Next
Next
End Function

Function SaveMap(Pfad$,mapname$)
Stream = WriteFile(Pfad$+ "/" + mapname)
WriteInt(Stream,mw)
WriteInt(Stream,mh)
For i = 0 To mw
 For j = 0 To mh
WriteInt(map(i,j)
Next
Next
CloseFile
End Function

Function LoadMap(Pfad$,mapname$)
Stream = readfiel(Pfad$+ "/" + mapname)
mw = ReadInt(stream)
mh = ReadInt(stream)
For i = 0 To mw
   For i = 0 To mh 
         map(i,j) = getTile(ReadInt(Stream))
   Next
Next
End Function

;
;
;Main.bb
;
;

AppTitle ("[GearTech] Dragon Legends - Alpha")
Graphics 800,600,32,2
SetBuffer BackBuffer()


;
;Include
;

Include ".\Include\LoadResources.bb"
Include ".\Include\Maps.bb"

;
;Include
;


;
;Main Loop
;

Repeat
	Cls
	
	;
	;Maps
	;
	
	;Map01
	
	Map01Loop()
	
	;Map01
	
	;
	;Maps
	;
	
	Flip
	
Until KeyHit(1)
End

;
;Main Loop
;


;
;
;Main.bb
;
;

;
;
;LoadResources.bb
;
;

Global Grounds = LoadAnimImage(".\Textures\grounds.bmp",32,32,0,3)

;
;
;LoadResources.bb
;
;

;
;
;Maps.bb
;
;


;
;Map01
;

Local FileStream%=ReadFile("Map01.lvl")
	;* Breite & Höhe:
Karte_W = ReadInt(FileStream)
Karte_H = ReadInt(FileStream)
	;* Array bereit stellen:
Dim Karte(Karte_W-1, Karte_H-1)
	;* Inhalt:
For y=0 To Karte_H-1
	For x=0 To Karte_W-1
		Karte(x,y) = ReadInt(FileStream)
	Next
Next
CloseFile(FileStream)

Function Map01Loop()
	
	For x = 0 To Karte_W -1
		For y = 0 To Karte_H - 1
			DrawImage Grounds,x*32,y*32,Karte(x,y)
		Next
	Next
	
End Function

;
;Map01
;


;
;
;Maps.bb
;
;

Local FileStream%=ReadFile("Map01.lvl")
	;* Breite & Höhe:
Karte_W = ReadInt(FileStream)
Karte_H = ReadInt(FileStream)
DebugLog "Die DIMS=" + Karte_W + " " + Karte_H
Dim Karte(Karte_W-1, Karte_H-1)

DebugLog "Die DIMS=" + Karte_W + " " + Karte_H

DebugLog Wert

file = ReadFile("map.txt")
fileLine$ = ReadLine(file)     ;parse die erste Zeile -> Breite und Höhe
pos = Instr(fileLine, "|")
width = Int(Left(fileLine, pos-1))
height = Int(Right(fileLine, Len(fileLine)-pos))
Dim map(height-1, width-1)  ;erstelle das Dim

For y=1 To height   ;lese die Werte ein
  fileLine = ReadLine(file)
  pos = 0
  For x=1 To width
    oldpos = pos   ;die vorherige Position
    pos = Instr(fileLine, "|", oldpos+1)   ;die neue Position
    map(y-1, x-1) = Int(Mid(fileLine, oldpos+1, pos-oldpos))     ;den Wert einlesen
  Next
Next

For y=1 To height  ;Werte ausgeben (debug)
  For x=1 To width
    Write map(y-1, x-1)+" "
  Next
  Print ""
Next

timer = CreateTimer(1)    ;3 Sekunden warten (CPU-freundlich; debug)
For i=1 To 3
  WaitTimer timer
Next