[IllVDG]

По моему совершенно ламерский вопрос, но сам на него ответа найти не смог Как в змейке сделать чтобы она удлинялась? а то я ввел кроме двух переменных - координат головы, еще 18 координат частей тела, а чтобы она была длиннее, вообще с ума сойти можно помогите пожалуста

[Кодер]

А через что ты задаешь элементы тела?

Лучше выложи свой код

[IllVDG]

Код:

 
x10:=x9;x9:=x8;x8:=x7;x7:=x6;x6:=x5;x5:=x4;x4:=x3;x3:=x2;x2:=x1;x1:=x;
y10:=y9;y9:=y8;y8:=y7;y7:=y6;y6:=y5;y5:=y4;y4:=y3;y3:=y2;y2:=y1;y1:=y;
  if co=0 then
  x:=x-2;
  if co=1 then
  y:=y-2;
  if co=2 then
  x:=x+2;
  if co=3 then
  y:=y+2;

все х и у - интегеры, со - тоже. при нажатии влево со=0, вверх=1 и т.д. х, у - голова, х1 и у1 - второй сегмент и т.д.

[Кодер]

Не тупи, выложи весь кодинг

[Aristarh Dark]

Динамический массив TPoint

[IllVDG]

делал в опен-гл-е, много кода. объясните, плиз, про массив

[Aristarh Dark]

А что объяснять-то? Объявляешь динамический массив:

Код:

var
   MySnake: array of TPoint;

т.к. сначала твоя змея имеет длину в 1 чего-то там, скажем сегмент, устанавливаешь длину массива равной 1

Код:

  SetLength(MySnake,1);

и задаешь его, сегмента, координаты:

Код:

  MySnake[Low(MySnake)].X:=100;
  MySnake[Low(MySnake)].Y:=100;

когда нужно, увеличиваешь длину массива на 1:

Код:

  SetLength(MySnake,Length(MySnake)+1);

нижний индекс динамического массива (обычно это 0, но мало ли как будут вести себя последующие версии компилятора) определяется функцией Low(), верхний индекс - High(). Таким образом цикл по массиву (например для переопределения координат при перемещении) можно организовать так:

Код:

  for i:=Low(MySnake) to High(MySnake) to
  ...

Этого на мой вгляд достаточно

[IllVDG]

что то я мало что понял...

[IllVDG]

все, спасибо, разобрался. просто понял, что такое массив