kleine Sprungroutine - von Triton

Oft kommt vorallem von Neulingen die Frage, wie man einen halbwegs schönen Sprung schreiben kann. Folgendes Miniprogramm zeigt eine einfache Lösung.

;** kleines Rumgespringe ;** 9.5.2005 by Triton ;** Sprung mit Leertaste Graphics 800,600,32,2 SetBuffer BackBuffer() x=0 y=500 maxh=200 ;sprunghöhe v=3 ;wie schnell verläuft der sprung While Not KeyDown (1) If jump=0 And KeyDown(57) Then jump=1 If jump=1 Then a=a+v If a>180 Then jump=0:a=0 If KeyDown(203) Then x=x-3 If KeyDown(205) Then x=x+3 y2=Sin(-a)*maxh Rect x,y2+y,100,100 Text 10,10,jump Flip Cls Wend End