Graphics(512,512,0,2)
SetBuffer(BackBuffer())
SeedRnd(42)

Dim Map.TBlock(15, 15)

Type TBlock
	Field ID%
End Type

Local x,y
For x=0 To 15
	For y=0 To 15
		
		; 50% Chance ein Block zu erstellen:
		If Rnd(0,1) > 0.5 Then 
			Map(x, y) = New TBlock
			Map(x, y)\ID = Rand(0,2)
		EndIf
		
		; Blöcke zeichnen:
		If Map(x, y) = Null Then
			; Kein Block wurde hier erstellt
			Color(255,255,255)
		Else
			; Farbe aus Block ID bestimmen:
			Select Map(x, y)\ID
				Case 0
					Color(128,64,0)
				Case 1
					Color(0,255,64)
				Case 2
					Color(64,128,255)
			End Select
		EndIf
		
		; Zeichnen
		Rect(x*32,y*32,32,32)
	Next
Next
	
Flip
WaitKey()
End

Type TBLock
	Field xPos, yPos
	Field blocktyp
End Type

Dim Feld.TBLock( 64, 64 )

For

Each

Delete

If Feld( deine_x_position, deine_y_position ) <> Null Then [...] (Oder = Null)

Dim Array%( 16, 16 ) ;Integer Array auf 17*17 Felder Dimmen (Beachten!: 0 wird mitgezäht!)
Array( 5, 5 ) = 124547 ;Dem array an der Stelle 5,5 eine Zahl speichern

Local block.TBlock = New TBlock

Dim Array.TBlock( 16, 16 ) ;TBlock Array 17*17
Array( 5, 5 ) = New TBlock ;Für das Feld 5, 5 einen neuen Type zuweisen
Array( 5, 5 )\xPos = 5 ;X/YPos für den Block im Type nochmal speichern
Array( 5, 5 )\yPos = 5

If KeyHit(2) Then 

CreateBlock()


End If

Type TBlock
	Field img
End Type

Function Create_Block.TBlock()
	
	Local b.TBlock = New TBlock
	b\img = LoadImage([...])
	Return b
	
End Function

If KeyHit(2) Then 
	
	Map(Px,Py+1) = Create_Block()
	
End If