Local cX:Int = sekCntX / 2
		Local cY:Int = sekCntY / 2
		Local stepX:Int = 0
		Local stepZ:Int = -1
		Local cntX:Int = 1
		Local cntZ:Int = 1
		Local totalCntX:Int = 1
		Local totalCntY:Int = 1
		Local cnt:Int = 0
		Self.sektorUpdateList.AddLast(Self.sektor[cX, cY])
		
		While 1
			While 1
				'Z schleife!
				If cntZ <= 0 Then Exit
				
				If cY < 0 Or cY >= sekCntY Or cX < 0 Or cX >= sekCntX Then Continue
				cY:+stepZ
				cntZ:-1
				
				If cY >= 0 And cY < sekCntY Then
					Self.sektorUpdateList.AddLast(Self.sektor[cX, cY])
					cnt:+1
				EndIf
			Wend
			While 1
				'x schleife
				If cntX <= 0 Then Exit
				
				If cY < 0 Or cY >= sekCntY Or cX < 0 Or cX >= sekCntX Then Continue
				
				cX:+stepX
				cntX:-1
				
				If cX >= 0 And cX < sekCntX Then
					Self.sektorUpdateList.AddLast(Self.sektor[cX, cY])
					cnt:+1
				EndIf
			Wend
			If cnt >= sekCntX * sekCntY Then Exit
			
			stepZ = stepZ * -1
			stepX = stepX * -1
			
			totalCntX:+1
			totalCntY:+1
			cntX = totalCntX
			cntZ = totalCntY
		Wend

Function WalkInSpiral(Array:Int[,])
	Local DirX:Int[] = [0, 1, 0, -1]
	Local DirY:Int[] = [-1, 0, 1, 0]
	
	Local SizeX:Int = Array.Dimensions()[0]
	Local SizeY:Int = Array.Dimensions()[1]
	
	Local X:Int = SizeX/2 'CenterX/Y
	Local Y:Int = SizeY/2
	
	Local WalkDir:Int, StepAmount:Int = 1, StepsLeft:Int = 1, IncrementSteps:Int
	
	While X >= 0 And Y >= 0 And X < SizeX And Y < SizeY
		Print Array[X, Y] 'Hier das Listenverkettungszeug machen
		
		X :+ DirX[WalkDir]
		Y :+ DirY[WalkDir]
		
		StepsLeft :- 1
		
		If Not StepsLeft Then
			StepAmount :+ IncrementSteps
			StepsLeft = StepAmount
			IncrementSteps = Not IncrementSteps 'Schneller als IncrementSteps = (IncrementSteps + 1) Mod 2
			
			WalkDir = (WalkDir + 1) & 3 'Schneller als WalkDir = (WalkDir + 1) Mod 4
		EndIf
	Wend
End Function

Function Pixelweg:Int(x1:Int, y1:Int, x2:Int, y2:Int) 
     Return Abs(x2-x1)+Abs(y2-y1)
End Function