Type TButton
	Global AllButtons:TList = New TList
	Global ID:Int = 0
	
	Field iX:Int
	Field iY:Int
	Field iID:Int
	Field tmDrawnImage:TMyImage
	Field IsClicked:Int = 0

...
  Field ClickAction(Data:Object)
  Method Update()
    If <Klick abfragen>
      Self.ClickAction(Daten)
    EndIf
...
Button.ClickAction=StarteSpiel 'Dem Button im Hauptcode eine Funktion zuweisen. (Keine Klammern!)

'Hier sind zwei Funktionen:
Function PrinteDies(Dies:String)
  Print "Dies: "+Dies
EndFunction

Function PrinteDas(Das:String)
  Print "Das: "+Das
EndFunction
'Dies ist ein Funktionspointer:
Local Pointer(EinParameter:String)

'Dieser Pointer kann auf eine beliebige Funktion zeigen, sofern sie die entsprechenden Parameter und den passenden Rückgabewert haben.
Pointer=PrinteDies

'Funktionspointer kann man wie Funktionen aufrufen.
Pointer("Test")

'Der Wert bzw. die aufgerufene Funktion ist aber im Gegensatz zu normalen Funktionen/Methoden jederzeit und überall änderbar:
Pointer=PrinteDas
Pointer("bestanden!")

 Field ClickAction(Data:Object)

AttackButton.OnClick = AttackButtonClick()

ax"]Function Create:TButton(pIMage:TImage, pImage2:TImage, px:Int, py:Int, ClickAction:Object)
		TButton.id = TButton.id + 1
		Local B:TButton = New TButton
		B.iX = px
		B.iY = py
		
		B.iID = TButton.id
		
		B.OnClick = ClickAction
		
		B.tmMainImage = TMyImage.Create(pIMage, 1, 0)
		B.tmSelectedImage = TMyImage.Create(pImage2, 1, 0)
		B.tmDrawnImage = B.tmMainImage
		Return B
	End Function

Global AttackButton:TButton = TButton.Create(BAttackImage, BAttackSelectedImage, GraphicsWidth() / 2, GraphicsHeight() - 32)
AttackButton.OnClick = AttackButtonClick

Field OnClick(Data:Object)

Function AttackButtonClick()
	
	
End Function

Field OnClick(Data:Object)

Function AttackButtonClick(Data:Object)
End Function

Function AttackButtonClick( data:Object )
	
	Print String(data) 'was auch immer^^

End Function