меню

[Sazary]

Приложите исходник.
И в двух словах скажите, что вы изменили (чтоб долго не разбираться)

[Djels]

HANOY.rar
Тело программы (игровая часть) впихнул в процедуру.
В теле оставил то, что Вы сказали. Вообщем-то больше ничего не менял.
Забыл сказать, ещё я в окне выбора количества дисков переделал фразы из writeln в outtextxy , т.к. они не были видны. Но остальные outtextxy из процедуры disk не трогал.

[Sazary]

Все из-за процедуры print_menu. Там изменяется метод выравнивания текста.
В теле программы перед case'ом поставьте:

   settextjustify(0,0);

[Djels]

Sazary - да вы монстр программирования)) Почти всё идеально. Только не подскажете, что написать в процедуре выхода, чтобы программа выполнив её - выходила.
И вот у меня три пункта меню, как сделать , чтобы зайдя например в второй пункт (HELP) из него можно было бы выйти обратно, в главное меню. Заранее Огромное спасибо!)

[Sazary]

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

И вот у меня три пункта меню, как сделать , чтобы зайдя например в второй пункт (HELP) из него можно было бы выйти обратно, в главное меню.

В теле программы измените цикл:

repeat
 print_menu(punkt);
 key:=readkey;
 if ord(key)=0 then
   begin
    key:=readkey;
    if ord (key)=72 then
      if punkt=1 then punkt:=kolvo_punkt else dec(punkt);
    if ord (key)=80 then
      if punkt=kolvo_punkt then punkt:=1 else inc(punKt);
    end;
   if ord(key)=13 then
  settextjustify(0,0);
     case punkt of
          1 : NewGame;
          2  : // тут процедура для хэлпа
          end;
  // и остальное

  if punkt = 3 then break;  // если выбран 3-й пункт, то выходим из цикла.
   untiL(ORD(KEY)=27);

[Djels]

хм... изменил... вот:

BEGIN
grdriver:=detect ;
initgraph(grdriver,grmode,'c:/bp/bgi');
punkt:=1;
clrscr;
repeat
 print_menu(punkt);
 key:=readkey;
 if ord(key)=0 then
   begin
    key:=readkey;
    if ord (key)=72 then
      if punkt=1 then punkt:=kolvo_punkt else dec(punkt);
    if ord (key)=80 then
      if punkt=kolvo_punkt then punkt:=1 else inc(punKt);
    end;
         if ord(key)=13 then
          settextjustify(0,0);
        case punkt of
          1 : NewGame;
          2 : Help;
          end;
   if punkt = 3 then break;
   until(ORD(KEY)=27);

readln;
closegraph;
end.

Терь при нажатии стрелки вниз меню увеличивается, потом ещё раз жмем оно вообще пропадает. вот(

[Sazary]

Ну неужели сами не могли ошибку найти? Так исправьте:

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

[Djels]

Нет, вот именно это я уже нашел.
Смотрите, сейчас получается, что до пункта Exit курсор не идёт.
В Help войти нельзя, он что-то тупит.
На всякий случай:
Game_Beta.rar

[Sazary]

repeat
 print_menu(punkt);
 key:=readkey;
 if ord(key)=0 then
   begin
    key:=readkey;
    if ord (key)=72 then
      if punkt=1 then punkt:=kolvo_punkt else dec(punkt);
    if ord (key)=80 then
      if punkt=kolvo_punkt then punkt:=1 else inc(punKt);
    end;
 if key=#13 then
  begin
  settextjustify(0,0);
     case punkt of
          1 : NewGame;
          end;
          end;
untiL(ORD(KEY)=13);

У меня все доходит.

[Djels]

Sazary, в таком случае да, доходит, но нужно же прикрутить к EXIT выход из игры. И Чтобы из Help и процесса игры можно было бы выходить в главное меню. Крутил-крутил... никак не хочет.. Если с этим разобраться, всё будет идеально... пожалуйста помогите, очень нужно.