1. Друзья, в это тяжёлое и непонятное для всех нас время мы просим вас воздержаться от любых упоминаний политики на форуме, - этим ситуации не поможешь, а только возникнут ненужные ссоры и обиды. Это касается также шуток и юмора на тему конфликта. Пусть войны будут только виртуальными, а политики решают разногласия дипломатическим путём. С уважением, администрация Old-Games.RU.

    Скрыть объявление
  2. Пожалуйста, внимательно прочитайте правила раздела.
  3. Если Вы видите это сообщение, значит, вы ещё не зарегистрировались на нашем форуме.

    Зарегистрируйтесь, если вы хотите принять участие в обсуждениях. Перед регистрацией примите к сведению:
    1. Не регистрируйтесь с никами типа asdfdadhgd, 354621 и тому подобными, не несущими смысловой нагрузки (ник должен быть читаемым!): такие пользователи будут сразу заблокированы!
    2. Не регистрируйте больше одной учётной записи. Если у вас возникли проблемы при регистрации, то вы можете воспользоваться формой обратной связи внизу страницы.
    3. Регистрируйтесь с реально существующими E-mail адресами, иначе вы не сможете завершить регистрацию.
    4. Обязательно ознакомьтесь с правилами поведения на нашем форуме, чтобы избежать дальнейших конфликтов и непонимания.
    С уважением, администрация форума Old-Games.RU
    Скрыть объявление

Cobra

Тема в разделе "Установка и запуск игр", создана пользователем AndyFox, 21 янв 2023.

  1. AndyFox

    AndyFox

    Регистрация:
    22 июл 2009
    Сообщения:
    3.576
  2.  
  3. kreol Старший офицер Чёрной Гвардии

    kreol

    Администратор

    Регистрация:
    2 июл 2007
    Сообщения:
    111.881
    @AndyFox, темы в данном разделе нужно называть только названиями игр. И если эта игра для DOS, а запускаешь ты её не на оригинальном железе, то, по-моему, лучше задать вопрос в теме по DOSBox'у, предварительно указав, какая версия эмулятора используется и с какими настройками.
     
  4. Tigoro

    Tigoro

    Регистрация:
    4 фев 2010
    Сообщения:
    2.861
    @AndyFox, beep и пауза должны произойти после вывода меню сложности, а не наоборот, какая-то ошибка в коде, вопрос задается, но текст не выводится пока не ответишь.

    SELECT CASE P
    CASE 27: ReSetScreen: END
    CASE 49: Difficulty = 1: EXIT SUB
    CASE 50: Difficulty = 2: EXIT SUB
    CASE 51: Difficulty = 3: EXIT SUB
    CASE 52: Difficulty = 4: EXIT SUB
    CASE 53: Difficulty = 5: EXIT SUB
    CASE 54: Difficulty = 6: EXIT SUB
    CASE 55: Difficulty = 7: EXIT SUB
    CASE 56: Difficulty = 8: EXIT SUB
    CASE 57: Difficulty = 9: EXIT SUB
    CASE ELSE: BEEP
    END SELECT
    LOOP
    END SUB

    Если ввести цифру в ответ на незаданный вопрос о выборе сложности (скорости) - дальше наконец выводится текст и переход к процессу, 1 тормоз 9 суперживчик.

    Ошибка где-то здесь (при повторном запуске вывело что ММХ нет, есть EMS, и вопрос о сложности - скорее-всего проверку железа\EMS нужно убирать).

    Title$ = "Future Software Presents: Cobra!"
    Title$ = Title$ + SPACE$(80 - LEN(Title$))
    Future.Print 0, 0, Title$, 15, 4
    IF IsMMX THEN SetMMX 1: Future.Print 0, 16, "MMX enabled", 255, 0 ELSE Future.Print 0, 16, "No MMX found...", 255, 0
    Future.Print 0, 32, "Initializing EMS memory...", 255, 0
    IF IsEMMInstalled% THEN
    Future.Print 0, 48, "Version", 255, 0
    Future.Print 56, 48, STR$(GetEMMVersion!), 255, 0
    Future.Print 80, 48, "found.", 255, 0
    Menu = AllExpMem(40000)
    ELSE
    Future.Print 0, 48, "You must enable EMS. Please refer to the documentation!", 255, 0
    DO: LOOP UNTIL INKEY$ <> ""
    END
    END IF
     
    Последнее редактирование: 22 янв 2023
    AndyFox нравится это.
  5. AndyFox

    AndyFox

    Регистрация:
    22 июл 2009
    Сообщения:
    3.576
    @Tigoro, спасибо, комментировал участок кода проверки MMX и EMS, после чего игра запустилась!

    Код:
    'IF IsMMX THEN SetMMX 1: Future.Print 0, 16, "MMX enabled", 255, 0 ELSE Future.Print 0, 16, "No MMX found...", 255, 0
    'Future.Print 0, 32, "Initializing EMS memory...", 255, 0
    'IF IsEMMInstalled% THEN
    '        Future.Print 0, 48, "Version", 255, 0
    '        Future.Print 56, 48, STR$(GetEMMVersion!), 255, 0
    '        Future.Print 80, 48, "found.", 255, 0
    '        Menu = AllExpMem(40000)
    'ELSE
    '        Future.Print 0, 48, "You must enable EMS. Please refer to the documentation!", 255, 0
    '        DO: LOOP UNTIL INKEY$ <> ""
    '        END
    'END IF
    --- добавлено 22 янв 2023, предыдущее сообщение размещено: 22 янв 2023 ---
    https://www.old-games.ru/forum/thre...-dlja-malenkix-igr.60694/page-47#post-1848976
     
  6. Uka

    Uka

    Переводчик

    Регистрация:
    21 окт 2012
    Сообщения:
    26.429
  7. AndyFox

    AndyFox

    Регистрация:
    22 июл 2009
    Сообщения:
    3.576
    @Uka, в DOSBox необходимо перед запуском выставить Maximize Cycles и появится выбор скоростей.
     
  8. Uka

    Uka

    Переводчик

    Регистрация:
    21 окт 2012
    Сообщения:
    26.429
    @AndyFox, ты про "cycles = max"? Нет, так тоже ничего не происходит.
     
  9. AndyFox

    AndyFox

    Регистрация:
    22 июл 2009
    Сообщения:
    3.576
    @Uka, вот про эту опцию:

    upload_2023-1-22_8-30-12.png

    Кстати, насколько вижу, выбор с 1 до 9 можно осуществлять и до появления меню.
     
  1. На этом сайте используются файлы cookie, чтобы персонализировать содержимое, хранить Ваши предпочтения и держать Вас авторизованным в системе, если Вы зарегистрировались.
    Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление