Подскажите с управлением в "Змейке".

[spamer]

Народ, пожалуйста помогите.
Пытаюсь написать игру "Змейка". В качестве тела змеии использую массив из компонентов TShape (создаю их в отдельной процедуре - конструктором).

Сама змейка движется, только вот когда управляешь ей, она НЕ правильно движется. Например при движении вверх все Shape'ы начинают вдигатся вместе не поварачивая. А нада как в обычной змейке, что бы она умела поворачивать.

Проблема : как сделать управление змейкой (Вверх, Вниз, Вправо, Влево) что бы она правильно поворачивала???

Вот то что я уже написал:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Menus;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    Main: TMenuItem;
    NewGames: TMenuItem;
    N1: TMenuItem;
    Exit: TMenuItem;
    Cpravka: TMenuItem;
    About_program: TMenuItem;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Vpravo();
    procedure VLevo();
    procedure VVerx();
    procedure Vniz();
    procedure CreateUdav();
  end;
const
  shag = 10;
var
  Form1: TForm1;
  napravlenie: string[1];
  mas:array[0..999] of TShape;
  i:integer;
implementation
uses MaskUtils, Math;
{$R *.dfm}
procedure TForm1.CreateUdav();
begin
for i:=0 to 2 do
begin
  mas[i]:=TShape.Create(self);
  mas[i].Left:=150;
  mas[i].Width:=10;
  mas[i].Height:=10;
  mas[i].Left:=mas[i].Left+i*10;
  mas[i].Top:=150;
  mas[i].Parent:=Form1;
end;
end;
procedure TForm1.Vpravo();
begin
for i:=0 to 2 do
  mas[i].Left:=mas[i].Left+shag;
end;
procedure TForm1.VLevo();
begin
for i:=0 to 2 do
  mas[i].Left:=mas[i].Left-shag;
end;
procedure TForm1.VVerx();
begin
for i:=0 to 2 do
  mas[i].Top:=mas[i].Top-shag;
end;
procedure TForm1.Vniz();
begin
for i:=0 to 2 do
  mas[i].Top:=mas[i].Top+shag;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if napravlenie = 'R' then Vpravo;
  if napravlenie = 'L' then VLevo;
  if napravlenie = 'D' then Vniz;
  if napravlenie = 'U' then VVerx;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
vk_RIGHT: napravlenie:='R';
VK_LEFT:  napravlenie:='L';
vk_DOWN:  napravlenie:='D';
VK_UP:    napravlenie:='U';
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
napravlenie := 'L';
CreateUdav();
end;
end.

Вот прикрепил исходник.
Подскажите плз.

[mutabor]

Я делал когда-то змейку. Сейчас и не вспомню уже как я реализовал этот механизм. Принцип такой, что с каждым шагом, координаты одной части змеи переходят в следующую, а новые получает только голова. То есть с клавиатуры управляется голова, а все тело получает предыдущие координаты. Можно в цикле это сделать, тогда нужно чтобы части змеи представляли из себя массив.

Вот для примера событие смены координат головы, все условно, mas - элемент змеи, n - новые координаты

//сначала меняем координаты элементов
for i:=Length(mas)-1 downto 1 do
  mas[i]:=mas[i-1];
//после этого можно поменять координаты головы
mas[0]:=n;

[0nni]

Если хорошо приглядеться, то у змейки в процессе движения прибавляется 1 клетка вначале и убирается последняя. В момент роста просто не происходит укорачивание.
Если все таки хотите делать массивом а не списком, советую перемещать последний элемент вначало - те сдвигать массив.
Так вы избавитесь от лишних перерисовок.

[Terran]

Вот вам наглядный пример змейки:Zme.zip
В нём вы сможете посмотреть как что реализуется.

[spamer]

все, уже готово управление, спасибо за советы.

[spamer]

Народ может кто подскажет еще. как сделать что бы змея что то съедала и увеличивалась???

[mutabor]

Ну так говорили уже, когда съедает то хвост не удалять и она станет длиннее.

[=LeonZone=]

Вот как то от скуки на работе набросал простеньную змейку...
Всё работает, познавательно будет посмотреть