• Die Strecke bleibt immer dieselbe
  
• Der Roboter bleibt immer derselbe (selbe Grösse, Beschleunigung, Maximalgeschwindigkeit)
  
• Derselbe Code verhält sich in BB leider anders als in BMax - deshalb wird eure KI auch in der Umgebung getestet, in der ihr sie schreibt. Teilt also beim Einreichen mit, womit ihr gearbeitet habt.
  

• Bearbeiten dürft ihr lediglich euer Autopilot-File und die Hauptdatei, die Zeile, an der eure KI eingebunden wird
  
• Das Autopilot-File darf höchstens 6KiB gross sein
  
• Mitmachen könnt ihr mit BB oder BMax
  
• Die einzigen "Spiel-Funktionen", die ihr aus eurer KI heraus aufrufen dürft, sind GetV1, GetV2, AccelerateRobot und AccelerateRobotTo
  
• Auf die Konstanten dürft ihr ebenfalls zugreifen
  
• Schummeleien, wie z.B. auf Felder von anderen Programmteilen zugreifen oder diese gar manipulieren, werden selbstverständlich nicht gestattet

AIName = "Xaymars Dummkopf"

Function GetAngle#(pDists#[SENSORS_VIS_CNT])
	Local BigIndex = 0
	Local BigNum# = 0
	
	For I = 0 To SENSORS_VIS_CNT - 1
		If (pDists[I] > BigNum) Then
			BigIndex = I
			BigNum = pDists[I]
		EndIf
	Next
	
	Return (BigIndex / Float(SENSORS_PER_SIDE)) - 1.0
End Function

Function AutoPilotRobot(pRobot.TRobot, pDists#[SENSORS_VIS_CNT])
	Local Ang# = GetAngle(pDists)
	Local Vec1#, Vec2#
	Vec1 = (((Ang + 1.0) - 0.5) * 2.0) * MAX_VEL
	Vec2 = (((2.0 - (Ang + 1.0)) - 0.5) * 2.0) * MAX_VEL
	AccelerateRobotTo(pRobot, Vec1, Vec2)
End Function

AIName = "SPEEDRUN!!!"
Function AutoPilotRobot(pRobot.TRobot, pDists#[SENSORS_VIS_CNT])
	AccelerateRobotTo(pRobot, MAX_VEL, MAX_VEL / 4)
End Function

; Name des Autopilots
AIName = "Xaymars Ausweicher"

Function FEqual(A#, B#, Threshold#=.01)
	If (A - B <= Threshold) Then
		Return True
	EndIf
	Return False
End Function

Function GetAngle#(pDists#[SENSORS_VIS_CNT])
	Local BigIndex = 0
	Local BigNum# = 0
	
	For I = 0 To SENSORS_VIS_CNT - 1
		If (pDists[I] > BigNum) Then
			BigIndex = I
			BigNum = pDists[I]
		EndIf
	Next
	
	Return ((BigIndex / Float(SENSORS_VIS_CNT - 1)) - 0.5) * 2.0
End Function

Global EvadeStrength# = 0.0
Function GetEvadeAngle#(pDists#[SENSORS_VIS_CNT])
	Local Wall = -1
	Local WallDistance# = 100.0
	For I = 0 To SENSORS_VIS_CNT - 1
		If (pDists[I] < WallDistance) Then
			Wall = I
			WallDistance = pDists[I] - ROBOT_RADIUS
		EndIf
	Next
	
	If Wall = -1
		EvadeStrength = 0
		Return SENSORS_PER_SIDE
	EndIf
	
	Local WallMatters# = Wall
	WallMatters = WallMatters / (SENSORS_PER_SIDE * 2)
	WallMatters = WallMatters - 0.5
	WallMatters = WallMatters * 2.0
	WallMatters = Abs(WallMatters)
	WallMatters = Sin(WallMatters * 40)
	WallMatters = 1.0 - WallMatters
	
	Local WallInvDistance# = 1.0 - Max(Min(WallDistance / 0.7, 1.0), 0.0)
	
	EvadeStrength = WallInvDistance * WallMatters
	
	Return ((Wall / Float(SENSORS_VIS_CNT - 1)) - 0.5) * 2.0
End Function

Function Blend#(A#, B#, S#)
	Local V# = A# * (1.0 - S#)
	V = V + B * S
	Return V
End Function

; Intelligenz des Autopilots
; pRobot ist der Roboter
;	Ihr dürft nicht auf die Felder von pRobot zugreifen!
;	pRobot wird lediglich verwendet als Parameter für die Funktionen
;	GetV1, GetV2, AccelerateRobot und AccelerateRobotTo
; pDists ein Array mit den Distanzen der Sensoren
;	Das Array ist SENSORS_VIS_CNT gross, resp 2 * SENSORS_PER_SIDE + 1
;	Index 0 ist der Sensor, der ganz nach rechts zeigt
;	Index SENSORS_PER_SIDE zeigt geradeaus
;	Index SENSORS_VIS_CNT - 1 zeigt nach links
;	Die Distanz ist in Einheiten angeben (1 Einheit = 1 Tile)
Function AutoPilotRobot(pRobot.TRobot, pDists#[SENSORS_VIS_CNT])
	; Get Angle
	Local AVec1#, AVec2#
	Local Ang# = GetAngle(pDists)
	AVec1 = (((Ang + 1.0) - 0.5) * 2.0) * MAX_VEL
	AVec2 = (((2.0 - (Ang + 1.0)) - 0.5) * 2.0) * MAX_VEL
	
	; Evasion
	Local EVec1#, EVec2#
	Local EAng# = GetEvadeAngle(pDists)
	If EAng < 0 Then
		EVec1 = MAX_VEL
		EVec2 = -MAX_VEL
	Else
		EVec1 = -MAX_VEL
		EVec2 = MAX_VEL
	EndIf
	
	Local Vec1#, Vec2#
	Vec1 = Blend(AVec1, EVec1, EvadeStrength)
	Vec2 = Blend(AVec2, EVec2, EvadeStrength)
	
	AccelerateRobotTo(pRobot, Vec1, Vec2)
End Function