If p\way=1 And p\x<p\go_start+p\go_freedom And (r=0 Or r>800)
	p\speedx#=p\speedx#+0.125
	If p\speedx#>p\max_speed p\speedx#=p\max_speed
	p\run=True
ElseIf (r>0 And r<800) ; Hinderniss im Weg
	p\speedx#=0.0
	DebugLog CrossOver((p\x+32)/32,(p\y+16)/32,1,4)
	Stop
	If CrossOver((p\x+32)/32,(p\y+16)/32,1,4) And (u=0 Or u>800) ; Überqueren möglich?
		p\jump=True
		p\tempy=jumplow
	Else
		p\way=0
	EndIf
EndIf

Function CrossOver(x,y,typ,range)
	Local i,out=False,s
	If typ=1 ; Auf Höhe prüfen
		For i=y To y-Abs(range) Step -1
			If map(x,y)=0 Or map(x,y)>800 out=True
		Next
	EndIf
	If typ=2 ; Auf Weite prüfen
;  (Funktioniert so nicht, brauch ich auch noch nicht)
		If range>0 s=1 Else s=-1
		For i=x To x+range; Step s
			If map(x,y)>0 And map(x,y)<800 out=True
		Next
	EndIf
	Return out
End Function