- 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;
Нашел тут собственное творчество. Судя по всему писал в нетрезвом состоянии, ибо сейчас с трудом понимаю, зачем здесь такая рекурсия? О_о
guest 10.08.2009 17:42 # −3
guest 10.08.2009 20:24 # 0
вот и выхов +_+
guest 23.09.2009 18:57 # 0
guest 21.10.2009 11:41 # 0
cp7 25.08.2021 02:48 # 0