Все таже змейка, добить раз и навсегда, сделать хвост Опции

[a100]

Здравствуйте! Благодаря информации с вашего форума, получилось написать, так сказать. костяк программы) не просто списать, а понять что для чего, это получилось. Опыт программирования еще совсем маленький.
Вот мой код:

Program Snake;
  uses crt;
const 
	xn=1;  		{предел экрана слева}
	xx=80;      {предел экрана справа}
	yn=1;       {верхний предел экрана} 
	yx=25;      {нижний предел экрана}
	H='0';      {голова змеи}
	dt=400;     {задержка}

var 
	x:integer=xx div 2; {начальное расположение змеи}
	y:integer=yx div 2;
	vx:integer=-1;  {начальное направление змеи}
	vy:integer=0;
    xe:integer=15; {начальные координаты яблока}
    ye:integer=15;
var 
	c:char;
	

begin
randomize;
clrscr;
gotoxy(xe,ye);     {рисуем первое яблоко}
write ('$');

while (x>=xn) and (x<=xx) and (y>=yn) and (y<=yx) do {обозначаем границы экрана}
  begin
	GoToXY(x,y);    {рисуем новое положение символа}
	write(H);
	Delay(dt);      {задержка, иначе символ будет бегать быстро}
	if keypressed then      {если нажата клавиша читаем ее}
		begin
			c:=readkey;
			case c of               {если это был управляющий символ, изменяем движение}
			'w':begin vx:=0; vy:=-1 end;  {изменяем движение на движение вверх}
			's':begin vx:=0; vy:=1 end;   {изменяем движение на движение вниз}
			'a':begin vx:=-1; vy:=0 end;  {изменяем движение на движение влево} 
			'd':begin vx:=1; vy:=0 end;   {изменяем движение на движение вправо}
			end;
		end;
    gotoxy(x,y); 
    write(' ');
    inc(x,vx);    {вычисляем новое положение змейки}
    inc(y,vy);
    if (x=xe) and (y=ye) then {если координаты змеи совпадают с координатами яблока}
		begin
			xe:=random(75);  {рисуем новое яблоко, случайным образом}
			ye:=random(20);
			gotoXY(xe,ye);
			write('$');
		end;
  end;
end.

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

надеюсь на вашу помощь

[TarasBer]

Как раз с отладкой проблем меньше, потому что когда видишь в отладчике число 3, то долго думаешь, что бы оно значило, а когда видишь fDown, то всё понятно.
Что касается печати, то тут да, язык в данной реализации не содержит модные фичи (рефлексия, или как её), позволяющие без ретипизации написать WriteLn(f[i, j]) так, что выведется "fDown".

Сообщение отредактировано: TarasBer - 15.12.2010 14:38

[Lapp]

Что касается печати, то тут да, язык в данной реализации не содержит модные фичи (рефлексия, или как её), позволяющие без ретипизации написать WriteLn(f[i, j]) так, что выведется "fDown".

Да даже если выведется Up или Down - как тогда будет выглядет карта типа той, что я выше привел? )) Так что все равно нужно вывод организовывать с фильтром.

[a100]

в принципе более менее разобрался)
но есть куча вопросов%)
Подскажите пожалуйста...

procedure PrintBoard;
begin
  WriteLn('Len=',Len,'  x=',Hx,'  y=',Hy,'  dLen=',dLen);
  for j:=0 to my+1 do 
  begin
    for i:=0 to mx+1 do 
    Write(CellPrint[b[j,i]+1]);
    WriteLn
  end
end;

Вот это место, Write(CellPrint[b[j,i]+1]), что оно выводит на экран, что значит?

Потом, в каком месте в коде, написано, что когда змейка идет вверх, рисовать ^ вниз V вправо > влево < и т.д.?

И по периметру стенка обозначается буквой W?

Спасибо за внимание

[Lapp]

Спасибо, Тарас, +1 (P.S. - сделаю завтра, на сегодня лимит исчерпал..)

Потом, в каком месте в коде, написано, что когда змейка идет вверх, рисовать ^ вниз V вправо > влево < и т.д.?

Обрати внимание на эти две строчки:

  CellPrint: string= ' ^>v<0RWOM..........';
  //                  01234567890

Комментарий внизу точно позиционирован, соотнеси цифры со строкой выше. Сам по себе комментарий, конечно, ни на что не влияет, но поможет разобраться.

И по периметру стенка обозначается буквой W?

Да. Это та же самая стенка, которую можно при желании поставить и в поле (она обозначается числом 7). Установка такой стенки по краю избавляет от необходимости делать дополнительную проверку для выхода змеи за край поля.