Civilization (Windows 3.1)

Всем привет! Друзья, нужна ваша помощь в решении нетривиальной проблемы. Не работает автозапуск, при запуске белое окно и зацикленный глюченный звук, и вылет через пару секунд. Игру скачал с этого сайта, цивилизация для виндовс 3.11. Изменять могу только конфиг файл досбокса, все что вне по определенным причинам изменять нельзя.
После запуска игра работает отлично. По сути нужно поставить задержку после win.com перед C:\CIV\RUNEXIT.EXE C:\CIV\CIV.EXE. Я установил автозапуск для более чем 30 игр под виндовс 3.11, было много разных проблем, но все решались, но эту не могу решить. Все компоненты обязательны. Ранексит убрать нельзя.
Так выглядит автоекзец:
[autoexec]

mount C "B:\Computers\Microsoft\Windows 3.x\Sid Meier's Civilization\Program Data\Folder A\Windows\"

imgmount A "B:\Computers\Microsoft\Windows 3.x\Sid Meier's Civilization\Disk Images\Floppy\Civilization (Disk 1).ima""B:\Computers\Microsoft\Windows 3.x\Sid Meier's Civilization\Disk Images\Floppy\Civilization (Disk 2).ima""B:\Computers\Microsoft\Windows 3.x\Sid Meier's Civilization\Disk Images\Floppy\Civilization (Disk 3).ima""B:\Computers\Microsoft\Windows 3.x\Sid Meier's Civilization\Disk Images\Floppy\Civilization (Disk 4).ima" -t floppy
imgmount D "" -t iso

C:
cd windows

win.com C:\CIV\RUNEXIT.EXE C:\CIV\CIV.EXE

exit

 

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

 

Для MS DOS/DOSBox самым простым способом будет написать программу задержки. Например на секунду. При необходимости, вызывать несколько раз в цикле.
Циклы в DOSBox не работают.

 

Спасибо, Странник. К сожалению проблема не решилась, но есть мысль по ее решению. Суть в том, что если поставить приложение слип перед ранексайт, то не срабатывает второй и следом не запускается игра соответственно. Но что если скрипт задержки вписать в ранэксайт? вот соурс ранэксайта, если не трудно - ктонибудь пожалуйста отредактируйте его и соберите в екзешник. Я буду миллион раз вам благодарен, и уверен, кому-то еще это пригодиться

--- добавлено 10 май 2021, предыдущее сообщение размещено: 10 май 2021 ---

Уважаемый Креол, я прошу прощения) Не наказывайте меня)

 

@xhoperman, на сколько понял, для компиляции 16-битного приложения для Windows 3 требуется Borland Delphi 1 1995 года.
"Delphi 2 появилась в 1996 году и позволяла разрабатывать 32-битные приложения. Для программирования под Windows 3.1 в комплект поставки включалась Delphi 1."
Во всяком случае, Delphi 7 ругается на GetModuleUsage.
Позже посмотрю внимательнее.

Попробуйте создать BAT-файл, который выполняет по очереди SLEEP1S и CIV.EXE.
А уже этот BAT-файл передавать RUNEXIT.EXE.

 

не получилось. выходит сразу же. наверное по завершению выполнения бат файла срабатывает выход

--- добавлено 10 май 2021, предыдущее сообщение размещено: 10 май 2021 ---

ради эксперимента взял другую сборку досбокса, изначально был на ЕСЕ. включается без звука и по выходу из игры винда виснет.

 

@xhoperman, по коду runexit он берет исполняемый файл из параметра командной строки, запускает его, ожидает завершения программы, после чего завершает работу Windows.

Хоть поведение и странное, но возможное. По идее пакетный файл должен выполнять программы по порядку ( и тогда его бы хватило, без runexit: запустить игру, затем послать windows команду на завершение работы).

По поводу самой паузы.
Самый простой вариант - добавить sleep:

Код:

..
  { Add trailing NUL bytes }
  fileName := fileName + #0;
  pathName := pathName + #0;
  params := params + #0;

  {suspends the execution}
  sleep(5000);

  { Execute the command }
  h := ShellExecute (0, nil, @fileName [1], @params [1], @pathName [1], SW_SHOWNORMAL);
..

Особенность команды sleep - полная загрузка процессора на время выполнения.
Существуют другие варианты, не известно, на сколько совместимые с Windows 3.x.

Сейчас нет возможности проверить. Позже сообщу результат.

 

Привет! Решил проблему путем смены видеокарты с svga_s3 на svga_et4000.