Read

Graphics 1280,1000,0,2 
SetBuffer BackBuffer() 

; die Karte ist 12x12 gross, da die Indizes von 0-11 gehen,
; gibt man bei Dim 11x11 an
Dim inventar_felder(11,11) 
Data 1,1,1,1,1,1,1,1,1,1,1,1 ;0 
Data 1,2,2,2,2,2,2,2,2,2,2,1 ;1 
Data 1,2,2,2,2,2,2,2,2,2,2,1 ;2 
Data 1,2,2,2,2,2,2,2,2,2,2,1 ;3 
Data 1,2,2,2,2,2,2,2,2,2,2,1 ;4 
Data 1,2,2,2,2,2,2,2,2,2,2,1 ;5 
Data 1,2,2,2,2,2,2,2,2,2,2,1 ;6 
Data 1,2,2,2,2,2,2,2,2,2,2,1 ;7 
Data 1,2,2,2,2,2,2,2,2,2,2,1 ;8 
Data 1,2,2,2,2,2,2,2,2,2,2,1 ;9 
Data 1,2,2,2,2,2,2,2,2,2,2,1 ;10 
Data 1,1,1,1,1,1,1,1,1,1,1,1 ;11 

Global Feld1 = LoadImage("\Users\Foxtrot\Desktop\BlitzRPG\feld1.bmp") 
Global Feld2 = LoadImage("\Users\Foxtrot\Desktop\BlitzRPG\feld2.bmp")

load()

While Not KeyHit(1) 
	Cls 
	draw() 
	Flip 
Wend 

; wichtig: das Array nur am Anfang einmal befüllen, nicht jeden Schleifendurchgang
Function load()
	; nur bis 11 gehen, da die Indizes bei 0 beginnen
	For y = 0 To 11 
		For x = 0 To 11 
			Read inventar_felder(x,y) 
		Next 
	Next 
End Function
	
Function draw() 
	For y = 0 To 11 
		For x = 0 To 11 
			; Die Daten bei jedem draw()-Aufruf neu einzulesen ist unnötig und würde
			; zudem nur funktionieren, wenn du nach Abschluss des Einlesevorgangs
			; den Read-Pointer wieder an den Anfang des Datenfeldes setzt (siehe Restore),
			; da Read sonst hinter dem Datenfeld versucht weiter zu machen.
			;Read inventar_felder(x,y) 
			If inventar_felder(x,y) = 1 Then 
				DrawImage(Feld1, x*80, y*80) 
			ElseIf inventar_felder(x,y) = 2 Then 
				DrawImage(Feld2, x*80, y*80) 
			ElseIf inventar_felder(x,y) = 3 Then 
				DrawImage(Feld3, x*80, y*80) 
			EndIf 
		Next 
	Next 
End Function 


End