x1=500:y1=300
x2=600:y2=333

Print Int(ATan2(y2-y1,x2-x1))
WaitKey()
End

Graphics 800,600,32,1


Const links=203
Const rechts=205
Const hoch=200
Const runter=208

Schanze=LoadImage(\"Anlauf5.bmp\")
Spieler=LoadImage(\"Spieler.bmp\")
Rampe=LoadImage(\"Rampe.bmp\")



x#=143
y#=14

wind=Rand(1,100)


SetBuffer BackBuffer()
Repeat
Cls
x1=500:y1=300 
x2=600:y2=333 

Print Int (ATan2(y2-y1,x2-x1)) 
WaitKey() 
End

DrawImage Schanze,1,1
DrawImage Spieler,x#,y#
MaskImage Spieler,255,255,255
DrawImage Rampe,231,210

If Betrug= 1000 Then
Text 1,1, \"Du bist der beste\"
EndIf

If KeyDown(runter) And y# < 600 Then y# = y# + 0.7
If KeyDown(hoch) And y# >0 Then y#=y#-0.3
If KeyDown(rechts) And x#<800Then x#=x#+ 0.3
If KeyDown(links) And x#>-2 Then x# =x#-0.3


If ImagesCollide(Spieler,x#,y#,0,Rampe,231,210,0)Then
x#=x# +1.0

If wind=<25Then
y#=y# +0.9
EndIf

If wind=>25 Then
x#=x# +1.3
EndIf

If wind=>50 Then
y#=y# +1.9

EndIf
EndIf


Flip


Until KeyHit(1)