- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
Procedure CalcStep;
var key : char;
{Calculates the direction}
begin
if keypressed then
begin
key:=readkey;
if key in [#77,#75,#80,#72,#27] then
begin SnakeDr:=key; CalcStep; end;
end
else
case SnakeDr of
#72 : if snake[1].y=1 then snake[1].y:=23 else dec(snake[1].y);
#80 : if snake[1].y=23 then snake[1].y:=1 else inc(snake[1].y);
#75 : if snake[1].x=1 then snake[1].x:=78 else dec(snake[1].x);
#77 : if snake[1].x=78 then snake[1].x:=1 else inc(snake[1].x);
end;
end;
Нашел тут собственное творчество. Судя по всему писал в нетрезвом состоянии, ибо сейчас с трудом понимаю, зачем здесь такая рекурсия? О_о