Type Base 

	Field x, y
	
	Function Create:Base(x,y)
		Local temp:Base = New Base
		temp.x = x
		temp.y = y
		Return temp
	EndFunction

End Type

Type X Extends Base
	
	Field z
	
	Function Create:X(x,y)
		Local temp:X = New X
		temp = X(Super.Create(x,y))
		temp.y = Rnd(0,1000)
		Return temp
	EndFunction

End Type

temp = X(Super.Create(x,y))

Public class X Extends Base

	Private Int z;

	Public X(Int x, Int y)
	{
		Super(x,y)
		this.z = 1337;
	}

}

SuperStrict

Type TBase

	Field x:Int, y:Int
	
	Method New()
		Print("NEW TBase")
	End Method
	
	Function Create:TBase(x:Int, y:Int)
		Print("Create TBase")
		Local temp:TBase = New TBase
		temp.x = x
		temp.y = y
		Return temp
	EndFunction

End Type

Type Tex Extends TBase
	
	Field z:Int
	
	Method New()
		Print("NEW Tex")
	End Method
	
	Function Create:Tex(x:Int, y:Int)
		Print("Create Tex")
		Local temp:Tex = New Tex
		temp.x = x
		temp.y = y
		temp.z = Rnd(0, 1000)
		Return temp
	EndFunction

End Type

Local Test:Tex = Tex.Create(3, 6)
Print "x: " + Test.x
Print "y: " + Test.y
Print "z: " + Test.z
Print "---"

Local Test2:TBase = TBase(Test)
Print "x: " + Test2.x
Print "y: " + Test2.y

temp.x = x
temp.y = y

SuperStrict

Type TBase 

	Field x:Int,y:Int
	
	Function Create:TBase(x:Int,y:Int)
		Local Base:TBase=New TBase
		Base.TBaseInit(x,y)
		Return Base
	EndFunction
	
	Method TBaseInit(x:Int,y:Int)
		Self.x=x
		Self.y=y
	End Method
	
End Type

Type TX Extends TBase
	
	Field z:Int
	
	Function Create:TX(x:Int,y:Int)
		Local XY:TX=New TX
		XY.TBaseInit(x,y)
		XY.TXInit(Rnd(0,1000))
		Return XY
	EndFunction
	
	Method TXInit(z:Int)
		Self.z=z
	End Method
	
End Type

Local BaseObj:TBase=TBase.Create(10,15)
Print "BaseObj:"
Print "x="+BaseObj.x
Print "y="+BaseObj.y
Print ""

Local XObj:TX=TX.Create(20,25)
Print "BaseObj:"
Print "x="+XObj.x
Print "y="+XObj.y
Print "z="+XObj.z
Print ""