SuperStrict
Type TTile
	Field typ:Int
	
	Method New() 
		typ = Rand(1 , 5) 
	End Method
		
EndType

Local map:TTile[5 , 5]

For Local x:Int = 0 To 4
	For Local y:Int = 0 To 4
		map[x , y] = New TTile
	Next
Next

'ausgabe in Console
For Local y:Int = 0 To 4
	Local str:String = ""
	For Local x:Int = 0 To 4
		str:+map[x,y].typ+" "
	Next
	Print str
	str = ""
Next

Type TTile
	Global w:Int = 16 'Weite des Tiles in Pixeln
	Global h:Int = 16 'Höhe des Tiles in Pixeln
	
	Field TYP_ID:Int 'ID des Tiles 0 = Boden ; 1 = Himmel
	
	Method New()
		TYP_ID = Rand(0, 1)
	End Method
	
End Type

Local map:TTile[9, 9]

For Local x:Int = 0 To 8
	For Local y:Int = 0 To 8
		map[x, y] = New TTile
	Next
Next

Global id_01:TImage = LoadImage("tile_01.png")
Global id_02:TImage = LoadImage("tile_02.png")

Graphics 800, 600, 0, 60



'Hauptschleife
Repeat
Cls

Local x_drawer:Int
Local y_drawer:Int

For Local y:Int = 0 To 8
	y_drawer = + TTile.w
	For Local x:Int = 0 To 8
		x_drawer = + TTile.h
		
		If map[x, y].TYP_ID = 0 Then DrawImage id_01, x_drawer, y_drawer
		If map[x, y].TYP_ID = 1 Then DrawImage id_02, x_drawer, y_drawer
	
	Next
	x_drawer = 0
Next




Flip
Until KeyHit(KEY_ESCAPE) End

For Local x:Int = 0 To (MAP_SIZE_X - 1)
	For Local y:Int = 0 To (MAP_SIZE_Y - 1)
		map[x, y] = New TTile
	Next
Next

yourVar:+ anotherVar ' gleich yourVar = yourVar + anotherVar

'**********************************
'*********TerraVerse TileMap**********
'**********************************

Const TILE_SIZE_X:Int = 16						'Tilegröße X
Const TILE_SIZE_Y:Int = 16						'Tilegröße Y
Const MAP_DEEP_00:Int = 0						'Maptiefenlayer beginn 0 * Default Himmel
Const MAP_DEEP_01:Int = 22 						'Maptiefenlayer beginn 1
Const MAP_DEEP_02:Int = 30 						'Maptiefenlayer beginn 2
Const MAP_SIZE_X:Int = 100 						'MapSize x in Tiles
Const MAP_SIZE_Y:Int = 100						'MapSize y in Tiles

Global x_drawer:Int
Global y_drawer:Int

Global x_creater:Int
Global y_creater:Int

Global id_01:TImage = LoadImage("tile_01.png")
Global id_02:TImage = LoadImage("tile_02.png")
Global id_03:TImage = LoadImage("tile_03.png")

Global bgr_01:TImage = LoadImage("bgr_01.png")

Type TTile
	Global w:Int = 16 'Weite des Tiles in Pixeln
	Global h:Int = 16 'Höhe des Tiles in Pixeln
	
	Field TYP_ID:Int 'ID des Tiles 0 = Himmel; 1= Boden

	
	Method New()
	
	If y_creater >= 0 Then TYP_ID = 0
	If y_creater >= MAP_DEEP_01 Then TYP_ID = 1
	If y_creater >= MAP_DEEP_02 Then TYP_ID = 2

	
	End Method
	
End Type

Local map:TTile[MAP_SIZE_X, MAP_SIZE_Y]

For Local x:Int = 0 To (MAP_SIZE_X - 1)
	For Local y:Int = 0 To (MAP_SIZE_Y - 1)
		y_creater = y_creater + 1
		map[x, y] = New TTile
	Next
	y_creater = 0

Next






Graphics 800, 600, 0, 60
SetBlend alphablend


'Hauptschleife
Repeat
Cls

DrawImage bgr_01, 0, 0

'Die TileMap Zeichnen
For Local y:Int = 0 To (MAP_SIZE_Y - 1)
	y_drawer = y_drawer + TTile.h
	For Local x:Int = 0 To (MAP_SIZE_X - 1)
		x_drawer = x_drawer + TTile.w
		
		'Tilebilder zuweisen
		
		
		If map[x, y].TYP_ID = 0 Then DrawImage id_01, x_drawer, y_drawer
		If map[x, y].TYP_ID = 1 Then DrawImage id_02, x_drawer, y_drawer
		If map[x, y].TYP_ID = 2 Then DrawImage id_03, x_drawer, y_drawer
	
	Next
	x_drawer = -TILE_SIZE_X
Next
y_drawer = -TILE_SIZE_Y



Flip
Until KeyHit(KEY_ESCAPE) End

SuperStrict


'Type für Tiles
Type TTile
	Field walkable:Byte
	Field layer1:Byte
	Field layer2:Byte
	Field layer3:Byte
End Type


