Local ySpeed#,xSpeed,x=100,y=50

SetBuffer BackBuffer()

Repeat

	;Pfeiltasten: Laufen, Leertaste: Springen
	If KeyHit(57) And y = 200 Then ySpeed = - 15
	If KeyDown(203) And y = 200 Then xSpeed = xSpeed - 3
	If KeyDown(205) And y = 200 Then xSpeed = xSpeed + 3
	
	Cls
	
	If xSpeed > 10 Then xSpeed=10
	If xSpeed < -10 Then xSpeed=-10
	
	y = y + ySpeed
	x = x + xSpeed
	
	If x < 0 Then x = x * -1 : xSpeed = xSpeed * -1
	If x > 395 Then x = 395-2*(x-395)  : xSpeed = xSpeed * -1
	
	ySpeed = ySpeed + 1
	
	If y => 200 Then 
		y = 200
		ySpeed = 0
		If xSpeed > 0 Then 
			xSpeed = xSpeed - 2
		Else If xSpeed < 0 Then
			xSpeed = xSpeed + 2 
		End If
	End If
	
	Color 255,255,255
	Rect x,y,5,5,1
	Color 100,100,100
	Rect 0,205,400,100,1
	
	Flip

Until KeyHit(1)

Graphics 640,480,0,2
SetBuffer BackBuffer()
Timer% = CreateTimer(60)

; -------------------------------------------------------------------

; BENUTZTE VARIABLEN:
speed#     = 4   ; GESCHWINDIGKEIT UNSERER FIGUR
x#         = 10  ; AKTUELLE X-KOORDINATE DER FIGUR
y#         = 240 ; AKTUELLE Y-KOORDINATE DER FIGUR
sx#        = 0   ; SPRUNG STARTPUNKT
sy#        = 0
ex#        = 0   ; SPRUNG ENDPUNKT
ey#        = 0
maxY#      = 0   ; DIE HÖHE DES ABLENKPUNKTES
distX#     = 0   ; DIE HORIZONTALE (X) DISTANZ ZWISCHEN START UND ENDE
dist_left# = 0   ; WIE WEIT WIR NOCH VOM ENDPUNKT ENTFERNT SIND
progress#  = 0   ; ZEIGT AN, IN WELCHER SPRUNGPHASE WIR SIND (0.0 - 1.0)
jumping%   = 0   ; TRUE ODER FALSE

; -------------------------------------------------------------------

While Not KeyHit(1)

	WaitTimer(Timer) : Cls
	
	; BEGINNE SPRUNG?
	If KeyHit(57) And jumping = False
		jumping = True
		sx = x       ; SPRUNG START
		sy = y       ; SPRUNG START
		ex = x + 100 ; SPRUNG ENDPUNKT
		ey = y       ; SPRUNG ENDPUNKT
		; VOR DEM SPRUNG HERAUSFINDEN, WIE WEIT DIE ZU SPRINGENDE
		; X-DISTANZ IST. DURCH DIE BEREITS ZURÜCKGELEGTE DISTANZ KÖNNEN
		; WIR DANN SPÄTER WÄHREND DEM SPRUNG PRÜFEN, WIE WEIT DER FORTSCHRITT 
		; IST (0.0 - 1.0), UM DAS DER BEZIER-FUNKTION MITZUTEILEN:
		distX = Sqr(Abs(sx-ex)*Abs(sx-ex))

		; JETZT SETZEN WIR AUTOMATISCH DIE HÖHE DES ABLENKPUNKTES FÜR 
		; EINE SCHÖNE FLUGBAHN, AM BESTEN EIN GUTES STÜCK ÜBER START-
		; UND ENDPUNKT. JE WEITER START UND ENDE AUSEINANDERLIEGEN, 
		; DESTO HÖHER WIRD DER ABLENKPUNKT PLAZIERT, DAMIT DIE KURVE
		; SCHÖN STEIL BLEIBT:
		If sy < ey Then maxY = sy - distX/1.5 Else maxY = ey - distX/1.5
	End If

	; SPRUNG LÄUFT?
	If jumping
		; WIE WEIT SIND WIR NOCH VOM ENDPUNKT ENTFERNT?
		dist_left = Sqr(Abs(x-ex)*Abs(x-ex))

		; MACHEN WIR EINE ZAHL ZWISCHEN 0.0 UND 1.0 DRAUS:
		progress = (1.0 - (dist_left / distX)) 

		; BEZIER-FORMEL SAGT UNS JETZT DIE AKTUELLE SPRUNGHÖHE:
		y = Bezier(sy,maxY,ey,progress)

		; UM DIE X-VERSCHIEBUNG DER FIGUR KÜMMERN WIR UNS SELBST:
		x = x + speed

		; SPRUNG BEENDET?
		If dist_left <= speed Then jumping = False
	End If
	
	Rect x,y,10,10,1 : Text 0,0,\"FORTSCHRITT: \" + progress

	Flip
Wend 

End


; ------------------------------------------------------------------------
; FUNCTION: BEZIER FORMULA
; ------------------------------------------------------------------------
Function Bezier#(startY#,maxY#,endY#, progress#) ; progress = 0.0 - 1.0

  Local c#=3*(maxY-startY)
  Local b#=3*(maxY-maxY)-c
  Local a#=endY-startY-c-b

  Return ((a*progress+b)*progress+c)*progress+startY

End Function