SuperStrict
Type TTest
   Field blub:Int
   
   Method New()
      blub = Rand(10)
   End Method
End Type

Local array:ttest[2 * 3]
For Local i:Int = 0 Until array.length
   array[i] = New ttest
Next

For Local t:ttest = EachIn array
   Print t.blub
Next
Print " ---------------------------------------------------------"

'vergrössern
array = array[..5 * 5]
'initialisieren der felder
For Local i:Int = 0 Until array.length
   array[i] = New ttest
Next

For Local t:ttest = EachIn array
   Print t.blub
Next

SuperStrict
AppTitle = "Variables, 2D Array"
Graphics(800, 600)

Type TSpielStein
   Field Wert:Int
   
   Function Create:TSpielstein(fwert:Int)
      Local s:TSpielstein = New TSpielstein
      s.Wert = fwert
      Return s
   End Function
End Type

Global MapArray:TSpielstein[,]
Global FeldX:Int, FeldY:Int

RestoreData Map1
LoadMap()

Repeat
   
   If KeyHit(KEY_1) Then
      RestoreData Map1   
      LoadMap()
   ElseIf KeyHit(KEY_2) Then
      RestoreData Map2
      LoadMap()
   ElseIf KeyHit(KEY_3) Then
      RestoreData Map3
      LoadMap()
   EndIf
   
   DrawMap()
   
   Flip
   Cls
Until KeyHit(KEY_ESCAPE) Or AppTerminate()

Function LoadMap()
   ReadData FeldX, FeldY
   MapArray = New TSpielstein[FeldX, FeldY]
   Local p:Int
   For Local x:Int = 0 Until FeldX
     For Local y:Int = 0 Until FeldY
       ReadData(p)
       MapArray[x, y] = TSpielStein.Create(p)
     Next
   Next
End Function

Function DrawMap()
   For Local x:Int = 0 Until FeldX
     For Local y:Int = 0 Until FeldY
       DrawText(MapArray[x, y].Wert, (x * 15) + 15, (y * 15) + 15)
     Next
   Next   
End Function

#Map1
DefData 3, 3
DefData 0, 1, 0
DefData 1, 2, 1
DefData 0, 1, 0

#Map2
DefData 4, 4
DefData 0, 1, 1, 0
DefData 1, 2, 2, 1
DefData 1, 2, 2, 1
DefData 0, 1, 1, 0

#Map3
DefData 5, 5
DefData 0, 1, 2, 1, 0
DefData 1, 2, 3, 2, 1
DefData 2, 3, 4, 3, 2
DefData 1, 2, 3, 2, 1
DefData 0, 1, 2, 1, 0