Cobra

http://www.julienmoog.com/files/programmation/misc progra/qbasic/future/cobra.zip

Вот эта игра дальше первой строки заставки не запускается и только пищит.

 

@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

 

@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

 

А по ссылке - уже исправленная версия?
У меня не запускается, только пищит...

 

@Uka, в DOSBox необходимо перед запуском выставить Maximize Cycles и появится выбор скоростей.

 

@AndyFox, ты про "cycles = max"? Нет, так тоже ничего не происходит.

 

@Uka, вот про эту опцию:



Кстати, насколько вижу, выбор с 1 до 9 можно осуществлять и до появления меню.