Graphics 800, 600, 16, 0
AppTitle("Snake Planet")

; Type-Liste für die Schlangensegmente
Type Schlange
   Field xpos         ; x-Position des Segments
   Field ypos         ; y-Position des Segments
   Field id            ; ID des Segments
End Type

Global Segment.Schlange

For i=1 To 5
   Segment.Schlange= New Schlange
   Segment\xpos=i+1
   segment\ypos=2
Next

Global Direction = 2      ; Bewegungsrichtung der Schlange

timer=CreateTimer(1)
Repeat
   moveSchlange()
   DebugLog(Segment\xpos)
   For Segment.Schlange=Each Schlange
      Rect (Segment\xpos-1)*15, (Segment\ypos-1)*15, 15, 15
   Next
   WaitTimer(timer)
   Cls
Until KeyHit(1)
End







Function moveSchlange()
;####################################
   x=segment\xpos ; Hier taucht der
   y=segment\ypos ; Fehler auf!
;####################################
   DebugLog(x)
   Select Direction
      Case 1
         Segment.Schlange= New Schlange
         Segment\xpos=x
         segment\ypos=y-1   
      Case 2
         Segment.Schlange= New Schlange
         Segment\xpos=x+1
         segment\ypos=y   
      Case 3
         Segment.Schlange= New Schlange
         Segment\xpos=x
         segment\ypos=y+1   
      Case 4
         Segment.Schlange= New Schlange
         Segment\xpos=x-1
         segment\ypos=y   
   End Select
   Delete Last Schlange
   Segment.Schlange=First Schlange
End Function