Local funcPtr()

Function func1()
End Function

Function func2()
End Function

funcPtr = func1

funcPtr()

Global ki_state() 'unser func ptr
Global Leben = 100
Global getroffen = True

'Normalzustand der KI
Function Idle()
  If getroffen then Leben = Leben - 1
 
  Print "Leben: " + Leben

  If Leben <= 0 then ki_state = Tot  'func ptr zeigt nun auf Tot
  return 1
End Function

'KI Zustand: Tot
Function Tot()
  Print "Ich bin tot"
  return 0
End Function

ki_state = Idle 'Anfangs zeigt func ptr auf Idle, am Ende auf Tot

Local state:Int = 1

While state > 0
  state = ki_state()  'egal welcher KI Zustand, Funktion wird ausgeführt.
End While

Type bla

  Field funcPtr()

  Function blubb()
  End Function

  Method New()
    funcPtr = bla.blubb
  End Method

End Type

Function tu_was( funcPtr() )
  funcPtr()  'Die Funktion die im Pointer referenziert ist wird ausgeführt.
End Function

Function tu_was_anderes()
  Print "blubb"
End Function

Local myfuncPtr() = tu_was_anderes

tu_was( myfuncPtr ) 'tu_was wird ausgeführt, mit übergabe des Pointers.

Function tu_was:MyType(a:Int, b:Float)
  return null
End Function

Local funcPtr:MyType(x:Int, y:Float)

funcPtr = tu_was

funcPtr(10, 20.0)