Snake Help!

[dervy]

I am making a snake game and i cant seem to get the tail to follow it properly. If you see the code and try it you'll see what i mean. Any suggestions?


var x, y : array 1 .. 999 of int
var lastx, lasty:array 1 .. 999 of int
var dx, dy : int
var direction : int
var count : int := 1
var ch : string (1)
var folx, foly : int
x (1) := 100
y (1) := 100
View.Set ("offscreenonly")
var chars : array char of boolean
color (red)
put "Welcome to Mr. Line! Press a key."
getch (ch)
direction := 1
loop
randint (dx, 0, maxx)
randint (dy, 0, maxy)
loop
drawfilloval (x (1), y (1), 4, 4, blue)
if count > 1 then
for i : 2 .. count
x (i) := x (i - 1) + folx
y (i) := y (i - 1) + foly
drawfilloval (x (i), y (i), 4, 4, blue)
end for
end if
drawfilloval (dx, dy, 4, 4, red)
exit when View.WhatDotColour (x (1), y (1) - 4) = red or View.WhatDotColour (x (1), y (1) + 4) = red or View.WhatDotColour (x (1) + 4, y (1)) = red or View.WhatDotColour (x (1) - 4, y (1)) =
red
View.Update
Input.KeyDown (chars)
if chars (KEY_UP_ARROW) and direction not= 4 then
direction := 2
%y (1)+= 4
end if
if chars (KEY_LEFT_ARROW) and direction not= 3 then
%x (1):= x(1) - 4
direction := 1
end if
if chars (KEY_RIGHT_ARROW) and direction not= 1 then
%x (1):= x (1)+ 4
direction := 3
end if
if chars (KEY_DOWN_ARROW) and direction not= 2 then
%y (1) := y (1)- 4
direction := 4
end if
if direction = 1 and x (1) <= maxx then
x (1) := x (1) - 4
folx := -8
foly := 0
elsif direction = 2 and y (1) <= maxy then
y (1) += 4
foly := -8
folx := 0
elsif direction = 3 and x (1) >= 0 then
x (1) := x (1) + 4
folx := 8
foly := 0
elsif direction = 4 and y (1) >= 0 then
y (1) := y (1) - 4
foly:=8
folx:=0
else
Music.Sound (1000, 50)
Music.SoundOff
x (1) := maxx div 2
y (1) := maxy div 2
count := 1
end if
delay (25)
cls
end loop
count += 1
end loop

[minime]

well i was bored and tried making it as well, and i got most of it, all except when the tail hits itself it ends the game, so just see what you can get from my code.

var balls, space : int
space := 10
balls := 1 * space
var sx : flexible array 1 .. balls of int
var sy : flexible array 1 .. balls of int
var sr : int
var x,y,r : int
var speedy : array 1 .. balls of int
var speedx : array 1 .. balls of int
var keys : array char of boolean
var score : int

View.Set ("graphics:600;600,offscreenonly")

sx (1) := 300
sy (1) := 300
sr := 10
r := 7
speedy (1) := 0
speedx (1) := 0
score := 0

randint (x, 0 + r, maxx - r)
randint (y, 0 + r, maxy - r)

for i : 1 .. balls - 1
speedx (i + 1) := speedx (i)
speedy (i + 1) := speedy (i)
end for

for i : 2 .. balls
sx (i) := sx (i - 1) - speedx (i - 1)
sy (i) := sy (i - 1) - speedy (i - 1)
end for

loop

cls
put score

if sx (1) + sr >= x - r and sx (1) - sr <= x + r and sy (1) + sr >= y - r and sy (1) - sr <= y + r then
randint (x, 0 + r, maxx - r)
randint (y, 0 + r, maxy - r)
score := score + 1
for i : 1 .. 20
balls := balls + 1
new sx, balls
new sy, balls
sx (balls) := 0
sy (balls) := 0
end for
end if

for i : 1 .. balls
Draw.FillOval (sx (i), sy (i), sr, sr, black)
end for

Draw.FillOval (x, y, r, r, red)
Input.KeyDown (keys)
if keys (KEY_DOWN_ARROW) then
speedy (1) := -2
speedx (1) := 0
elsif keys (KEY_UP_ARROW) then
speedy (1) := 2
speedx (1) := 0
elsif keys (KEY_LEFT_ARROW) then
speedx (1) := -2
speedy (1) := 0
elsif keys (KEY_RIGHT_ARROW) then
speedx (1) := 2
speedy (1) := 0
end if

exit when sx (1) <= 0 + r or sx (1) >= maxx - r or sy (1) <= 0 + r or sy (1) >= maxy - r

sy (1) := sy (1) + speedy (1)
sx (1) := sx (1) + speedx (1)

for decreasing i : balls .. 2
sy (i) := sy (i - 1)
sx (i) := sx (i - 1)
end for

View.Update ()

end loop

cls
put "You got ", score, " points!"