Field x
Field y
Field art.art_1
End Type

Type art_1
Field energie
End Type

einheit.einheit = New einheit
einheit\art.art_1 = New art_1

Type TEinheit
	Field Name$
	Field Koordinate.Tkoord
End Type

Type Tkoord
	Field x#, y#
End Type

Local E.TEinheit = Createeinheit("Bob", 10, 20)
Print("Name: "+E\Name)
Print("Auf den Koordinaten "+E\Koordinate\x+", "+E\Koordinate\y)
WaitKey

Function Createeinheit.TEinheit(name$, x, y)
	Local e.TEinheit = New TEinheit
	e\Name = name$
	e\Koordinate = New Tkoord
	e\Koordinate\x = x
	e\Koordinate\y = y
	Return e
End Function

Type einheit
	Field x
	Field y
	Field speed
	Field health
	Field special
	Field sEnergy
	Field sShield
	Field sDamage
End Type

e.einheit = New einheit
e\special = 1

If e\special = 1 Then e\sEnergy = e\sEnergy + 50
If e\special = 2 Then e\sDamage = e\sDamage * 1.1

handle

object

Type einheit
	Field x
	Field y
	;..
	Field handle_s
End Type

Type spezial
	Field staerke
	Field schnelligkeit
	Field intelligent
End Type

;;normale Einheit
e.einheit=New einheit
e\x=10
e\y=20
e\handle_s=0




;spezial Einheit erstellen
s.spezial=New spezial
s\staerke=2
s\schnelligkeit=1
s\intelligent=10
e.einheit=New einheit
e\x=10
e\y=20
e\handle_s=Handle(s)




;die abfrage
For e.einheit = Each einheit
	If e\handle_s=0 Then
		Print "normale einheit"
		Print e\x
		Print e\y
	Else
		Print "spezial einheit"
		Print e\x
		Print e\y
		s.spezial=Object.spezial(e\handle_s)
		Print s\staerke
		Print s\schnelligkeit
		Print s\intelligent
	EndIf
	Print ""
Next

WaitKey()