На днях написал вот такое подобие Сапера:
MINER.PAS ( 9.78 килобайт )
Кол-во скачиваний: 560
Прикольно!
Впечатлило открытие пустых клеток.
Одно но. Сразу после начала игры - забыл комбинации кнопок. Раз уж нет мыши - может добавить подсказку по клавишам?
Ещё, у меня уже нет TurboPascal и я с небольшими изменениями запускал под FreePascal ({$apptype GUI} и wincrt). Огорчили артефакты от слов.
По коду можно добавить замечаний, но ты продолжай программировать - всё само исправится. Подчеркну лишь, что по структуре кода программа всё глубже и глубже с каждой игрой "закапывается" в стек, когда из nachalo через ряд других процедур опять вызывается nachalo.
Удачи!
Эскизы прикрепленных изображений
Спасибо за замечания.
Что касается среды, то у меня стоит SchoolPak под DOSBox-ом, там играет хорошо и без артефактов.
MINER__MODIFIED_.rar ( 3.59 килобайт )
Кол-во скачиваний: 579
Ой, а тут мышь низкоуровневая, и несовместимая с FreePascal и я уже не могу посмотреть...