Type TWorldPart
	Field _tlMaps:TList
	Field _tlPassages:TList
	
        'Die Karten, die zum Level gehören:
	Method Maps:TList()
		Return _tlMaps
	End Method
	
        'Setzt die Liste:
	Method SetMaps(ptlMaps:TList)
		_tlMaps = ptlMaps
	End Method
	
        'Die Übergänge im Level:
	Method Passages:TList()
		Return _tlPassages
	End Method
	
        'Gibt den Übergang mit der entsprechenden Nummer zurück:
	Method PassageWithNumber:TPassage(piNumber:Int)
		For Local pass:TPassage = EachIn Passages()
			If(pass.Number() = piNumber) Then Return pass
		Next
		Return Null
	End Method
	
        'Setzt die Liste mit den Übergängen:
	Method SetPassages(ptlPassages:TList)
		_tlPassages = ptlPassages
	End Method
	
        'Überschreibt den Übergang mit der Nummer piNumber mit dem Übergang ptpPassage
	Method SetPassageWithNumber(ptpPassage:TPassage, piNumber:Int)
		For Local pass:TPassage = EachIn Passages()
			If(pass.Number() = piNumber) Then pass = ptpPassage.Copy()
		Next
	End Method
	
        'Konstruktor:
	Function Create:TWorldPart()
		Local worldPart:TWorldPart = New TWorldPart
		
		worldPart.SetMaps(New TList)
		worldPart.SetPassages(New TList)
		
		Return worldPart
	End Function

        'Diese Methode wird dafür sorgen, dass der Spieler zum anderen Level übergeht.
	Method ChangeLevel(ptpPassage:TPassage)
		
	End Method
End Type

Type TPassage
	Field _iNumber:Int
	Field _ttmDestinationMap:TTileMap
	Field _v2dDestinationMapPosition:TVector2D
	Field _v2dMapPosition:TVector2D
	Field _v2dRealPosition:TVector2D
	Field _tgiImage:TGameImage
	Field _sCurrentWorldName:String
	Field _twpWorldPart:TWorldPart
	
        'Die Nummer des Übergangs
	Method Number:Int()
		Return _iNumber
	End Method
	
        'Ändert die Übergangsnummer
	Method __SetNumber(piNumber:Int)
		_iNumber = piNumber
	End Method
	
        'Die Karte zu der der Übergang führt.
	Method DestinationMap:TTileMap()
		Return _ttmDestinationMap
	End Method
	
        'Setzt die Zielkarte auf pttmDestinationMap
	Method __SetDestinationMap(pttmDestinationMap:TTileMap)
		_ttmDestinationMap = pttmDestinationMap
	End Method
	
        'Der Spieler startet auf der anderen Karte mit dieser Position.
	Method DestinationMapPosition:TVector2D()
		Return _v2dDestinationMapPosition
	End Method
	
        'Ändert die Position wo der Spieler auf der anderen Karte startet.
	Method SetDestinationMapPosition(pv2dDestinationMapPosition:TVector2D)
		_v2dDestinationMapPosition = TVector2D.CreateFromVector(pv2dDestinationMapPosition)
	End Method
	
        'X-Position des Startpunktes auf der Zielkarte
	Method DestinationX:Int()
		Return DestinationMapPosition().X()
	End Method

        'Setzt die X-Position des Startpunktes auf der Zielkarte	
	Method SetDestinationX(piDestinationX:Int)
		_v2dDestinationMapPosition.SetX(piDestinationX)
	End Method
	
        'Y-Position des Startpunktes auf der Zielkarte
	Method DestinationY:Int()
		Return DestinationMapPosition().Y()
	End Method
	
        'Setzt die Y-Position des Startpunktes auf der Zielkarte
	Method SetDestinationY(piDestinationY:Int)
		_v2dDestinationMapPosition.SetY(piDestinationY)
	End Method
	
        'Die Position des Übergangs auf der Karte.
	Method MapPosition:TVector2D()
		Return _v2dMapPosition
	End Method
	
        'Setzt die Position des Übergangs.
	Method SetMapPosition(pv2dMapPosition:TVector2D)
		_v2dMapPosition = TVector2D.CreateFromVector(pv2dMapPosition)
	End Method
	
        'Die Position des Übergangs, umgerechnet.
	Method RealPosition:TVector2D()
		Return _v2dRealPosition
	End Method
	
        'Setzt die umgerechnete Position des Übergangs.
	Method SetRealPosition(pv2dRealPosition:TVector2D)
		_v2dRealPosition = TVector2D.CreateFromVector(pv2dRealPosition)
	End Method
	
        'Das Bild des Übergangs.
	Method Image:TGameImage()
		Return _tgiImage
	End Method
	
        'Setzt das Bild des Übergangs.
	Method SetImage(ptgiImage:TGameImage)
		_tgiImage = ptgiImage
	End Method
	
        'Der Name der Welt zu dem der Übergang gehört.
	Method CurrentWorldName:String()
		Return _sCurrentWorldName
	End Method
	
        'Übergibt dem Übergang dn aktuellen Namen der Welt.
	Method SetCurrentWorldName(psCurrentWorldName:String)
		_sCurrentWorldName = psCurrentWorldName
	End Method
	
        'Der Level zu dem der Übergang gehört.
	Method WorldPart:TWorldPart()
		Return _twpWorldPart
	End Method
	
        'Übergibt dem Übergang den Level zu dem er gehört.
	Method __SetWorldPart(ptwpWorldPart:TWorldPart)
		_twpWorldPart = ptwpWorldPart
	End Method
	
        'Konstruktor für einen Übergang.
	Function Create:TPassage(piNumber:Int, pttmDestinationMap:TTileMap, piDestinationX:Int, piDestinationY:Int, pv2dMapPosition:TVector2D, pv2dRealPosition:TVector2D, psCurrentWorldName:String, ptwpWorldPart:TWorldPart)
		Local pass:TPassage = New TPassage
		
		pass.__SetNumber(piNumber)
		pass.__SetDestinationMap(pttmDestinationMap)
		pass.SetDestinationMapPosition(TVector2D.Create(piDestinationX, piDestinationY))
		pass.SetMapPosition(pv2dMapPosition)
		pass.SetRealPosition(pv2dRealPosition)
		
                'Bild laden, das zur aktuellen Welt gehört.
		Local sPath:String = "Data/gfx/levels/objects/WORLD/passage.png"
		sPath = sPath.Replace("WORLD", psCurrentWorldName)
		pass.SetCurrentWorldName(psCurrentWorldName)
		
		pass.SetImage(TGameImage.LoadAnimated(sPath, 5, 120))
		
		pass.__SetWorldPart(ptwpWorldPart)
		
		Return pass
	End Function
	
        'Kopiert einen Übergang.
	Method Copy:TPassage()
		Return TPassage.Create(Number(), DestinationMap(), DestinationX(), DestinationY(), MapPosition(), RealPosition(), CurrentWorldName(), WorldPart())
	End Method
	
        'Sorgt dafür, dass die Karte geändert wird, wenn der Spieler das Tile mit dem Übergang betritt.
	Method StepsOn(pv2dPlayerMapPosition:TVector2D)
		If(Int(pv2dPlayerMapPosition.X()) = Int(MapPosition().X())) Then
			If(Int(pv2dPlayerMapPosition.Y()) = Int(MapPosition().Y())) Then
				WorldPart().ChangeLevel(Self)
			EndIf
		EndIf
	End Method
	
        'Updated den Übergang.
	Method Update()
		Image().Update(, RealPosition())
	End Method
	
        'Malt den Übergang.
	Method Draw()
		Image().Draw()
	End Method
End Type