Graphics 800,600,0,2
SetBuffer BackBuffer()

Const Masse = 50
Const Fadenlaenge = 50

Global PosX#=400,PosY#=300,SpdX#,SpdY# = 2
MoveMouse 400,300

While Not KeyDown(1)
Cls
mx = MouseX()
my = MouseY()
ZieheBall(mx,my)
UpdateBall
Line PosX#,PosY#,mx,my
Color 255,0,0
Oval PosX#-8,PosY#-8,16,16,1
Color 255,255,255
Flip
Wend
End

Function ZieheBall(x#,y#)
SpdX# = SpdX# -Cos(Winkel#(PosX#,PosY#,x#,y#)) * Abstand#(PosX#,PosY#,x#,y#) / (Fadenlaenge * (Masse / 10))
SpdY# = SpdY# -Sin(Winkel#(PosX#,PosY#,x#,y#)) * Abstand#(PosX#,PosY#,x#,y#) / (Fadenlaenge * (Masse / 10))
End Function

Function UpdateBall()
SpdX# = SpdX# * 0.9
SpdY# = SpdY# * 0.9; + .05
PosX# = PosX# + SpdX#
PosY# = PosY# + SpdY#
If PosX# < 5 Then PosX# = 6 SpdX# = SpdX# * -0.75
If PosX# > GraphicsWidth()-5 Then PosX# = GraphicsWidth()-6 SpdX# = SpdX# * -0.75
If PosY# < 5 Then PosY# = 6 SpdY# = SpdY# * -0.75
If PosY# > GraphicsHeight()-5 Then PosY# = GraphicsHeight()-6 SpdY# = SpdY# * -0.75
End Function

Function Abstand#(x1#,y1#,x2#,y2#)
Return Sqr((x2#-x1#)^2+(y2#-y1#)^2)
End Function

Function Winkel#(x1#,y1#,x2#,y2#)
Return (450-ATan2(x1#-x2#,y1#-y2#)) Mod 360
End Function