Dungeon Farming Simulator 2016 Опции

[Apopheosis]

Здравствуйте, форумчане, я тут недавно написал игру-текстовую РПГ на pascal ABC.
Буду очень признателен, если вы ее посмотрите на предмет багов.

Сообщение отредактировано: Apopheosis - 3.07.2016 19:30

[Федосеев Павел]

Откомпилировать не могу - нет у меня PABC.
Могу высказать замечания.
0. randomize вызывается только один раз в самом начале программы - это 100% баг.
1. Очень большая монолитная программа. Напрашивается декомпозиция - разделение на подпрограммы. Вижу реализацию камень-ножницы-бумага - точно можно реализовать отдельной подпрограммой.
2. Множество строк инициализации через case. Проще сделать через типизированные константы

const
  TitulStr : array[0..19] of string =
  (
    'Простолюдин ', //Никаких бонусов.
    'Великий дон ',  //Бонус к харизме
.........
    'Его святейшество инквизитор '  //Увеличение удачи
  );
.................
обращение в коде
  titul:=TitulStr[random(19)];

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

А ещё можно в переменной titul хранить не строку, а сам индекс - ведь это не пользователь что-то ввёл, а предопределено при составлении программы.

Сообщение отредактировано: Федосеев Павел - 3.07.2016 20:07