Method SetAtPlace() 'Method to make sure that the distance between the Bases isn't too short
		Local Tries:Int = 0 'Variable for the Amount of Tries
		Local IsSet:Int = 0 'Variable which is true if the distance is large enough
		Local Stop:Int = 0 'Variable to break the Loop
		
		While Stop = 0 'Loop
			Tries:+1 'Tries is Set one up
			For Local Base:TBase = EachIn TBase.AllBases 'Loop for all Bases in List
				If Base <> Self Then 'Make sure that tested Base isn't the Base which called the Method
					If (Pythagoras(iX, iY, Base.iX, Base.iY) < 100) Then 'Pythagoras to calculate the distance (should be over 100)
						iX = Rand(64, GraphicsWidth() - 64) 'If distance is smaller than 100 give new X-Coordinate
						iY = Rand(64, GraphicsHeight() - 64) 'As well a ne Y-Coordinate
						IsSet = 0 'Set IsSet to Zero because there was a too little distance
					Else 'If distance is bigger than 100
						IsSet = 1 'IsSet gets the Value one because Distance is high enough
					EndIf
				EndIf
			Next
			If (Tries >= 5) Then 'If the Program ran through the MainLoop 5 times set exit condition to true
				Stop = 1 'Exit Condition is set true
				If (IsSet = 0) Then Self.Destroy() 'If the distance was too small in each cycle delete this instance
			EndIf
			If IsSet = 1 Then Stop = 1 'Set Exit Condition true if IsSet is true
		Wend
	End Method

	Method Destroy()
		AllBases.Remove(Self)
	End Method

IsSet = 1

Method SetAtPlace()
	Local tries:Int=0
	While _BaseInRange()
		tries:+1
		' wenn tries > 5, löschen und methode verlassen
		' Koordinaten neu setzen
	Wend
End Method

' gibt true zurück, wenn eine andere Basis zu nahe liegt.
Method _BaseInRange:Int()
	For Local base:TBase = EachIn TBase
		If base <> Self
			Local dx:Int = base.iX -Self.iX
			Local dy:Int = base.iY -Self.iY
			' aus dem Phytagoras Wurzel(dx^2 +dy^2) = Distanz wird
			' gerne mal aus rechentechnischen Gründen
			' dx*dx +dy*dy = Distanz*Distanz
			If dx*dx +dy*dy <10000
				Return True
			EndIf
		EndIf
	Next
	Return False
End Method