Type TTest

  'Function Pointer (Event)
  Field OnPlayerRespawn(player:String)

  Field health:Byte
  Field name:String

  Method Update()
    If health <= 0 then Respawn()
  End Method

  Method Respawn()
    health = 100
    OnPlayerRespawn(name)
  End Method
   
End Type

'Diese Funktion wird aufgerufen wenn der Event ausgelöst wird
'und kann natürlich überall stehen
Function respawn_handler(name:String)
  Print "Player Respawn"
End Function


Local t:TTest = new TTest
t.OnPlayerRespawn = respawn_handler
t.health = 100

t.Update()  'passiert nix, health ist nicht 0

t.health = 0

t.Update() ' health ist 0, die interne Respawn Funktion wird aufgerufen
' Die Respawn Funktion löst zusätzlich den Event aus.