Langweilig -> primitives Pseudo-OOP ohne Features...

[gekkonier]

Falls euch auch so fad ist wie mir etwas zum spielen:

Code: Alles auswählen

; folgendes Makro ist eine Abkürzung, weil faul sein schön macht
Macro Call(obj, method)
   CallFunctionFast(obj\method, @obj)
EndMacro

; die allgemeine Struktur der "Klasse"
Structure Punkt
   *Info ; Methode
   x.l ; Werte
   y.l
EndStructure

; Implementierung der Methode
Procedure Info(*this.Punkt)
   Debug *this\x
   Debug *this\y
   Debug "-"
EndProcedure

; "Konstruktor"
Macro NeuPunkt(name, param_x, param_y)
   name.Punkt
   name\Info = @Info()
   name\x = param_x
   name\y = param_y
EndMacro

; Beispiel zur Benutzung des Punktes

NeuPunkt(foo, 1, 2)
Call(foo, Info)
foo\x = 3
foo\y = 4
Call(foo, Info)

Edit: Das hier ist weit weg von vollständig und superfunktionell, aber vielleicht wills ja jemand als Basis für eigenen Experimente verwenden