С какой игры начать? Опции

[Гелла]

Я вот хочу научится программировать..один очень хороший человек на этом форуме подсказал, что лучше учиться программировать в процессе написания игр........какую самую простую игру вы можете посоветовать..Заранее Большое Спасибо....Не умею правильно пользоваться поиском по форуму..поэтому не отсылайте плиз в поиск........

[Гелла]

program zmeika;
uses crt;

const
xn=1;
xx=80;
yn=1;
yx=25;
H='8';
dt=500;

var
x0,y0,vx,vy,x,y:integer;
c:char;

begin
    clrscr;
    x0:=xn;
    y0:=yx div 2;
    vx:=1;
    vy:=0;
    x:=x0;
    y:=y0;
    while (x>=xn) and (x<=xx) and (y>=yn) and (y<=yx) do
      begin
         GoToXY(x0,y0);
         write(H);
         x0:=x;
         y0:=y;
         Delay(dt);
         if KeyPressed then
         begin
           c:=ReadKey;
           case c of
           'i': begin vx:=0; vy:=-1 end;
           'm': begin vx:=0; vy:=1 end;
           'j': begin vx:=-1; vy:=0 end;
           'k': begin vx:=1; vy:=0 end;
         end;
     end;
     Inc(x,vx); Inc(y,vy);
   end;
end.

Тэги. GoodWind

А змейка не появляется..Только целая строчка восьмерок..(символов головы змейки)…а когда я пытаюсь её передвинуть при помощи клавиш i,m,j,k то появляется окно с текстом программы….А процедура Inc(x,vx); Inc(y,vy)вычисляет новое положение змейки чтоли??

Сообщение отредактировано: volvo - 2.11.2006 12:31