Graphics 800,600,32,2
SetBuffer = BackBuffer()

laenge=150
x=450
y=300
xa=400
ya=300

timer=CreateTimer(45)
While Not KeyHit(1)
Cls

Color 200,200,200
Line xa,ya,x,y
Color 0,0,200
Rect x,y,5,5

y=y+1 ;vereinfacht schwerkraft

mom=0
If xa>x Then mom=mom+(xa-x)
If xa<x Then mom=mom+(x-xa)
If ya>y Then mom=mom+(ya-y)
If ya<y Then mom=mom+(y-ya)
If mom>laenge Then
   For i = 0 To (mom-laenge)
      If xa>x Then x=x+1
      If xa<x Then x=x-1
      If ya>y Then y=y+1
      If ya<y Then y=y-1
   Next
EndIf

If KeyDown(81) Then xa=xa+2    ;Num Pad Tasten 1 & 2
If KeyDown(79) Then xa=xa-2

If KeyDown(74) Then laenge=laenge-1     ;Num Pad + & -
If KeyDown(78) Then laenge=laenge+1

Text 10,10,mom+" Meter"

WaitTimer(timer)
Flip
Wend

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

laenge=150
x=450
y=300
xa=400
ya=300

xb=0;backup
xs=0;x koordinaten speed

timer=CreateTimer(45)
While Not KeyHit(1)
Cls

xb=x

Color 200,200,200
Line xa,ya,x,y
Color 0,0,200
Rect x,y,5,5

y=y+1 ;vereinfacht schwerkraft
x=x+xs

mom=0
If xa>x Then mom=mom+(xa-x)
If xa<x Then mom=mom+(x-xa)
If ya>y Then mom=mom+(ya-y)
If ya<y Then mom=mom+(y-ya)
If mom>laenge Then
   For i = 0 To (mom-laenge)
      If xa>x Then x=x+1
      If xa<x Then x=x-1
      If ya>y Then y=y+1
      If ya<y Then y=y-1
   Next
EndIf

If xb<x Then xs=2
If xb>x Then xs=-2

If KeyDown(81) Then xa=xa+5
If KeyDown(79) Then xa=xa-5

If KeyDown(74) Then If laenge>5 Then laenge=laenge-1
If KeyDown(78) Then If laenge<200 Then laenge=laenge+1

Text 10,10,mom+" Meter"

WaitTimer(timer)
Flip
Wend

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

q%=0;Allgemeine Schleifenvariable
ln#=20;Länge der einzelnen Kettenglieder
st%=20;Gesamtanzahl der Kettenglieder
s1#=0;Ist/länge des aktuellen Kettenglieds
s2#=0;Soll/länge des aktuellen Kettenglieds
dx#=0;Zwischenvariable für Phytagoraz
dy#=0;Zwischenvariable für Phytagoraz
wk#=0;Winkel des aktuellen Kettenglieds
Dim xp#(st)   ;X-Position
Dim yp#(st)   ;Y-Position
Dim x1#(st)   ;X-1.Zwischenposition
Dim y1#(st)   ;Y-1.Zwischenposition
Dim xg#(st)   ;X-Geschwindigkeit
Dim yg#(st)   ;Y-Geschwindigkeit
hh#=2 ;Steifigkeit einzelner Glieder

;Mausposition auf mitte des Bildschirmes
MoveMouse 400,200

;Kettenposition auf mitte des Bildschirmes
For q=0 To st
 xp(q)=400
 yp(q)=200+q*ln;(q Mod 2)*ln
 x1(q)=xp(q)
 y1(q)=yp(q)
Next




While Not KeyHit(1)

 ;Erstes Kettenglied auf Mausposition setzen
 xp(0)=MouseX()
 yp(0)=MouseY()

For w=1 To 20
 xp(0)=MouseX()
 yp(0)=MouseY()

 For q=0 To st-1
  wk=(ATan2(yp(q)-yp(q+1),xp(q)-xp(q+1)))Mod 360
  dx=(xp(q+1)+Cos(wk)*ln)-xp(q)
  dy=(yp(q+1)+Sin(wk)*ln)-yp(q)
  xp(q+1)=xp(q+1)-dx/2.0
  yp(q+1)=yp(q+1)-dy/2.0
  xg(q+1)=xg(q+1)-dx/2.0
  yg(q+1)=yg(q+1)-dy/2.0
  xp(q)=xp(q)+dx/2.0
  yp(q)=yp(q)+dy/2.0
  xg(q)=xg(q)+dx/2
  yg(q)=yg(q)+dy/2
 Next
Next

 For q=1 To st
  yg(q)=yg(q)+.02
  xg(q)=xg(q)*.999
  yg(q)=yg(q)*.999
  xp(q)=xp(q)+xg(q)
  yp(q)=yp(q)+yg(q)
  Color 120+(q Mod 2)*120,0,0
  Line xp(q),yp(q),xp(q-1),yp(q-1)
 Next

 ;Cursorspielerei
 If KeyDown(203) xg(st)=xg(st)-1
 If KeyDown(205) xg(st)=xg(st)+1
 If KeyDown(200) yg(st)=yg(st)-1
 If KeyDown(208) yg(st)=yg(st)+1

 ;Mausposition zeichnen
 Color 200,200,200
 Oval xp(0)-4,yp(0)-4,9,9,0

 ;Standardkramm
 Flip
 Cls
Wend
End