Опять про меню, В одной процедуре Опции

[1234]

Изучивши предложенные варианты и впоследствии систематизировав их, я понял что это не то. А вот те критерии, которые считаю главенствующими в моём представлении о меню:
1)Небольшое(20-40 строк)-иначе говоря для чайников;
2)Расположенное только в процедуре(НЕ в модуле и основной программе)-чтобы, как говорится с места в карьер;
3)Управление меню только КЛАВИШАМИ (точнее стрелками "вверх" и "вниз"). Причём указанная в данный момент (как бы её назвать) титра должна делать вид, что именно её на даный момент выбрали;
4)Прежде чем спросить про язык, на которым я ПРОШУ написать меню, просто вспомните название сайта;
5)Всего 3 титры.
За сим удаляюсь с большой надеждою, всегда ваш 1234.

Сообщение отредактировано: 1234 - 2.02.2007 18:04

[1234]

Да, Pascal безграничен. Как сделать, чтобы войдя в титру, получить итогом ещё одну титру(напрмер, войдя в "Уровень сложности" получить "Hard", "Meadle", "Easy"). А также, как обращаться к функции(нажав ЕXIT получить выход).

Сообщение отредактировано: 1234 - 3.02.2007 18:21

[TarasBer]

Да, Pascal безграничен. Как сделать, чтобы войдя в титру, получить итогом ещё одну титру(напрмер, войдя в "Уровень сложности" получить "Hard", "Meadle", "Easy"). А также, как обращаться к функции(нажав ЕXIT получить выход).

Ну, например (условно):

Код

begin
  i := 9;
  j := 2; {VGA 640X480 16 colors}
  InitGraph(i, j, '');
  CanExit := False;
  BotLevel := 1;
  repeat
    case Menu('New'#13'Level'#'Exit') of
      0: Game;
      1: BotLevel := Menu('Easy'#13'Medium'#13'Hard');
      2: CanExit := True;
    end;
  until CanExit;
  CloseGraph;
end.

Типа тело программы... Должно работать.
Советую найти (или сделать, как я когда-то...) русский файл со шрифтом и все пункты меню написать по-русски.
Процедура Game - типа запуск игры (сами напишете).
Для выхода из программы надо выбрать Exit (тогда происходит выброс из цикла);
А после выбора уровня сложности снова вызывается первоначальное меню... (Переменная BotLevel хранит уровень сложности).

А лучше почитайте Фаронова на досуге... Полезная книга.

Сообщение отредактировано: TarasBer - 3.02.2007 19:05