не могу сделать смерть змейки

[kilogram4ik]

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

напишите в вк или на почту

1)https://vk.com/stanislav_28
2)ppitukhin46@gmail.com

Вот код программы:

uses graphABC, ABCobjects;

var
i, xhead, yhead,applex,appley, z: integer;
snakex:array[1..100] of integer;

head: CircleABC;

snake: array[1..1000] of CircleABC;

apple:CircleABC;

score:TextABC;

box,speead:integer;


procedure keyDoen(key: integer);
begin

if (key = vk_Right) then z := 1;
if (key = vk_left) then z := 2;

if (key = vk_Up) then z := 3;
if (key = vk_Down) then z := 4;

end;


begin
box:= 4;
speead:=120;
for i := 0 to 23 do
begin
line(0, i * 20, windowWidth, i * 20,clwhite);
end;
for i := 0 to 32 do
begin
line(i * 20, 0, i * 20, windowHeight,clwhite);
end;

xhead := 3 * 20 - 10;
yhead := 2 * 20 - 10;

applex:=3*20 - 10;
appley:=6*20 - 10;


apple := CircleABC.Create(applex, appley, 10, clred);

head := CircleABC.Create(xhead, yhead, 10, clBlue);


for i := 1 to box do
begin

snake[i] := CircleABC.Create(xhead, yhead + 10 * i, 10, clBlue);

end;

score:= textAbc.Create(10,0,20,'0',clblack) ;

while(true) do
begin

onKeyDown := keyDoen;

if(z <> 0) then
begin


for i := box downto 2 do
begin
snake[i].MoveTo(snake[i - 1].Position.x, snake[i - 1].Position.y);
end;

snake[1].MoveTo(xhead - 10, yhead - 10);
end;

if (z = 1) then xhead := xhead + 20
else if (z = 2) then xhead := xhead - 20
else if (z = 3) then yhead := yhead - 20
else if (z = 4) then yhead := yhead + 20;


if (xhead > windowWidth) then xhead := 10;
if (xhead < 0) then xhead := windowWidth - 10;

if (yhead > windowHeight) then yhead := 10;
if (yhead < 0) then yhead := windowHeight - 10;


if ((xhead = applex) and (yhead = appley)) then

begin



applex:=random(1,23)*20 - 10;
appley:=random(1,20)*20 - 10;

apple.MoveTo(applex - 10, appley - 10);

snake[box+1]:= CircleABC.Create(xhead, yhead + 10 * box+1, 10, clBlue);
inc(box);

speead:= speead - 3;

score.Text:= ((score.Text).Tointeger+1).Tostring ();
end;


head.MoveTo(xhead - 10, yhead - 10);
sleep(speead);
end;
end.

[evg_m]

но не получается сделать смерть змейки .

? это завершение цикла ?

while(true) do
begin

if <мы помираем> then break;

[Arigato]

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

напишите в вк или на почту

Ну тогда и вопрос задавайте в ВК или по почте. А то вопрос на форуме, а ответ будьте добры выслать в конверте заказным письмом Почтой России

[kilogram4ik]

evg_m, это начало бесконечного цикла

[kilogram4ik]

Arigato, просто я могу и забыть зайти на форум

[zvygin1964]

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

забыть

Положи деньги на площади и забудь !

[Arigato]

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

просто я могу и забыть зайти на форум

Значит и ответ на поставленный вопрос не очень-то и нужен. А если он вам не нужен, то нужно ли кому-то на это тратить свое время? Еще и не забыть вам напомнить, чтобы вы зашли на форум...

[kilogram4ik]

Arigato, ....

[Desc]

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

Arigato, ....

Что....???
Решать поставленную задачу кому больше нужно?
Сомневаюсь что Arigato прям горит и трепещит, дай задачку порешать..

[Arigato]

Так, к слову - https://www.programmersforum.ru/showthread.php?t=336910