Type Spieler ;Name des Types, hier bestimmen wir seinen Bauplan, also aus was so ein Type bestehen soll
Field x,y ;Die Positionen die Spielers auf dem Bildschirm
Field Feldposition.Position ; hier kannst du die Position abspeichern wie Sturm oder so, die auch als Types gespeichert sind, deshalb das .position
Field pass,flanken,haste_nicht_gesehen ; ich versteh nicht so viel von Fußball  :oops: 
Field ID ;meistens sinnvoll eine eindeutige nummer an einen type zu vergeben
End Type ;Ende des "Bauplans"

;Du kannst sie auch als Funktionsrückgabe oder Funktionsparameter benutzen

Function SetPosition(s.Spieler); Die funktion bekommt also einen spieler übergeben
       Return s\flanken + s\pass + s\haste_nicht_gesehen ; Wenn du auf ein Feld zugreifen willst, dann nutz du den variablen namen in unserem fall s und dann \ und dann den namen des feldes des types
End Function

Function CheckallSpieler()
        For s.spieler = Each spieler ;hier wird s = jedem vorhandenen Spieler gesetzt und dann kannst du mit s machen was du willst, wenn du einen bestimmten suchst kannst du es mit if und der id machen
             Sturm = Setposition(s)
       Next
End Function

t.typename = New typename

Type TypeName
Field x,y
Field image
Field Name$
Field P.Position
End Type

For t.typename = Each typename
Print t\name
Next

Global t2.typname = New Typname

Print "Der Name des Types ist " + t2\name + "und er ist mit dem Type Position den wir nicht kennen " + t2\p\name + " verbunden"

T2 = Null
Print t2\name

If t2 <> Null Then 

Function Move.Typename(t.typename)
t\x = t\x + 1
Return t
End Function

Delete Variablenname

Delete T2
t2\name = "Ich bin gelöscht!"

For t.typename = Each TypeName
If t\name = "Ich will gelöscht werden" Then Delete t
Next

Type TSpieler
	Field ;[...]
End Type

Dim Spieler.TSpieler(3)

Spieler(0) = New TSpieler

;[...]