AppTitle "Snake"
Graphics 800,600,0,2

timer=CreateTimer(30)
Dim wurmpos(2000,2)
Global kugelzahl=8
Global richtung=3
Global fressx=20
Global fressy=20
Global punkte=0
;1=rechts
;2=links
;3=oben
;4=unten
;y positionen: 60
;x positionen: 80
For i=1 To kugelzahl
wurmpos(i,1)=40
wurmpos(i,2)=49+i
Next



SetBuffer BackBuffer()
Repeat

;neue Positionen
For i=kugelzahl To 2 Step -1
wurmpos(i,1)=wurmpos(i-1,1)
wurmpos(i,2)=wurmpos(i-1,2)
Next

If KeyDown(200) And richtung<>4 Then richtung=3 Goto weiter
If KeyDown(208) And richtung<>3 Then richtung=4 Goto weiter
If KeyDown(203) And richtung<>1 Then richtung=2 Goto weiter
If KeyDown(205) And richtung<>2 Then richtung=1
.weiter

If richtung=1 Then wurmpos(1,1)=wurmpos(1,1)+1
If richtung=2 Then wurmpos(1,1)=wurmpos(1,1)-1
If richtung=3 Then wurmpos(1,2)=wurmpos(1,2)-1
If richtung=4 Then wurmpos(1,2)=wurmpos(1,2)+1



If wurmpos(1,1)=fressx And wurmpos(1,2)=fressy Then
punkte=punkte+1
kugelzahl=kugelzahl+1
SeedRnd MilliSecs()
fressx=Rand(3,76)
SeedRnd MilliSecs()
fressy=Rand(3,56)
EndIf
Color 255,0,0
Oval fressx*10,fressy*10,10,10

Color 255,255,255
If wurmpos(1,1)<0 Or wurmpos(1,1)>80 Or wurmpos(1,2)<0 Or wurmpos(1,2)>60 Then
SetBuffer FrontBuffer()
Cls
Text 400,300,"Game Over!"
FlushKeys()
Repeat
Until KeyDown(1)
End
EndIf



For b=1 To kugelzahl
If 1<>b Then
If wurmpos(1,1)=wurmpos(b,1) And wurmpos(1,2)=wurmpos(b,2) Then
SetBuffer FrontBuffer()
Cls
Text 400,300,"Game Over!"
FlushKeys()
Repeat
Until KeyDown(1)
End
EndIf
EndIf
Next

Text 100,0,"Schlangenlänge: "+kugelzahl
Text 0,0,"Punkte: "+punkte
;Zeichnen
For i=1 To kugelzahl
Oval wurmpos(i,1)*10,wurmpos(i,2)*10,10,10
Next

WaitTimer(timer)

Flip
Cls
Until KeyDown(1)
End