SuperStrict

Graphics 320, 240


' Objektliste erstellen
Global MyList:TList = New TList

' Type erstellen
Type TMyType

	Field _foo:Int
	
	Function Create:TMyType(foo:Int)
		Local t:TMyType = New TMyType
		t._foo = foo
		' In die Liste eintragen
		MyList.AddLast t
		
		' Und zurückgeben
		Return t
	End Function
	
	Method Draw()
		DrawText "From List: " + Self._foo, 0, 40
	End Method
	
	' Aus Liste entfernen
	Method Destroy()
		MyList.Remove Self
	End Method

End Type

' Objekt erstellen
Local myObj:TMyType = TMyType.Create(1)


Repeat
	Cls
	DrawText "Press ENTER to destroy Object", 0, 0
	' Alle Objekte in der Liste zeichnen
	For Local o:TMyType = EachIn MyList
		o.Draw()
	Next
	
	DrawText "From Handle: " + myObj._foo, 0, 60
	
	
	' Gezielt ein Objekt löschen
	If KeyHit(KEY_ENTER) Then myObj.Destroy()
	
	Flip(1)
	
Until AppTerminate() Or KeyHit(KEY_ESCAPE)

Function Create:TMyType(foo:Int)
		Local t:TMyType = New TMyType
		t._foo = foo
		' In die Liste eintragen
		MyList.AddLast t
		
		' Und zurückgeben
		Return Varptr t
	End Function

Local myObj:TMyType Ptr = TMyType.Create(1)

Local myObj:TMyType = TMyType.Create(1)
Local PmyObj:Int Ptr = Int Ptr(Varptr myObj)

Type TMyType
       .....
	Method Destroy:TMyType()
		MyList.Remove Self
		Return Null
	End Method

....
End Type
.....
	' Gezielt ein Objekt löschen
	If KeyHit(KEY_ENTER) Then myObj=myObj.Destroy()

Type TMyType
       .....
.....
	Function Destroy_II:TMyType(Me:TMyType)
		MyList.Remove Me
		Return Null
	End Function
...
End Type
.....
	' Gezielt ein Objekt löschen
	If KeyHit(KEY_ENTER) Then myObj=TMyType.Destroy_II(myObj)

Type TMyType
[...]
	Method Delete()
		Print("GC entfernt TMyType ["+Self._foo+"]")
	End Method 
End Type

Method Destroy:TMyType()
		MyList.Remove Self
		Return Null
	End Method

' Aus Liste entfernen
Method Destroy(handle:TMyType Var)
	MyList.Remove handle
	handle = Null
End Method ' Aus Liste entfernen


myObj.Destroy(myObj)

Release HandleFromObject(myObj)

SuperStrict
Include "MF_IsoEngine.bmx"

Global GWIDTH:Int = 1024
Global GHEIGHT:Int = 768

SetGraphicsDriver GLMax2DDriver()
Graphics GWIDTH, GHEIGHT


MF_IsoEngineInit(500, 200, 64, 32, 32, 128, 32)

MF_Debug = 1


' Tilesets
Local groundTileset:TImage = LoadAnimImage("GroundTileset.png", 64, 32, 0, 40)
Local midTileset:TImage = LoadAnimImage("WallTileset.png", 64, 128, 0, 10)

' Map
Global map:MF_TMap = MF_TMap.Create(0, 0, groundTileset, midTileset)


' Objekte
Local objImg:TImage = LoadAnimImage("objAniTest.png", 64, 128, 0, 8)
SetImageHandle(objImg, 32, 128)
Type tObj Extends MF_TActor
	Field _idle:MF_TAnimSeq = MF_TAnimSeq.Create(0, 8, 50)
	Field _image:TImage
	Function Create:tObj(x:Int, y:Int, image:TImage)
		Local o:tObj = New tObj
		o.PutToTile(x, y)
		o._image = image
		Return o
	End Function
	
	Method Update()
	End Method
	
	Method Draw()
		Self._idle.Play(Self._image, Self._x + MF_GetMapX(), Self._y + MF_GetMapY())
		'DrawImage Self._image, Self._x + MF_GetMapX(), Self._y + MF_GetMapY(), 0
	End Method
End Type

Local objCount:Int = 1
Local myObj:tObj[objCount]

For Local i:Int = 0 To objCount - 1
	myObj[i] = tObj.Create(i + 2, 35, objImg) 
	myObj[i].SetMapObjectType(MF_PLAYER)
	myObj[i].SetMousePickable(True)
Next


Local mpX:Int, mpY:Int
Local mXs:Int, mYs:Int
Local md1:Int, mh2:Int, md3:Int
Local mat:Int


Repeat

	mpX = MF_GetMousePickedX(MouseX(), MouseY())
	mpY = MF_GetMousePickedY(MouseX(), MouseY())
	mXs = MouseXSpeed()
	mYs = MouseYSpeed()
	md1 = MouseDown(1)
	mh2 = MouseHit(2)
	md3 = MouseDown(3)
	
	If KeyHit(KEY_0) mat = 0
	If KeyHit(KEY_1) mat = 1
	If KeyHit(KEY_2) mat = 2
	If KeyHit(KEY_3) mat = 3

	' Danach weiss die Engine nichts mehr über das Objekt, allerdings existiert es noch für den Benutzer
	If KeyHit(KEY_ENTER)
		If myObj[0] <> Null myObj[0].Destroy(myObj[0])
	End If
	
	Cls
	
	map.Draw()

	If md1
		If mat = 0
			For Local i:Int = 0 To objCount - 1
				If myObj[i] <> Null myObj[i].MoveToTile(mpX, mpY, 4, True)
			Next
		Else
			MF_GROUNDLAYER.SetTileMaterial(mpX, mpY, mat)
		End If
	End If
	
	If mh2	
		If mat <> 0
			MF_GROUNDLAYER.SetTileWalkable(mpX, mpY, False)
			MF_MIDLAYER.SetTileMaterial(mpX, mpY, mat)
		Else
			 MF_GROUNDLAYER.SetTileWalkable(mpX, mpY, True)
			 MF_MIDLAYER.SetTileMaterial(mpX, mpY, mat)
		End If
	End If
	
	If md3
		map.move(mXs, mYs)
	End If
	
	If MF_Debug = 1
		DrawText "FPS: " + String(MF_Fps.Get()), 0, 0
		DrawText "mpx: " + mpX + "  |  mpy: " + mpY, 0, 20
	End If
	
	
	Flip(1)
	If map <> Null map.Update()
	MF_Fps.Update()
	
Until AppTerminate() Or KeyHit(KEY_ESCAPE)

' Engine

Type TMapObjekt  '<- Engineklasse
	Method New()
		'In EngineObjektliste eintragen
	End Method
End Type



' Neues Projekt

Type TObj Extends TMapObjekt
	Function Create()
	End Function
End Type


myObj:TObj TObj.Create()

'Löscht das Objekt aus der EngineObjektliste.
myObj.Destroy()


'Jetzt habe ich in meinem neuen Projekt noch die referenz zum Objekt
'aber die Engine nicht.