'Type für das Level / die Map
Type TLevel
	Field width:Int, height:Int
	Field tileSet:TImage
	Field tileWidth:Int, tileHeight:Int
	Field scrollX:Float, scrollY:Float
	Field map:TTile[,]
	
	'Erstellt ein neues Level/Map
	Function Create:TLevel(width:Int, height:Int, tileSet:TImage, tileWidth:Int, tileHeight:Int)
		Local level:TLevel = New TLevel
		level.width = width
		level.height = height
		level.tileSet = tileSet
		level.tileWidth = tileWidth
		level.tileHeight = tileHeight
		level.map = New TTile[width, height]
		
		For Local y:Int = 0 Until height
			For Local x:Int = 0 Until width
				level.map[x, y] = New TTile
			Next
		Next
		
		Return level
	End Function
	
	'Nur zum Test. Weist zufällige Tile-Nummern in Layer 1 zu
	Method Randomize()
		Local numTiles:Int = tileSet.pixmaps.Length
	
		For Local y:Int = 0 Until height
			For Local x:Int = 0 Until width
				map[x, y].layer1 = Rand(0, numTiles)
			Next
		Next
	End Method
	
	'Scrollt die Map in x und y
	Method Scroll(x:Int, y:Int)
		scrollX:+x
		scrollY:+y
	End Method
	
	'Gibt das Tile an x,y zurück, ohne Prüfung auf Array-Grenzen
	Method GetTile:TTile(x:Int, y:Int)
		Return map[x, y]
	End Method
	
	'Gibt das Tile an x,y zurück oder Null wenn x oder y nicht innerhalb der Array-Grenzen liegt
	Method GetTileSafe:TTile(x:Int, y:Int)
		Local dims:Int[] = map.Dimensions()
		If x > 0 And x < dims[0] And y > 0 And y > dims[1] Then
			Return map[x, y]
		Else
			Return Null
		End If
	End Method

	'Beliebige X-Koordinate auf die Map-Grösse begrenzen
	Method ClampX:Int(x:Int)
		If x < 0 Then Return 0
		If x >= width Then Return width - 1
		Return x
	End Method
	
	'Beliebige Y-Koordinate auf die Map-Grösse begrenzen
	Method ClampY:Int(y:Int)
		If y < 0 Then Return 0
		If y >= height Then Return height - 1
		Return y
	End Method
		
	'Zeichnet die Map innerhalb eines frei wählbaren Ausschnitts
	Method Draw(ox:Int, oy:Int, w:Int, h:Int)
		'Viewport ändern, dadurch wird alles was ausserhalb gezeichnet wird abgeschnitten
		Local vx:Int, vy:Int, vw:Int, vh:Int
		GetViewport(vx, vy, vw, vh)
		SetViewport(ox, oy, w, h)
		
		'Reichweite der Tiles berechnen die gezeichnet werden müssen
		Local startX:Int = ClampX(scrollX / tileWidth)
		Local endX:Int = ClampX(startX + w / tileWidth + 1)
		
		Local startY:Int = ClampY(scrollY / tileHeight)
		Local endY:Int = ClampY(startY + h / tileHeight + 1)
	
		
		'Anzahl Tiles/Frames im Tileset
		Local numTiles:Int = tileSet.pixmaps.Length
		
		'Zeichnen
		For Local y:Int = startY To endY
			For Local x:Int = startX To endX
				'Tile-Koordinaten
				Local tx:Int = x * tileWidth + ox - scrollX
				Local ty:Int = y * tileHeight + oy - scrollY
				
				'Layer 1
				If map[x, y].layer1 > 0 And map[x, y].layer1 <= numTiles Then
					DrawImage(tileSet, tx, ty, map[x, y].layer1 - 1)
				End If
				
				'Layer 2
				If map[x, y].layer2 > 0 And map[x, y].layer2 <= numTiles Then
					DrawImage(tileSet, tx, ty, map[x, y].layer2 - 1)
				EndIf
				
				'Layer 3
				If map[x, y].layer3 > 0 And map[x, y].layer3 <= numTiles Then
					DrawImage(tileSet, tx, ty, map[x, y].layer3 - 1)
				End If
			Next
		Next
		
		'Viewport auf die alten Einstellungen zurückstellen
		SetViewport(vx, vy, vw, vh)
	End Method
End Type


'Hauptanwendung -------------------------------------

AppTitle = "TileMap"
Graphics 800, 600, 0, 0
SeedRnd(MilliSecs())

'Ein Tileset laden
Local tileSet:TImage = LoadAnimImage("tileset.png", 40, 40, 0, 10)

'Das Level erstellen
Local level:TLevel = TLevel.Create(80, 40, tileSet, 40, 40)
level.Randomize()

Repeat
	Cls
	
	'Level horizontal scrollen
	If KeyDown(KEY_LEFT)
		level.Scroll(-2, 0)
	ElseIf KeyDown(KEY_RIGHT)
		level.Scroll(2, 0)
	End If
	
	'Level vertikal scrollen
	If KeyDown(KEY_UP)
		level.Scroll(0, -2)
	ElseIf KeyDown(KEY_DOWN)
		level.Scroll(0, 2)
	End If
	
	'Level zeichnen
	level.Draw(50, 50, 400, 300)
	
	Flip 1
Until AppTerminate() Or KeyHit(KEY_ESCAPE)

EndGraphics
End