Делаю игру "змейка".

[Beermonza]

Есть еще вложения, туда в виде файла залейте, а эту портянку я удалю после.

[Grenade]

Спасибо, не знал этого раньше. Можете удалять, я понял, как это делать и как делать мой первый вопрос.

Вопрос новый: хочу создать еду объектом TShape, карта у меня 25х25. Еда должна появляться случайным образом (по типу, как числа random'ом). Пока не знаю, как это сделать. Помогите пожалуйста!

[Гром]

Определяете случайным образом два числа в интервале от 1 до 25, это и будут координаты точки, где появилась еда. Потом проверяете, пуста ли эта клетка, и если в ней действительно ничего нет, то в этой клетке еда появляется. Можно сделать это в цикле - генерировать случайные координаты до тех пор, пока клетка не будет пустой - тогда в конце концов еда обязательно где-то появится в этом ходу.

[Grenade]

Уфф.... ну, идея, более-менее понятна, спасибо Вам за неё, но пока что-то меня не слишком тянет с реализацией.....

[Гром]

Ну, допустим, что в массиве map 0 - пустая клетка, 1 - стенка, 2 - еда. Толком не разобрался в коде, но вроде у вас сегменты змейки хранятся отдельно от карты. Тогда генерация еды будет примерно такая (паскаль уже плохо помню, поэтому приведу код на C++, но, думаю, будет понятно):

void GenerateFood() //Функция, читай - "процедура" генерации еды
{
bool Ok = false;
int X, Y;
randomize();
while (!Ok) //Будем пытаться пока не получится
 {
 Ok = false; //Если не будет положительных известий - значит, не получилось
 X = random(25);
 Y = random(25);
 if (map[X][Y] == 0) //Если клетка пустая
  {
  map[X][Y] = 2; //Значит здесь будет еда
  Ok = true; //И можно заканчивать
  }
 }
}

Вот примерно такая самая простая функция. Еще, конечно, надо проверить, нет ли на этой клетке самой змейки, то есть проверить каждый сегмент - не совпадают ли его координаты со случайно сгенеренными (X, Y).

[Grenade]

Спасибо большое Вам! Сейчас попробую и напишу позже.

[Grenade]

Я был бы не против, если бы Вы посмотрели, если Вам не сложно, и оценили то,что у меня пока есть (те квадраты, которые расположены по диагонали - это стенки (пробные), управление змейкой - стрелками, что увеличивать размер змейки нажимайте левую кнопку мыши (это пока также условно):

Змейка.zip

[Гром]

Хмм... Стенки в упор не замечает, центр окружности находится в углах ячеек (т.е. есть налетели на стенку, то центр окружности придется на угол стенки) - это так и должно быть все-таки окружности должны быть вписаны в квадраты клеток?
При увеличении длины все сегменты, кроме двух изначальных начинают мигать, а ЦП пожирается в ужасающих масштабах.
АПД. ЦП, кстати, начинает пожираться с самого начала, еще когда змейка неподвижна.

[Grenade]

В ответ на последнююю часть: К сожелению на Delphi 2010, да и на 7, плохая в этом плане порой графика, начинающая постоянно мигать (в данном случае при рисовании стенки, и при добалении Shape'а к концу змейки). Пока змейка и не должна реагировать на стенку, я этим не занимался.

Сообщение от Гром

(т.е. есть налетели на стенку, то центр окружности придется на угол стенки)

Это тоже вопрос, хмм... а как лучше? у меня, как видели, ширина и длина - это константы, равные 20.

[Гром]

Это тоже вопрос, хмм... а как лучше?

Лучше все-таки чтобы все объекты располагались в клетках. А то если сейчас у вас сегмент змейки расположен сразу в четырех клетках.

плохая в этом плане порой графика, начинающая постоянно мигать

Очень распространенная проблема со стандартным решением. Поищите по форуму по ключевой фразе "двойная буферизация".