Type TDing
	Field bla%
	Field blub%
End Type

Function TDing_AddBlaToBlub( ding.TDing )
	ding\blub = ding\blub + ding\bla
End Function


Local ding.TDing = New TDing
ding\bla = 7
ding\blub = 8
TDing_AddBlaToBlub( ding )
Print( ding\blub )

Type Mann
	Field name:String
	Field geld:Int 'ganze euros
	Field Trunkenheit:Float 'dezimaldarstellung einer prozentzahl. 100% is kritisch ^^
	
	Field getraenk:Bier
	
	Function Erstellen:Mann(name:String, geld:Int)
		'wir befinden uns hier im globalen funktionsbereich der klasse. DH: Alles was FIELD ist kann nicht benutzt werden.
		'erschaffen wir also einen neuen mann und geben ihm etwas bier :)
		
		Local ganzer_kerl:Mann = New Mann()
		ganzer_kerl.name = name
		ganzer_kerl.Trunkenheit = 0.0
		
		If ganzer_kerl.getraenk = Null Then ganzer_kerl.getrank = ganzer_kerl.BestelleBier()
		
		Return ganzer_kerl
	End Function
	
	Method BestelleBier:Bier()
		'Hier befinden wir uns im methodenbereich. Das heißt: Alle globalen funktionen können erreicht werden sowie andere methoden.
		'man kann sagen, das wir uns innerhalb des mannes befinden :P Alle felder sind auf ihn zugeschnitten. Sein geld, sein name, seine trunkenheit.
		
		Local b:Bier = Null
		
		'Beachte das self: hätte diese methode einene parameter mitbekommen, der geld heißen würde, so wäre das self pflicht!
		'andernfalls ist es optional.
		If Self.geld > 0 Then
			b = New Bier()
			Self.geld :-1
		EndIf
		
		'Nebenbei: Self lässt sich mit "Selbst" oder weiter "Eigenes" übersetzen. Grob halt.
		'so klingt das ganze doch logisch oder? :) Unser eigenes Getränk wird auf das objekt der locale b gelenkt :)
		'die andere beiden haben ihr eigenes bier..
		Self.getraenk = b
		Return b
	End Method
	
	Method Update:Int()
		If Self.getraenk Then
			If Self.getraenk.Drink() > 0 Then
				Self.Trunkenheit :+ Rnd(0.001,0.005)
			Else
				Self.getraenk = Null
			EndIf
		Else
			Self.getraenk = Self.BestelleBier()
		EndIf
		Return 1
End Type

Type Bier
	Field fuellung:Float = 0.5 '1.0 = 1 liter *g*
	
	Method Drink:Int()
		If Self.fuellung > 0.0 Then
			Self.fuellung :- 0.01
			Return 1
		EndIf
		Return 0
	End Method
End Type

'Bemerke: Mann ist der name des Types. Wir können niemals eine variable dieses namens erschaffen.
'Mann wird IMMER als Type referenziert. Nutzen wir den "." (punkt), greifen wir auf die GLOBALEN funktionen der klasse zu.
'in diesem fall ein construktor dem wir parameter geben.
Local harald:Mann = Mann.Erstellen("harald", 5)
Local manni:Mann = Mann.Erstellen("Manni", 8)
Local jungspund:Mann = Mann.Erstellen("Juengling", 1)

While True


	harald.Update()
	manni.Update()
	jungspund.Update()
Wend

Method Pseudo:Int(x:Int)
       x = x 'wir weisen der lokalen variable "x" sich selbst zu. Fehler! bzw blödheit :D
       Self.x = X 'wir weisen dem objekt eigenem feld "x" den wert der lokalen variable "x" zu. So is' korrekt.
End Method

Rem
	Zugriff auf verschiedene Scopes
EndRem

SuperStrict

Global konstante:String = "Global"

Type TTest

	Field konstante:String = "Self"

	Method Show(konstante:String = "Parameter")
		Print("Globale enthält: "+ .konstante )
		Print("Self enthält: "+ Self.konstante )
		Print("Parameter enthält: "+ konstante )
	EndMethod
	
EndType

Local t:TTest = New TTest
t.Show()

SuperStrict
Framework BRL.StandardIO

Global test:String = "Global"

Type TParent
	Field test:String = "Vererbt"
	
	Method printTest(test:String)
		Print(test)
		Print(.test)
		Print(Self.test)
	End Method
End Type

Type TChild Extends TParent
	Field test:String = "Field"
	
	Method printTest(test:String)
		Print(test)
		Print(.test)
		Print(Self.test)
	End Method
	
	Method printSuperTest(test:String)
		Super.printTest(test)
	End Method
End Type

Local child:TChild = New TChild

Print("NORMAL")
child.printTest("Parameter")
Print()
Print("SUPER")
child.printSuperTest("Parameter")