Игра "Snake"

[Dj_smart]

Ну если уже и проверяешь координаты то проверяй,нету ли Shape в позиции (x+x1*ширина_Shape),(y+y1*высота_Sh ape).

[spamer]

Сообщение от Dj_smart

Ну если уже и проверяешь координаты то проверяй,нету ли Shape в позиции (x+x1*ширина_Shape),(y+y1*высота_Sh ape).

А можно подробнее, а то чето я не понял???

[spamer]

Эммм народ, ну помогите решить вот это последний баг.

А на счет второй. Дело в том , что змею создаю из компонентов TShape. Тело змеи храню в списке и еду также в списке (еда - тоже компонент TShape). Проверку на съедание еды делаю так, проверяю совпадают ли левая и верхняя позиции еды и головы, если да то увеличиваем змею на 1.
Так вот, для того чтобы сделать проверку врезалась змея в себя или нет, я сравнивал также левую и верхнюю позиции головы и всего остального тела, но получалось что при запуске игры, уже - Проигрыш. Вот не пойму почему? Или какой еще есть способ проверки для моей змеи?

Вот так я пытался делать:

ItemHead:= Form1.List[0];   //Первый Shape - голова
ItemEnd:= Form1.List[b];     //Следующий Shape после головы и т.д. При запуске формы b:=List.Count-1;
if (ItemHead.Top = ItemEnd.Top) and (ItemHead.Left = ItemEnd.Left) then ShowMessage('Проигрыш');