	//Sandbox test of Dmpel "Framework Test 1.bmx"

//Global SampleContrl -> TTileController
Var SampleManager -> TTileManager
Global SampleCtrl -> TTileController

Function InitSampleCtrl()
	Var SampleContrl -> TTileController
	
	SampleContrl=TTileController.Create()
	
	SampleContrl._rgchName="SampleController"
	SampleContrl.InitTypeID(TTypeID.ForName("TTileManager"),TTypeID.ForName("TTileTemplate"),TTypeID.ForName("TTile"))
	SampleContrl.Debug()
	
	Return SampleContrl
End Function

Function Test()
	Var rgch -> String
	rgch=SampleCtrl.__Name()
	rgch="Hey, "+rgch+"!"
	SampleCtrl._rgchName=rgch
End Function

Function Calc()
	Var i -> Int
	i=2
	i=(5-i)*2
	
	SampleCtrl._rgchName=i
	SampleCtrl.Stats()
End Function

SampleCtrl=InitSampleCtrl()

SampleManager=TTileManager.Create()

SampleManager._Init("SampleManager",SampleCtrl._InstanceTypeID,False,True)
SampleCtrl.AddManager(SampleManager)

SampleManager=TTileManager.Create()

SampleManager._Init("SampleManager 2",SampleCtrl._InstanceTypeID,True,True)
SampleCtrl.AddManager(SampleManager)

Test()

SampleCtrl.Stats()
SampleCtrl.Debug()
SampleCtrl.ListEntries()

Var i -> Int

//Wert von i verndern, um Verhalten zu ndern
i=1

if i==2:
	Calc()
	SampleCtrl.Stats()
	SampleCtrl.Debug()
	SampleCtrl.ListEntries()
end if
