Как наложить графику на игру?

[KRaShAK]

Можно ли как нибудь наложить графику на эту игрушку?
Смысл игры просто бить пенальти по очереди с Компьютером. Есть три уровня сложности. Графика на уровне отсутствия можно ли это как нить исправить? я в программировании пока новичок. Заранее спасибо

[JIeIIIa]

У меня на 7-ке не запускается Ваш ехе"шник. Выложите исходники

пс: имхо, можно)

[KRaShAK]

У меня тоже 7-ка вроде идет...через .pas у вас откроет?

[BDA]

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

Во вложении одно такое преобразование.

[KRaShAK]

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

[BDA]

KRaShAK, у тебя код:

  writeln('PC: ',PC);
  writeln('P1: ',p1);
  writeln;  writeln('Kakoi iz trex ydarov vi bydete parirovat?');
    writeln('    PC    ');
    writeln('    0     ');
    writeln(' /  |  \  ');
    writeln('1   2    3');
    writeln;
    writeln('|   P1   |');
    writeln('__________');
   writeln;K

Повторяется 3 раза
и код:

       clrscr;
       writeln('PC: ',PC);
       writeln('P1: ',P1);
       writeln;
       writeln('Po Kakoi traektorii bydem bit?');
    writeln('    P1    ');
    writeln('    0     ');
    writeln(' /  |  \  ');
    writeln('1   2    3');
    writeln;
    writeln('|   PC   |');
    writeln('__________');
    writeln;

тоже 3 раза, хотя, по сути, это ОДИНАКОВЫЙ код (только пара слов отличается).

Поэтому эти строчки заменяются на вызов функции:

procedure choice(pl1, pl2, s: string);
begin
  clrscr;
  writeln('PC: ', PC);
  writeln('P1: ', p1);
  writeln;  writeln(s);
  writeln('    ', pl1, '    ');
  writeln('    0     ');
  writeln(' /  |  \  ');
  writeln('1   2    3');
  writeln;
  writeln('|   ', pl2, '   |');
  writeln('__________');
  writeln;
end;

где строчки передаются через параметры.

Также просто сделать замену для вывода ударов у меня не получилось (времени нету).

[KRaShAK]

BDA,О спасибо до меня кажется дошло сейчас буду исправлять,кстати а как я понял procedure choice(pl1, pl2, s: string); choise это имя и оно может быть любое да?

[BDA]

KRaShAK, пожалуйста. Да, choice - имя, и оно может быть почти любым (есть некоторые правила, например, имя не может начинаться с цифры).

[KRaShAK]

А как можно потом мне в паскаль этот блокнот загрузить, чтобы еще раз не переписывать?

[BDA]

Переименовать txt в pas (изменить расширение файла).
(если не отображаются расширения файлов:
1) открыть любую папку
2) сверху нажать кнопку Упорядочить
3) Параметры папок и поиска
4) вкладка Вид
5) снять галочку с пункта Скрывать расширения для зарегистрированных типов файлов)

Кстати, не только имя может быть любым, но и список параметров.
http://informatics.mccme.ru/moodle/m...iew.php?id=529