меню

[Sazary]

Вот в этом куске:

if key=#13 then
  begin
     settextjustify(0,0);
        case punkt of
          1 : NewGame;
          2 : Help;
          end;
if  punkt = 3 then break;
  end;

выделенное должно быть здесь.

---------
Далее. Скажу на словах, но исправлять будете сами, т.к. там нужно искать по всему коду места.
У вас разные процедуры (print_menu, help и другие) меняют под себя стиль текста, заливки и прочего. При этом что-то они меняют, а что-то нет. И предполагается, что другие процедуры эти вещи не трогают.
Пример:
В процедуре Help вы меняете стиль текста с помощью settextstyle. Но в процедуре print_menu используется другой стиль. И эта процедура и не подозревает, что кто-то другой его изменил.

В общем, вам нужно пройтись по коду и найти эти места, где меняются стили разных элементов. В каждой процедуре устанавливайте стили заново.

[Djels]

То есть, в абсолютно каждой процедуре нужно прописывать свой стиль, чтобы один из стилей не применился к процедуре без стиля? я правильно Вас понял?
А вот ещё , почему то на Exit не выходит из игры(( только после того как второй раз нажмешь на него. В Help'e в меню не выходит тоже. Можете на словах сказать, если хотите.

[Sazary]

То есть, в абсолютно каждой процедуре нужно прописывать свой стиль, чтобы один из стилей не применился к процедуре без стиля? я правильно Вас понял?

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

А вот ещё , почему то на Exit не выходит из игры((

Удалите readln перед closegraph

В процедуре Help в конце добавьте readln;. Иначе сразу оттуда выходит.
После вызова Help'а меню уже не будет видно как раз по той причине - из-за стилей. Вам нужно их "восстановить" в процедуре print_menu.

[Djels]

Sazary - посмотрите пожалуйста. почти всё работает, кроме выхода из Help. Подскажите пожалуйста как исправить.

Game_hanou.rar

[Sazary]

Уберите в процедуре Help readln в начале.
Еще в теле программы замените условие выхода из цикла:

 until(ORD(KEY)=27);

Или еще на что-нибудь. Иначе у вас после выбора любого пункта программа будет выходить.

И я бы не сказал, что все работает как надо. После вызова Help'а стили сбиваются.

[Djels]

Sazary, Спасибо Вам огромнейшее! Много познал за сегодня!) Завтра буду доделывать. ещё раз Вам большое человеческое спасибо!))

[Djels]

Sazary. Здравствуйте снова! Подскажите пожалуйста как можно реализовать в моей игре подсчет ходов? И таймер? И потом это где-нибудь вывести. (Напр. в procedure theend) Подскажите пожалуйста.

[Sazary]

Подскажите пожалуйста как можно реализовать в моей игре подсчет ходов?

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

И таймер?

А вот с этим сложнее. В паскале это дело муторное. Можете посмотреть вот эту тему:
http://programmersforum.ru/showthread.php?t=37945

[Djels]

нет, мне не нужно ограничение времени, а наоборот увеличение, а потом вывод на экран потраченного времени за одну игру.

[Sazary]

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

нет, мне не нужно ограничение времени, а наоборот увеличение, а потом вывод на экран потраченного времени за одну игру.

Принцип тот же. Нужно использовать gettime.